From cc264a58d6fb43cf7c8ae41d73726dfedc20f1d4 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Wed, 25 Oct 2017 11:05:43 +0200 Subject: Fix register name of ais printing and moved label function up. --- arm/TargetPrinter.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'arm/TargetPrinter.ml') diff --git a/arm/TargetPrinter.ml b/arm/TargetPrinter.ml index 67bc5d8b..7abd9074 100644 --- a/arm/TargetPrinter.ml +++ b/arm/TargetPrinter.ml @@ -43,6 +43,8 @@ struct (* Basic printing functions *) + let label = elf_label + let print_label oc lbl = elf_label oc (transl_label lbl) let comment = "@" @@ -728,8 +730,8 @@ struct begin match (P.to_int kind) with | 1 -> annot_text preg_annot "sp" (camlstring_of_coqstring txt) args | 2 -> let lbl = new_label () in - fprintf oc "%a: " elf_label lbl; - ais_annot_text lbl preg_annot "r1" (camlstring_of_coqstring txt) args + fprintf oc "%a: " label lbl; + ais_annot_text lbl preg_annot "sp" (camlstring_of_coqstring txt) args | _ -> assert false end in fprintf oc "%s annotation: %S\n" comment annot; @@ -884,8 +886,6 @@ struct let default_falignment = 4 - let label = elf_label - let new_label = new_label let address = if Archi.ptr64 then ".quad" else ".4byte" -- cgit