diff options
Diffstat (limited to 'backend')
-rw-r--r-- | backend/PrintAsm.ml | 4 | ||||
-rw-r--r-- | backend/PrintAsmaux.ml | 1 |
2 files changed, 2 insertions, 3 deletions
diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml index 465b8791..3072bff3 100644 --- a/backend/PrintAsm.ml +++ b/backend/PrintAsm.ml @@ -23,8 +23,8 @@ module Printer(Target:TARGET) = struct let get_fun_addr name txt = - let s = Target.new_label () - and e = Target.new_label () in + let s = new_label () + and e = new_label () in Debug.add_fun_addr name txt (e,s); s,e diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml index 0db664ce..4099d76f 100644 --- a/backend/PrintAsmaux.ml +++ b/backend/PrintAsmaux.ml @@ -43,7 +43,6 @@ module type TARGET = val comment: string val symbol: out_channel -> P.t -> unit val default_falignment: int - val new_label: unit -> int val label: out_channel -> int -> unit val address: string end |