WIP

hhugo · hhugo · commit a490036e2565 · 2024-10-11T10:14:11.000+02:00
diff --git a/CHANGES.md b/CHANGES.md
@@ -23,6 +23,7 @@
   requested at compile time (--enable with-js-error) or at startup (OCAMLRUNPARAM=b=1)
 * Runtime: allow dynlink of precompiled js with separate compilation (#1676)
 * Runtime: reimplement the runtime of weak and ephemeron (#1707)
+* Runtime: refactor mlBytes
 * Lib: Modify Typed_array API for compatibility with WebAssembly
 * Toplevel: no longer set globals for toplevel initialization
 
diff --git a/compiler/tests-check-prim/main.output b/compiler/tests-check-prim/main.output
@@ -8,7 +8,6 @@ caml_dynlink_close_lib
 caml_dynlink_get_current_libs
 caml_dynlink_lookup_symbol
 caml_dynlink_open_lib
-caml_fill_string
 caml_int64_add_native
 caml_int64_and_native
 caml_int64_div_native
diff --git a/compiler/tests-check-prim/main.output5 b/compiler/tests-check-prim/main.output5
@@ -10,7 +10,6 @@ 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.output b/compiler/tests-check-prim/unix-unix.output
@@ -8,7 +8,6 @@ caml_dynlink_close_lib
 caml_dynlink_get_current_libs
 caml_dynlink_lookup_symbol
 caml_dynlink_open_lib
-caml_fill_string
 caml_int64_add_native
 caml_int64_and_native
 caml_int64_div_native
diff --git a/compiler/tests-check-prim/unix-unix.output5 b/compiler/tests-check-prim/unix-unix.output5
@@ -10,7 +10,6 @@ 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
@@ -572,6 +572,7 @@ function caml_bytes_greaterthan(s1, s2) {
 }
 
 //Provides: caml_fill_bytes
+//Alias: caml_fill_string
 function caml_fill_bytes(s, i, l, c) {
   if (l > 0) {
     for (l += i; i < l; i++) s.a[i] = c;

Original file line number	Diff line number	Diff line change
`@@ -572,6 +572,7 @@ function caml_bytes_greaterthan(s1, s2) {`
`572`	`572`	`}`
`573`	`573`
`574`	`574`	`//Provides: caml_fill_bytes`
	`575`	`+//Alias: caml_fill_string`
`575`	`576`	`function caml_fill_bytes(s, i, l, c) {`
`576`	`577`	`if (l > 0) {`
`577`	`578`	`for (l += i; i < l; i++) s.a[i] = c;`