diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-11-06 09:56:21 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-11-06 09:56:21 +0100 |
commit | 43b557ce847b56c1cfae2081c7585191043a85b6 (patch) | |
tree | 78297076b1f3a704372b91ba9e6419f984d94043 | |
parent | 0c00ace3c8981516ef02bc49f4e616e4cb485124 (diff) | |
download | compcert-43b557ce847b56c1cfae2081c7585191043a85b6.tar.gz compcert-43b557ce847b56c1cfae2081c7585191043a85b6.zip |
Remove superfluous function.
The new_label function is alway equal to PrintAsmaux.new_label.
Bug 22472
-rw-r--r-- | arm/TargetPrinter.ml | 2 | ||||
-rw-r--r-- | backend/PrintAsm.ml | 4 | ||||
-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 |
6 files changed, 2 insertions, 11 deletions
diff --git a/arm/TargetPrinter.ml b/arm/TargetPrinter.ml index 7abd9074..1493f9fc 100644 --- a/arm/TargetPrinter.ml +++ b/arm/TargetPrinter.ml @@ -886,8 +886,6 @@ struct let default_falignment = 4 - let new_label = new_label - let address = if Archi.ptr64 then ".quad" else ".4byte" end 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 diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index 9c07b086..390fb385 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -993,8 +993,6 @@ module Target (System : SYSTEM):TARGET = let default_falignment = 4 - let new_label = new_label - let address = address let section oc sec = diff --git a/riscV/TargetPrinter.ml b/riscV/TargetPrinter.ml index b363b2b7..5c6edc46 100644 --- a/riscV/TargetPrinter.ml +++ b/riscV/TargetPrinter.ml @@ -697,8 +697,6 @@ module Target : TARGET = let default_falignment = 2 - let new_label = new_label - let cfi_startproc oc = () let cfi_endproc oc = () diff --git a/x86/TargetPrinter.ml b/x86/TargetPrinter.ml index c19359fa..d0f8ef5a 100644 --- a/x86/TargetPrinter.ml +++ b/x86/TargetPrinter.ml @@ -938,8 +938,6 @@ module Target(System: SYSTEM):TARGET = let label = label - let new_label = new_label - let address = if Archi.ptr64 then ".quad" else ".long" end |