diff options
-rw-r--r-- | backend/PrintAsm.ml | 1 | ||||
-rw-r--r-- | backend/PrintAsmaux.ml | 1 | ||||
-rw-r--r-- | powerpc/TargetPrinter.ml | 2 | ||||
-rw-r--r-- | riscV/TargetPrinter.ml | 2 | ||||
-rw-r--r-- | x86/TargetPrinter.ml | 2 |
5 files changed, 0 insertions, 8 deletions
diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml index b489bc11..44c6b409 100644 --- a/backend/PrintAsm.ml +++ b/backend/PrintAsm.ml @@ -39,7 +39,6 @@ module Printer(Target:TARGET) = let print_function oc name fn = Hashtbl.clear current_function_labels; - Target.reset_constants (); let (text, lit, jmptbl) = Target.get_section_names name in Target.section oc text; let alignment = diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml index 3a2e0e7d..d985d5a4 100644 --- a/backend/PrintAsmaux.ml +++ b/backend/PrintAsmaux.ml @@ -28,7 +28,6 @@ module type TARGET = val print_comm_symb: out_channel -> Z.t -> P.t -> int -> unit val print_var_info: out_channel -> P.t -> unit val print_fun_info: out_channel -> P.t -> unit - val reset_constants: unit -> unit val get_section_names: P.t -> section_name * section_name * section_name val print_file_line: out_channel -> string -> int -> unit val print_optional_fun_info: out_channel -> unit diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index cf1d4aba..01851ac2 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -928,8 +928,6 @@ module Target (System : SYSTEM):TARGET = | [t;l;j] -> (t, l, j) | _ -> (Section_text, Section_literal, Section_jumptable) - let reset_constants = reset_constants - let print_var_info = elf_print_var_info let print_comm_symb oc sz name align = diff --git a/riscV/TargetPrinter.ml b/riscV/TargetPrinter.ml index f0ff9637..696bc87f 100644 --- a/riscV/TargetPrinter.ml +++ b/riscV/TargetPrinter.ml @@ -129,8 +129,6 @@ module Target : TARGET = (* Associate labels to floating-point constants and to symbols. *) - let reset_constants () = reset_constants () - let emit_constants oc lit = if exists_constants () then begin section oc lit; diff --git a/x86/TargetPrinter.ml b/x86/TargetPrinter.ml index 1525b49b..3171847c 100644 --- a/x86/TargetPrinter.ml +++ b/x86/TargetPrinter.ml @@ -867,8 +867,6 @@ module Target(System: SYSTEM):TARGET = | [t;l;j] -> (t, l, j) | _ -> (Section_text, Section_literal, Section_jumptable) - let reset_constants = reset_constants - let print_fun_info = print_fun_info let print_var_info = print_var_info |