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

Cleanup. 

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/abstract_intel_emit@15293 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Alain Frisch 2014-09-22 14:30:58 +00:00
parent bb3354efe7
commit 7e5a406a1c
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
asmcomp/amd64/emit.mlp
View File

@ -468,18 +468,6 @@ let emit_instr fallthrough i =
end
else
I.movabsq (Int64.of_nativeint n, res i 0)
(* will use a short form is n fit in 32-bit *)
(*
else if n <= 0x7FFFFFFFn && n >= -0x80000000n then
I.movq (emit_nat n, res i 0)
else
if system = S_win64 && n >= 0x80000000n && n <= 0xFFFFFFFFn then
(* work around bug in ml64 *)
(* Should this go in intel_masm instead?? *)
I.movl (emit_nat n, res32 i 0)
else
I.movabsq (n, res i 0)
*)
| Lop(Iconst_float f) ->
begin match Int64.bits_of_float f with
| 0x0000_0000_0000_0000L -> (* +0.0 *)