diff options
Diffstat (limited to 'backend')
-rw-r--r-- | backend/PrintAsm.ml | 7 | ||||
-rw-r--r-- | backend/PrintAsmaux.ml | 4 |
2 files changed, 1 insertions, 10 deletions
diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml index 104440c6..59570957 100644 --- a/backend/PrintAsm.ml +++ b/backend/PrintAsm.ml @@ -79,7 +79,6 @@ module Printer(Target:TARGET) = List.iter (Target.print_init oc) id let print_var oc name v = - if !Clflags.option_g && Configuration.advanced_debug then Target.add_var_location name; match v.gvar_init with | [] -> () | _ -> @@ -120,14 +119,10 @@ module Printer(Target:TARGET) = let get_end_addr = Target.get_end_addr let get_stmt_list_addr = Target.get_stmt_list_addr let name_of_section = Target.name_of_section - let get_location a = None - let get_frame_base a = None let symbol = Target.symbol end - module DebugPrinter = DwarfPrinter (DwarfTarget) (Target.DwarfAbbrevs) - - + module DebugPrinter = DwarfPrinter (DwarfTarget) end let print_program oc p db = diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml index 3f0b3ea3..1c3b47b5 100644 --- a/backend/PrintAsmaux.ml +++ b/backend/PrintAsmaux.ml @@ -52,10 +52,6 @@ module type TARGET = val new_label: unit -> int val label: out_channel -> int -> unit val print_file_loc: out_channel -> file_loc -> unit - val get_location: P.t -> location_value option - val get_segment_location: P.t -> location_value option - val add_var_location: P.t -> unit - module DwarfAbbrevs: DWARF_ABBREVS end (* On-the-fly label renaming *) |