Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix broken bswap on MSVC64 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13653 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2013-05-07 09:36:53 +00:00
parent 362082e1a8
commit 0f6e0a35fb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
asmcomp/amd64/emit_nt.mlp
View File

@ -570,11 +570,11 @@ let emit_instr fallthrough i =
| Lop(Ispecific(Ibswap size)) ->
begin match size with
| 16 ->
` xchg %ah, %al\n`;
` movzwq {emit_reg i.res.(0)}, {emit_reg16 i.res.(0)}\n`
` xchg ah, al\n`;
` movzx {emit_reg i.res.(0)}, {emit_reg16 i.res.(0)}\n`
| 32 ->
` bswap {emit_reg32 i.res.(0)}\n`;
` movslq {emit_reg i.res.(0)}, {emit_reg32 i.res.(0)}\n`
` movsxd {emit_reg i.res.(0)}, {emit_reg32 i.res.(0)}\n`
| 64 ->
` bswap {emit_reg i.res.(0)}\n`
| _ -> assert false