From 5b9d443a3a7f1be0e229bfc424dc857f080ef485 Mon Sep 17 00:00:00 2001 From: xleroy Date: Mon, 23 May 2011 07:43:21 +0000 Subject: 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 --- arm/PrintAsm.ml | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'arm/PrintAsm.ml') diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml index ed6d3f35..4f5d1cd8 100644 --- a/arm/PrintAsm.ml +++ b/arm/PrintAsm.ml @@ -319,10 +319,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) @@ -533,7 +529,9 @@ let print_instruction oc = function 2 + List.length tbl | 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 no_fallthrough = function | Pb _ -> true -- cgit