diff options
Diffstat (limited to 'powerpc/TargetPrinter.ml')
-rw-r--r-- | powerpc/TargetPrinter.ml | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index 01851ac2..9a6840b1 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -20,6 +20,7 @@ open Sections open AST open Asm open PrintAsmaux +open AisAnnot (* Recognition of target ABI and asm syntax *) @@ -834,15 +835,15 @@ module Target (System : SYSTEM):TARGET = | Pbuiltin(ef, args, res) -> begin match ef with | EF_annot(kind,txt, targs) -> - let annot = - 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: " label lbl; - ais_annot_text lbl preg_annot "r1" (camlstring_of_coqstring txt) args - | _ -> assert false - end in - fprintf oc "%s annotation: %S\n" comment annot + begin match (P.to_int kind) with + | 1 -> let annot = annot_text preg_annot "sp" (camlstring_of_coqstring txt) args in + fprintf oc "%s annotation: %S\n" comment annot + + | 2 -> let lbl = new_label () in + fprintf oc "%a: " label lbl; + add_ais_annot lbl preg_annot "r1" (camlstring_of_coqstring txt) args + | _ -> assert false + end | EF_debug(kind, txt, targs) -> print_debug_info comment print_file_line preg_annot "r1" oc (P.to_int kind) (extern_atom txt) args |