OxCaml support: some runtime changes

Author: vouillon

compiler/lib-runtime-files/js_of_ocaml_compiler_runtime_files.ml

@@ -33,6 +33,7 @@ let runtime =
     ; graphics
     ; hash
     ; ieee_754
+    ; float32
     ; int64
     ; ints
     ; io

compiler/lib-runtime-files/tests/all.ml

@@ -21,6 +21,7 @@ let%expect_test _ =
     +dynlink.js
     +effect.js
     +fail.js
+    +float32.js
     +format.js
     +fs.js
     +fs_fake.js
@@ -64,6 +65,7 @@ let%expect_test _ =
     +domain.js
     +effect.js
     +fail.js
+    +float32.js
     +format.js
     +fs.js
     +fs_fake.js

runtime/js/dune

@@ -11,6 +11,7 @@
   gc.js
   graphics.js
   ieee_754.js
+  float32.js
   int64.js
   io.js
   jslib.js

runtime/js/float32.js

@@ -0,0 +1,6 @@
+//Provides: caml_is_boot_compiler
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_is_boot_compiler(_unit) {
+  return 0;
+}

runtime/js/hash.js

@@ -221,6 +221,12 @@ function caml_hash(count, limit, seed, obj) {
   return h & 0x3fffffff;
 }
 
+//Provides: caml_hash_exn
+//Requires: caml_hash
+//Version: >= 5.2, < 5.3
+//OxCaml
+var caml_hash_exn = caml_hash;
+
 //Provides: caml_string_hash
 //Requires: caml_hash_mix_final, caml_hash_mix_string
 //Version: >= 5.0

runtime/js/sys.js

@@ -311,6 +311,13 @@ function caml_sys_isatty(_chan) {
   return 0;
 }
 
+//Provides: caml_sys_const_runtime5 const
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_sys_const_runtime5(_unit) {
+  return 1;
+}
+
 //Provides: caml_runtime_variant
 //Requires: caml_string_of_jsbytes
 function caml_runtime_variant(_unit) {

runtime/wasm/float32.wat

@@ -0,0 +1,4 @@
+(module
+   (func (export "caml_is_boot_compiler") (param (ref eq)) (result (ref eq))
+      (ref.i31 (i32.const 0)))
+)

runtime/wasm/hash.wat

@@ -174,7 +174,7 @@
    (global $caml_hash_queue (ref $block)
       (array.new $block (ref.i31 (i32.const 0)) (global.get $HASH_QUEUE_SIZE)))
 
-   (func (export "caml_hash")
+   (func (export "caml_hash") (export "caml_hash_exn")
       (param $count (ref eq)) (param $limit (ref eq)) (param $seed (ref eq))
       (param $obj (ref eq)) (result (ref eq))
       (local $sz i32) (local $num i32) (local $h i32)

runtime/wasm/sys.wat

@@ -174,6 +174,10 @@
       (param $ch (ref eq)) (result (ref eq))
       (return_call $isatty (call $caml_channel_descriptor (local.get $ch))))
 
+   (func (export "caml_sys_const_runtime5")
+      (param (ref eq)) (result (ref eq))
+      (ref.i31 (i32.const 1)))
+
    (func (export "caml_runtime_variant") (param (ref eq)) (result (ref eq))
       (@string ""))