Skip to content

Commit 07e1bef

Browse files
committed
WIP
1 parent 45498f3 commit 07e1bef

File tree

3 files changed

+15
-6
lines changed

3 files changed

+15
-6
lines changed

compiler/tests-check-prim/main.output5

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -119,6 +119,9 @@ From +ints.js:
119119
caml_div
120120
caml_mod
121121

122+
From +io.js:
123+
caml_ml_is_binary_mode
124+
122125
From +jslib.js:
123126
caml_is_js
124127
caml_trampoline

compiler/tests-check-prim/unix-unix.output5

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -230,6 +230,9 @@ From +ints.js:
230230
caml_div
231231
caml_mod
232232

233+
From +io.js:
234+
caml_ml_is_binary_mode
235+
233236
From +jslib.js:
234237
caml_is_js
235238
caml_trampoline

compiler/tests-full/stdlib.cma.expected.js

Lines changed: 9 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -24020,6 +24020,9 @@
2402024020
cst_Digest_of_hex$1 = "Digest.of_hex",
2402124021
cst_Digest_substring$1 = "Digest.substring",
2402224022
cst_Digest_to_hex$1 = "Digest.to_hex",
24023+
caml_blake2_final = runtime.caml_blake2_final,
24024+
caml_blake2_string = runtime.caml_blake2_string,
24025+
caml_blake2_update = runtime.caml_blake2_update,
2402324026
caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
2402424027
caml_create_bytes = runtime.caml_create_bytes,
2402524028
caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
@@ -24122,7 +24125,7 @@
2412224125
compare = Stdlib_String[10],
2412324126
equal = Stdlib_String[9];
2412424127
function string(str){
24125-
/*<<digest.ml:85:4>>*/ return /*<<digest.ml:85:4>>*/ runtime.caml_blake2_string
24128+
/*<<digest.ml:85:4>>*/ return /*<<digest.ml:85:4>>*/ caml_blake2_string
2412624129
(hash_length, cst, str, 0, caml_ml_string_length(str));
2412724130
/*<<digest.ml:85:58>>*/ }
2412824131
function bytes(b){
@@ -24140,7 +24143,7 @@
2414024143
if(_g_)
2414124144
/*<<digest.ml:92:9>>*/ /*<<digest.ml:92:9>>*/ caml_call1
2414224145
(Stdlib[1], cst_Digest_substring);
24143-
/*<<digest.ml:93:4>>*/ return /*<<digest.ml:93:4>>*/ runtime.caml_blake2_string
24146+
/*<<digest.ml:93:4>>*/ return /*<<digest.ml:93:4>>*/ caml_blake2_string
2414424147
(hash_length, cst, str, ofs, len);
2414524148
/*<<digest.ml:93:44>>*/ }
2414624149
function subbytes(b, ofs, len){
@@ -24160,7 +24163,7 @@
2416024163
var toread$0 = toread;
2416124164
/*<<digest.ml:111:8>>*/ for(;;){
2416224165
if(0 === toread$0)
24163-
/*<<digest.ml:111:27>>*/ return /*<<digest.ml:111:27>>*/ runtime.caml_blake2_final
24166+
/*<<digest.ml:111:27>>*/ return /*<<digest.ml:111:27>>*/ caml_blake2_final
2416424167
(ctx, hash_length);
2416524168
/*<<digest.ml:112:44>>*/ var
2416624169
/*<<digest.ml:112:44>>*/ _e_ =
@@ -24172,7 +24175,7 @@
2417224175
/*<<digest.ml:113:10>>*/ if(0 === n)
2417324176
/*<<digest.ml:114:15>>*/ throw /*<<digest.ml:114:15>>*/ caml_maybe_attach_backtrace
2417424177
(Stdlib[12], 1);
24175-
/*<<digest.ml:116:12>>*/ /*<<digest.ml:116:12>>*/ runtime.caml_blake2_update
24178+
/*<<digest.ml:116:12>>*/ /*<<digest.ml:116:12>>*/ caml_blake2_update
2417624179
(ctx,
2417724180
/*<<digest.ml:116:23>>*/ caml_call1(Stdlib_Bytes[44], buf),
2417824181
0,
@@ -24187,9 +24190,9 @@
2418724190
/*<<digest.ml:104:16>>*/ caml_call4
2418824191
(Stdlib_In_channel[16], ic, buf, 0, buf_size);
2418924192
/*<<digest.ml:105:8>>*/ if(0 === n$0)
24190-
/*<<digest.ml:106:13>>*/ return /*<<digest.ml:106:13>>*/ runtime.caml_blake2_final
24193+
/*<<digest.ml:106:13>>*/ return /*<<digest.ml:106:13>>*/ caml_blake2_final
2419124194
(ctx, hash_length);
24192-
/*<<digest.ml:107:14>>*/ /*<<digest.ml:107:14>>*/ runtime.caml_blake2_update
24195+
/*<<digest.ml:107:14>>*/ /*<<digest.ml:107:14>>*/ caml_blake2_update
2419324196
(ctx,
2419424197
/*<<digest.ml:107:25>>*/ caml_call1(Stdlib_Bytes[44], buf),
2419524198
0,

0 commit comments

Comments
 (0)