diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-10-16 07:37:28 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-10-16 07:37:28 +0000 |
commit | 7e378c0215c99d7f8bd38341081ec04fd202fd0a (patch) | |
tree | 1a17a6568e1c421c2543d3576c97f9296ca15179 /ia32/PrintAsm.ml | |
parent | e8bd77565422ab8e6d2fdd4ec7d5e7e4916ff2bd (diff) | |
download | compcert-kvx-7e378c0215c99d7f8bd38341081ec04fd202fd0a.tar.gz compcert-kvx-7e378c0215c99d7f8bd38341081ec04fd202fd0a.zip |
Revised emulation of packed structs
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1729 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'ia32/PrintAsm.ml')
-rw-r--r-- | ia32/PrintAsm.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ia32/PrintAsm.ml b/ia32/PrintAsm.ml index ec3db779..f48b8080 100644 --- a/ia32/PrintAsm.ml +++ b/ia32/PrintAsm.ml @@ -405,22 +405,22 @@ let print_builtin_inline oc name args res = fprintf oc "%s begin builtin %s\n" comment name; begin match name, args, res with (* Memory accesses *) - | "__builtin_read_int16_reversed", [IR a1], IR res -> + | "__builtin_read16_reversed", [IR a1], IR res -> let tmp = if Asmgen.low_ireg res then res else ECX in fprintf oc " movzwl 0(%a), %a\n" ireg a1 ireg tmp; fprintf oc " xchg %a, %a\n" ireg8 tmp high_ireg8 tmp; if tmp <> res then fprintf oc " movl %a, %a\n" ireg tmp ireg res - | "__builtin_read_int32_reversed", [IR a1], IR res -> + | "__builtin_read32_reversed", [IR a1], IR res -> fprintf oc " movl 0(%a), %a\n" ireg a1 ireg res; fprintf oc " bswap %a\n" ireg res - | "__builtin_write_int16_reversed", [IR a1; IR a2], _ -> + | "__builtin_write16_reversed", [IR a1; IR a2], _ -> let tmp = if a1 = ECX then EDX else ECX in if a2 <> tmp then fprintf oc " movl %a, %a\n" ireg a2 ireg tmp; fprintf oc " xchg %a, %a\n" ireg8 tmp high_ireg8 tmp; fprintf oc " movw %a, 0(%a)\n" ireg16 tmp ireg a1 - | "__builtin_write_int32_reversed", [IR a1; IR a2], _ -> + | "__builtin_write32_reversed", [IR a1; IR a2], _ -> let tmp = if a1 = ECX then EDX else ECX in if a2 <> tmp then fprintf oc " movl %a, %a\n" ireg a2 ireg tmp; |