WIP

hhugo · hhugo · commit dd4f273e1355 · 2024-10-10T15:13:30.000+02:00
diff --git a/compiler/tests-check-prim/main.output5 b/compiler/tests-check-prim/main.output5
@@ -10,6 +10,7 @@ caml_dynlink_close_lib
 caml_dynlink_get_current_libs
 caml_dynlink_lookup_symbol
 caml_dynlink_open_lib
+caml_fill_string
 caml_int_as_pointer
 caml_reset_afl_instrumentation
 caml_signbit
diff --git a/compiler/tests-check-prim/unix-unix.output5 b/compiler/tests-check-prim/unix-unix.output5
@@ -10,6 +10,7 @@ caml_dynlink_close_lib
 caml_dynlink_get_current_libs
 caml_dynlink_lookup_symbol
 caml_dynlink_open_lib
+caml_fill_string
 caml_int_as_pointer
 caml_reset_afl_instrumentation
 caml_signbit
diff --git a/runtime/mlBytes.js b/runtime/mlBytes.js
@@ -430,8 +430,7 @@ function caml_bytes_set(s, i, c) {
 //Provides: caml_bytes_of_utf16_jsstring
 //Requires: jsoo_is_ascii, caml_utf8_of_utf16, MlBytes, caml_jsbytes_to_array
 function caml_bytes_of_utf16_jsstring(s) {
-  if (!jsoo_is_ascii(s));
-  s = caml_utf8_of_utf16(s);
+  if (!jsoo_is_ascii(s)) s = caml_utf8_of_utf16(s);
   return new MlBytes(caml_jsbytes_to_array(s));
 }
 

Original file line number	Diff line number	Diff line change
`@@ -430,8 +430,7 @@ function caml_bytes_set(s, i, c) {`
`430`	`430`	`//Provides: caml_bytes_of_utf16_jsstring`
`431`	`431`	`//Requires: jsoo_is_ascii, caml_utf8_of_utf16, MlBytes, caml_jsbytes_to_array`
`432`	`432`	`function caml_bytes_of_utf16_jsstring(s) {`
`433`		`- if (!jsoo_is_ascii(s));`
`434`		`- s = caml_utf8_of_utf16(s);`
	`433`	`+ if (!jsoo_is_ascii(s)) s = caml_utf8_of_utf16(s);`
`435`	`434`	`return new MlBytes(caml_jsbytes_to_array(s));`
`436`	`435`	`}`
`437`	`436`