Runtime: adjust nat prims

hhugo · hhugo · commit 46a5d083ef8c · 2024-11-19T14:45:56.000+01:00
diff --git a/compiler/tests-check-prim/main.output b/compiler/tests-check-prim/main.output
@@ -141,9 +141,6 @@ caml_string_set64
 caml_string_unsafe_set
 caml_to_js_string
 
-From +nat.js:
-compare_nat_real
-
 From +stdlib.js:
 caml_build_symbols
 caml_is_printable
diff --git a/compiler/tests-check-prim/main.output5 b/compiler/tests-check-prim/main.output5
@@ -124,9 +124,6 @@ caml_string_set64
 caml_string_unsafe_set
 caml_to_js_string
 
-From +nat.js:
-compare_nat_real
-
 From +runtime_events.js:
 caml_runtime_events_create_cursor
 caml_runtime_events_free_cursor
diff --git a/compiler/tests-check-prim/unix-unix.output b/compiler/tests-check-prim/unix-unix.output
@@ -250,9 +250,6 @@ caml_string_set64
 caml_string_unsafe_set
 caml_to_js_string
 
-From +nat.js:
-compare_nat_real
-
 From +stdlib.js:
 caml_build_symbols
 caml_is_printable
diff --git a/compiler/tests-check-prim/unix-unix.output5 b/compiler/tests-check-prim/unix-unix.output5
@@ -235,9 +235,6 @@ caml_string_set64
 caml_string_unsafe_set
 caml_to_js_string
 
-From +nat.js:
-compare_nat_real
-
 From +runtime_events.js:
 caml_runtime_events_create_cursor
 caml_runtime_events_free_cursor
diff --git a/compiler/tests-check-prim/unix-win32.output b/compiler/tests-check-prim/unix-win32.output
@@ -215,9 +215,6 @@ caml_string_set64
 caml_string_unsafe_set
 caml_to_js_string
 
-From +nat.js:
-compare_nat_real
-
 From +stdlib.js:
 caml_build_symbols
 caml_is_printable
diff --git a/compiler/tests-check-prim/unix-win32.output5 b/compiler/tests-check-prim/unix-win32.output5
@@ -201,9 +201,6 @@ caml_string_set64
 caml_string_unsafe_set
 caml_to_js_string
 
-From +nat.js:
-compare_nat_real
-
 From +runtime_events.js:
 caml_runtime_events_create_cursor
 caml_runtime_events_free_cursor
diff --git a/runtime/js/nat.js b/runtime/js/nat.js
@@ -423,12 +423,6 @@ function compare_nat(nat1, ofs1, len1, nat2, ofs2, len2) {
   return 0;
 }
 
-//Provides: compare_nat_real
-//Requires: compare_nat
-function compare_nat_real(nat1, nat2) {
-  return compare_nat(nat1, 0, nat1.data.length, nat2, 0, nat2.data.length);
-}
-
 //Provides: land_digit_nat
 function land_digit_nat(nat1, ofs1, nat2, ofs2) {
   nat1.data[ofs1] &= nat2.data[ofs2];
