Runtime: adjust str prims

hhugo · hhugo · commit 7f8a23995e10 · 2024-11-19T14:45:56.000+01:00
diff --git a/compiler/tests-check-prim/dune b/compiler/tests-check-prim/dune
@@ -1,14 +1,14 @@
 (executables
  (names main)
- (libraries js_of_ocaml num)
+ (libraries js_of_ocaml num str)
  (link_flags
   (:standard -linkall))
  (modules main)
  (modes byte))
 
 (executables
  (names unix)
- (libraries js_of_ocaml num unix)
+ (libraries js_of_ocaml num str unix)
  (link_flags
   (:standard -linkall))
  (modules unix)
diff --git a/compiler/tests-check-prim/main.output b/compiler/tests-check-prim/main.output
@@ -162,15 +162,6 @@ caml_maybe_print_stats
 caml_register_global
 jsoo_toplevel_reloc
 
-From +str.js:
-caml_str_initialize
-re_match
-re_partial_match
-re_replacement_text
-re_search_backward
-re_search_forward
-re_string_match
-
 From +sync.js:
 MlMutex
 caml_ml_mutex_lock
diff --git a/compiler/tests-check-prim/main.output5 b/compiler/tests-check-prim/main.output5
@@ -147,15 +147,6 @@ caml_maybe_print_stats
 caml_register_global
 jsoo_toplevel_reloc
 
-From +str.js:
-caml_str_initialize
-re_match
-re_partial_match
-re_replacement_text
-re_search_backward
-re_search_forward
-re_string_match
-
 From +sys.js:
 caml_fatal_uncaught_exception
 caml_format_exception
diff --git a/compiler/tests-check-prim/unix-unix.output b/compiler/tests-check-prim/unix-unix.output
@@ -271,15 +271,6 @@ caml_maybe_print_stats
 caml_register_global
 jsoo_toplevel_reloc
 
-From +str.js:
-caml_str_initialize
-re_match
-re_partial_match
-re_replacement_text
-re_search_backward
-re_search_forward
-re_string_match
-
 From +sync.js:
 MlMutex
 caml_ml_mutex_lock
diff --git a/compiler/tests-check-prim/unix-unix.output5 b/compiler/tests-check-prim/unix-unix.output5
@@ -258,15 +258,6 @@ caml_maybe_print_stats
 caml_register_global
 jsoo_toplevel_reloc
 
-From +str.js:
-caml_str_initialize
-re_match
-re_partial_match
-re_replacement_text
-re_search_backward
-re_search_forward
-re_string_match
-
 From +sys.js:
 caml_fatal_uncaught_exception
 caml_format_exception
diff --git a/compiler/tests-check-prim/unix-win32.output b/compiler/tests-check-prim/unix-win32.output
@@ -236,15 +236,6 @@ caml_maybe_print_stats
 caml_register_global
 jsoo_toplevel_reloc
 
-From +str.js:
-caml_str_initialize
-re_match
-re_partial_match
-re_replacement_text
-re_search_backward
-re_search_forward
-re_string_match
-
 From +sync.js:
 MlMutex
 caml_ml_mutex_lock
diff --git a/compiler/tests-check-prim/unix-win32.output5 b/compiler/tests-check-prim/unix-win32.output5
@@ -224,15 +224,6 @@ caml_maybe_print_stats
 caml_register_global
 jsoo_toplevel_reloc
 
-From +str.js:
-caml_str_initialize
-re_match
-re_partial_match
-re_replacement_text
-re_search_backward
-re_search_forward
-re_string_match
-
 From +sys.js:
 caml_fatal_uncaught_exception
 caml_format_exception
diff --git a/runtime/js/str.js b/runtime/js/str.js
@@ -389,8 +389,3 @@ function re_replacement_text(repl, groups, orig) {
   }
   return caml_string_of_jsbytes(res);
 }
-
-//Provides: caml_str_initialize
-function caml_str_initialize(unit) {
-  return 0;
-}

Original file line number	Diff line number	Diff line change
`@@ -389,8 +389,3 @@ function re_replacement_text(repl, groups, orig) {`
`389`	`389`	`}`
`390`	`390`	`return caml_string_of_jsbytes(res);`
`391`	`391`	`}`
`392`		`-`
`393`		`-//Provides: caml_str_initialize`
`394`		`-function caml_str_initialize(unit) {`
`395`		`- return 0;`
`396`		`-}`