Runtime: add is_digit_normalized

hhugo · hhugo · commit a1c6cc9786a6 · 2024-11-19T14:45:56.000+01:00
diff --git a/compiler/tests-check-prim/main.output b/compiler/tests-check-prim/main.output
@@ -15,7 +15,6 @@ caml_int64_xor_native
 caml_int_as_pointer
 caml_reset_afl_instrumentation
 debugger
-is_digit_normalized
 
 Unused
 -------
diff --git a/compiler/tests-check-prim/main.output5 b/compiler/tests-check-prim/main.output5
@@ -8,7 +8,6 @@ caml_drop_continuation
 caml_int_as_pointer
 caml_reset_afl_instrumentation
 debugger
-is_digit_normalized
 
 Unused
 -------
diff --git a/compiler/tests-check-prim/unix-unix.output b/compiler/tests-check-prim/unix-unix.output
@@ -16,7 +16,6 @@ caml_int_as_pointer
 caml_reset_afl_instrumentation
 caml_unix_map_file_bytecode
 debugger
-is_digit_normalized
 unix_accept
 unix_access
 unix_alarm
diff --git a/compiler/tests-check-prim/unix-unix.output5 b/compiler/tests-check-prim/unix-unix.output5
@@ -119,7 +119,6 @@ caml_unix_waitpid
 caml_unix_write
 caml_unix_write_bigarray
 debugger
-is_digit_normalized
 
 Unused
 -------
diff --git a/compiler/tests-check-prim/unix-win32.output b/compiler/tests-check-prim/unix-win32.output
@@ -16,7 +16,6 @@ caml_int_as_pointer
 caml_reset_afl_instrumentation
 caml_unix_map_file_bytecode
 debugger
-is_digit_normalized
 unix_accept
 unix_access
 unix_bind
diff --git a/compiler/tests-check-prim/unix-win32.output5 b/compiler/tests-check-prim/unix-win32.output5
@@ -85,7 +85,6 @@ caml_unix_waitpid
 caml_unix_write
 caml_unix_write_bigarray
 debugger
-is_digit_normalized
 
 Unused
 -------
diff --git a/runtime/js/nat.js b/runtime/js/nat.js
@@ -143,6 +143,11 @@ function is_digit_zero(nat, ofs) {
   return 0;
 }
 
+//Provides: is_digit_normalized
+function is_digit_normalized(nat, ofs) {
+  return 1;
+}
+
 //Provides: is_digit_odd
 function is_digit_odd(nat, ofs) {
   if (nat.data[ofs] & 1) return 1;
