FIXES

Author: vouillon

runtime/wasm/runtime.js

@@ -392,7 +392,7 @@
         return caml_alloc_times(t.user / 1e6, t.system / 1e6);
       } else {
         var t = performance.now() / 1000;
-        return caml_alloc_times(t, t);
+        return caml_alloc_times(t, 0);
       }
     },
     gmtime: (t) => {

runtime/wasm/sys.wat

@@ -288,6 +288,11 @@
       (local.set $buffer (call $get_buffer))
       (local.set $res
          (call $clock_time_get (i32.const 2) (i64.const 1) (local.get $buffer)))
+      (if (i32.eq (local.get $res) (i32.const 8))
+         (then
+            (local.set $res
+               (call $clock_time_get
+                  (i32.const 0) (i64.const 1) (local.get $buffer)))))
       (if (local.get $res)
          (then
             (call $caml_handle_sys_error

runtime/wasm/unix.wat

@@ -426,6 +426,11 @@
       (local.set $res
          (call $clock_time_get
             (i32.const 2) (i64.const 1) (local.get $buffer)))
+      (if (i32.eq (local.get $res) (i32.const 8))
+         (then
+            (local.set $res
+               (call $clock_time_get
+                  (i32.const 0) (i64.const 1) (local.get $buffer)))))
       (if (local.get $res)
          (then
             (call $caml_unix_error