diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-05-23 07:43:21 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-05-23 07:43:21 +0000 |
commit | 5b9d443a3a7f1be0e229bfc424dc857f080ef485 (patch) | |
tree | 3d31b3e5df6861b5e4f538b0457880b129b8e5dd /powerpc/PrintAsm.ml | |
parent | 6507802928d50f97511c2cb8bca5c9bb389385e1 (diff) | |
download | compcert-5b9d443a3a7f1be0e229bfc424dc857f080ef485.tar.gz compcert-5b9d443a3a7f1be0e229bfc424dc857f080ef485.zip |
Nicer printing of annotations.
ia32: support builtins for reversed reads and writes (facilitates testing).
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1655 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/PrintAsm.ml')
-rw-r--r-- | powerpc/PrintAsm.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml index 56e3c360..ef53411b 100644 --- a/powerpc/PrintAsm.ml +++ b/powerpc/PrintAsm.ml @@ -412,10 +412,6 @@ let print_builtin_inlined oc name args res = let sz = int_of_string (Str.matched_group 3 name) in let al = try int_of_string (Str.matched_group 2 name) with Not_found -> 1 in print_builtin_memcpy oc sz al dst src - (* Annotations *) - | name, args, res when Str.string_match re_builtin_annotation name 0 -> - let annot = Str.matched_group 1 name in - print_annotation oc annot args res (* Catch-all *) | _ -> invalid_arg ("unrecognized builtin " ^ name) @@ -712,7 +708,9 @@ let print_instruction oc = function fprintf oc "%a:\n" label (transl_label lbl) | Pbuiltin(ef, args, res) -> let name = extern_atom ef.ef_id in - print_builtin_inlined oc name args res + if Str.string_match re_builtin_annotation name 0 + then print_annotation oc (Str.matched_group 1 name) args res + else print_builtin_inlined oc name args res let print_literal oc (lbl, n) = let nlo = Int64.to_int32 n |