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

Typo: >> should have been <<. 

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/big-marshal@16425 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2015-09-15 14:28:12 +00:00
parent e2d0a13165
commit c065a0995c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
byterun/extern.c
View File

@ -440,7 +440,7 @@ static void extern_rec(value v)
} else if (d < 0x10000) { } else if (d < 0x10000) {
writecode16(CODE_SHARED16, d); writecode16(CODE_SHARED16, d);
#ifdef ARCH_SIXTYFOUR #ifdef ARCH_SIXTYFOUR
} else if (d >= (uintnat)1 >> 32) { } else if (d >= (uintnat)1 << 32) {
writecode64(CODE_SHARED64, d); writecode64(CODE_SHARED64, d);
#endif #endif
} else { } else {