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

Fix for GPR#167

master
Mark Shinwell 2016-04-14 16:29:57 +01:00
parent 380a091e7c
commit e26cd12701
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
asmcomp/cmmgen.ml
View File

@ -789,6 +789,10 @@ let box_int bi arg =
transl_structured_constant (box_int_constant bi (Nativeint.of_int n))
| Cconst_natint n ->
transl_structured_constant (box_int_constant bi n)
| Ctuple [Cconst_natint low; Cconst_natint high] when size_int <> 8 ->
(* The inverse of the [Uconst_int64] case in [transl_unbox_int]. *)
let n = Nativeint.logor low (Nativeint.shift_left high 32) in
transl_structured_constant (box_int_constant bi n)
| _ ->
let arg' =
if bi = Pint32 && size_int = 8 && big_endian