diff options
-rw-r--r-- | ia32/PrintAsm.ml | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/ia32/PrintAsm.ml b/ia32/PrintAsm.ml index b0ef0180..d064782e 100644 --- a/ia32/PrintAsm.ml +++ b/ia32/PrintAsm.ml @@ -60,7 +60,6 @@ let preg oc = function module type SYSTEM = sig val raw_symbol: out_channel -> string -> unit - val symbol: out_channel -> P.t -> unit val label: out_channel -> int -> unit val name_of_section: section_name -> string val stack_alignment: int @@ -80,9 +79,6 @@ module Cygwin_System = let raw_symbol oc s = fprintf oc "_%s" s - let symbol oc symb = - fprintf oc "%s" (extern_atom symb) - let label oc lbl = fprintf oc "L%d" lbl @@ -128,9 +124,6 @@ module ELF_System = let raw_symbol oc s = fprintf oc "%s" s - - let symbol oc symb = - fprintf oc "%s" (extern_atom symb) let label oc lbl = fprintf oc ".L%d" lbl @@ -182,9 +175,6 @@ module MacOS_System = let raw_symbol oc s = fprintf oc "_%s" s - let symbol oc symb = - fprintf oc "_%s" (extern_atom symb) - let label oc lbl = fprintf oc "L%d" lbl @@ -249,6 +239,9 @@ module AsmPrinter(Target: SYSTEM) = open Target (* On-the-fly label renaming *) +let symbol oc symb = + raw_symbol oc (extern_atom symb) + let next_label = ref 100 let new_label() = |