diff options
| -rw-r--r-- | powerpc/AsmToJSON.ml | 1 | ||||
| -rw-r--r-- | powerpc/TargetPrinter.ml | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/powerpc/AsmToJSON.ml b/powerpc/AsmToJSON.ml index b3464dc4..433beaeb 100644 --- a/powerpc/AsmToJSON.ml +++ b/powerpc/AsmToJSON.ml @@ -332,6 +332,7 @@ let p_section oc = function | Section_user (s,w,e) -> fprintf oc "{\"Section Name\":\"%s\",\"Writable\":%B,\"Executable\":%B}" s w e | Section_debug_info _ | Section_debug_abbrev + | Section_debug_line _ | Section_debug_loc -> () (* There should be no info in the debug sections *) let p_int_opt oc = function diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index 0f0ed357..e65a8934 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -220,7 +220,7 @@ module Diab_System : SYSTEM = | Section_debug_info s -> sprintf ".section .debug_info%s,,n" (if s <> ".text" then s else "") | Section_debug_abbrev -> ".section .debug_abbrev,,n" | Section_debug_loc -> ".section .debug_loc,,n" - | Section_debug_line s -> sprintf ".section .debug_line.%s,,n\n" s; + | Section_debug_line s -> sprintf ".section .debug_line.%s,,n\n" s let section oc sec = let name = name_of_section sec in |