fixup! Fix static evaluation of caml_int64_float_of_bits

Author: vouillon

compiler/tests-jsoo/test_nan.ml

@@ -11,7 +11,5 @@ let is_none t = Int64.equal (Int64.bits_of_float t) (Int64.bits_of_float none)
 
 let () =
   assert (is_none none);
-  let l =
-    [ nan; -.nan; 1.; -7.; infinity; neg_infinity; 0.; none; Float.signaling_nan ]
-  in
+  let l = [ nan; -.nan; 1.; -7.; infinity; neg_infinity; 0.; none ] in
   List.iter (fun f -> assert (not (is_none (some f)))) l

runtime/js/ieee_754.js

@@ -108,6 +108,7 @@ function caml_int64_float_of_bits(x) {
   var lo = x.lo;
   var mi = x.mi;
   var hi = x.hi;
+  if ((hi & 0x7ff8) === 0x7ff0) hi |= 8;
   jsoo_dataview.setUint32(0, lo | (mi << 24), true);
   jsoo_dataview.setUint32(4, (mi >>> 8) | (hi << 16), true);
   return jsoo_dataview.getFloat64(0, true);