From 712f3cbae6bfd3c6f6cc40d44f438aa0affcd371 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Tue, 18 Dec 2012 07:54:35 +0000
Subject: Support for inline assembly (asm statements). cparser: add primitive
 support for enum types. bitfield emulation: for bitfields with enum type,
 choose signed/unsigned as appropriate

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2074 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 powerpc/PrintAsm.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'powerpc/PrintAsm.ml')

diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml
index 3ef3c744..a20448c3 100644
--- a/powerpc/PrintAsm.ml
+++ b/powerpc/PrintAsm.ml
@@ -747,6 +747,10 @@ let print_instruction oc tbl pc = function
                                   (Int32.to_int (camlint_of_coqint al)) args
       | EF_annot_val(txt, targ) ->
           print_annot_val oc (extern_atom txt) args res
+      | EF_inline_asm txt ->
+          fprintf oc "%s begin inline assembly\n" comment;
+          fprintf oc "	%s\n" (extern_atom txt);
+          fprintf oc "%s end inline assembly\n" comment
       | _ ->
           assert false
       end
-- 
cgit