OxCaml runtime: local variant of some primitives

Author: vouillon

runtime/js/array.js

@@ -18,6 +18,7 @@
 ///////////// Array
 
 //Provides: caml_array_sub mutable
+//Alias: caml_array_sub_local
 function caml_array_sub(a, i, len) {
   var a2 = new Array(len + 1);
   a2[0] = 0;
@@ -42,6 +43,7 @@ function caml_uniform_array_sub(a, i, len) {
 }
 
 //Provides: caml_array_append mutable
+//Alias: caml_array_append_local
 function caml_array_append(a1, a2) {
   var l1 = a1.length,
     l2 = a2.length;
@@ -70,6 +72,7 @@ function caml_uniform_array_append(a1, a2) {
 }
 
 //Provides: caml_array_concat mutable
+//Alias: caml_array_concat_local
 function caml_array_concat(l) {
   var a = [0];
   while (l !== 0) {
@@ -228,6 +231,7 @@ function caml_array_create_float(len) {
 }
 //Provides: caml_floatarray_create const (const)
 //Requires: caml_array_bound_error
+//Alias: caml_floatarray_create_local
 function caml_floatarray_create(len) {
   if (len >>> 0 >= ((0x7fffffff / 8) | 0)) caml_array_bound_error();
   var len = (len + 1) | 0;

runtime/js/mlBytes.js

@@ -390,6 +390,7 @@ function caml_create_string(_len) {
 
 //Provides: caml_create_bytes const
 //Requires: MlBytes,caml_invalid_argument
+//Alias: caml_create_local_bytes
 function caml_create_bytes(len) {
   if (len < 0) caml_invalid_argument("Bytes.create");
   return new MlBytes(len ? 2 : 9, "", len);

runtime/wasm/array.wat

@@ -62,7 +62,7 @@
 
    (func $caml_floatarray_create
       (export "caml_make_float_vect") (export "caml_floatarray_create")
-      (export "caml_array_create_float")
+      (export "caml_array_create_float") (export "caml_floatarray_create_local")
       (param $n (ref eq)) (result (ref eq))
       (local $sz i32)
       (local.set $sz (i31.get_s (ref.cast (ref i31) (local.get $n))))
@@ -110,7 +110,7 @@
          (struct.get $float 0 (ref.cast (ref $float) (local.get $v))))
       (ref.i31 (i32.const 0)))
 
-   (func (export "caml_array_sub")
+   (func (export "caml_array_sub") (export "caml_array_sub_local")
       (param $a (ref eq)) (param $i (ref eq)) (param $vlen (ref eq))
       (result (ref eq))
       (local $a1 (ref $block)) (local $a2 (ref $block)) (local $len i32)
@@ -163,7 +163,7 @@
          (local.get $len))
       (local.get $a'))
 
-   (func (export "caml_array_append")
+   (func (export "caml_array_append") (export "caml_array_append_local")
       (param $va1 (ref eq)) (param $va2 (ref eq)) (result (ref eq))
       (local $a1 (ref $block)) (local $a2 (ref $block)) (local $a (ref $block))
       (local $fa1 (ref $float_array)) (local $fa2 (ref $float_array))
@@ -235,7 +235,8 @@
          (return (local.get $fa))))
       (return_call $caml_floatarray_dup (local.get $fa1)))
 
-   (func (export "caml_array_concat") (param (ref eq)) (result (ref eq))
+   (func (export "caml_array_concat") (export "caml_array_concat_local")
+      (param (ref eq)) (result (ref eq))
       (local $i i32) (local $len i32)
       (local $l (ref eq)) (local $v (ref eq))
       (local $isfloat i32)

runtime/wasm/string.wat

@@ -121,7 +121,7 @@
 
    (@string $Bytes_create "Bytes.create")
 
-   (func (export "caml_create_bytes")
+   (func (export "caml_create_bytes") (export "caml_create_local_bytes")
       (param $len (ref eq)) (result (ref eq))
       (local $l i32)
       (local.set $l (i31.get_s (ref.cast (ref i31) (local.get $len))))