From 6a2cfdb1bc410532a23c58206cd00b39bc7ccba3 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Fri, 9 Oct 2015 12:10:30 +0200 Subject: Fixed syntax error and added Section_debug_line to the Json serializer. --- powerpc/AsmToJSON.ml | 1 + powerpc/TargetPrinter.ml | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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 -- cgit