WIP

ocsigen · Jan 4, 2024 · 07e1bef · 07e1bef
1 parent 45498f3
commit 07e1bef
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 6 deletions.
diff --git a/compiler/tests-check-prim/main.output5 b/compiler/tests-check-prim/main.output5
@@ -119,6 +119,9 @@ From +ints.js:
 caml_div
 caml_mod
 
+From +io.js:
+caml_ml_is_binary_mode
+
 From +jslib.js:
 caml_is_js
 caml_trampoline

diff --git a/compiler/tests-check-prim/unix-unix.output5 b/compiler/tests-check-prim/unix-unix.output5
@@ -230,6 +230,9 @@ From +ints.js:
 caml_div
 caml_mod
 
+From +io.js:
+caml_ml_is_binary_mode
+
 From +jslib.js:
 caml_is_js
 caml_trampoline

diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
@@ -24020,6 +24020,9 @@
     cst_Digest_of_hex$1 = "Digest.of_hex",
     cst_Digest_substring$1 = "Digest.substring",
     cst_Digest_to_hex$1 = "Digest.to_hex",
+    caml_blake2_final = runtime.caml_blake2_final,
+    caml_blake2_string = runtime.caml_blake2_string,
+    caml_blake2_update = runtime.caml_blake2_update,
     caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
     caml_create_bytes = runtime.caml_create_bytes,
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
@@ -24122,7 +24125,7 @@
      compare = Stdlib_String[10],
      equal = Stdlib_String[9];
     function string(str){
-      /*<<digest.ml:85:4>>*/ return  /*<<digest.ml:85:4>>*/ runtime.caml_blake2_string
+      /*<<digest.ml:85:4>>*/ return  /*<<digest.ml:85:4>>*/ caml_blake2_string
              (hash_length, cst, str, 0, caml_ml_string_length(str));
      /*<<digest.ml:85:58>>*/ }
     function bytes(b){
@@ -24140,7 +24143,7 @@
      if(_g_)
        /*<<digest.ml:92:9>>*/  /*<<digest.ml:92:9>>*/ caml_call1
        (Stdlib[1], cst_Digest_substring);
-      /*<<digest.ml:93:4>>*/ return  /*<<digest.ml:93:4>>*/ runtime.caml_blake2_string
+      /*<<digest.ml:93:4>>*/ return  /*<<digest.ml:93:4>>*/ caml_blake2_string
              (hash_length, cst, str, ofs, len);
      /*<<digest.ml:93:44>>*/ }
     function subbytes(b, ofs, len){
@@ -24160,7 +24163,7 @@
       var toread$0 = toread;
        /*<<digest.ml:111:8>>*/ for(;;){
        if(0 === toread$0)
-         /*<<digest.ml:111:27>>*/ return  /*<<digest.ml:111:27>>*/ runtime.caml_blake2_final
+         /*<<digest.ml:111:27>>*/ return  /*<<digest.ml:111:27>>*/ caml_blake2_final
                 (ctx, hash_length);
         /*<<digest.ml:112:44>>*/ var
          /*<<digest.ml:112:44>>*/ _e_ =
@@ -24172,7 +24175,7 @@
         /*<<digest.ml:113:10>>*/ if(0 === n)
          /*<<digest.ml:114:15>>*/ throw  /*<<digest.ml:114:15>>*/ caml_maybe_attach_backtrace
                (Stdlib[12], 1);
-        /*<<digest.ml:116:12>>*/  /*<<digest.ml:116:12>>*/ runtime.caml_blake2_update
+        /*<<digest.ml:116:12>>*/  /*<<digest.ml:116:12>>*/ caml_blake2_update
         (ctx,
           /*<<digest.ml:116:23>>*/ caml_call1(Stdlib_Bytes[44], buf),
          0,
@@ -24187,9 +24190,9 @@
            /*<<digest.ml:104:16>>*/ caml_call4
            (Stdlib_In_channel[16], ic, buf, 0, buf_size);
         /*<<digest.ml:105:8>>*/ if(0 === n$0)
-         /*<<digest.ml:106:13>>*/ return  /*<<digest.ml:106:13>>*/ runtime.caml_blake2_final
+         /*<<digest.ml:106:13>>*/ return  /*<<digest.ml:106:13>>*/ caml_blake2_final
                 (ctx, hash_length);
-        /*<<digest.ml:107:14>>*/  /*<<digest.ml:107:14>>*/ runtime.caml_blake2_update
+        /*<<digest.ml:107:14>>*/  /*<<digest.ml:107:14>>*/ caml_blake2_update
         (ctx,
           /*<<digest.ml:107:25>>*/ caml_call1(Stdlib_Bytes[44], buf),
          0,