adjust ml_z_of_int stub implementation

stilscher · stilscher · commit b14df8bbdfa0 · 2023-02-22T13:32:30.000+01:00
diff --git a/runtime/stubs.js b/runtime/stubs.js
@@ -30,10 +30,11 @@ function smallest_float(x) {
   return 2.2250738585072014e-308;
 }
 
-//Provides: ml_z_of_int
-//Requires: ml_z_of_int64, ml_z_to_int64
-function ml_z_of_int(x) {
-    return ml_z_of_int64(ml_z_to_int64(x));
+//external of_int: int -> t
+//Provides: ml_z_of_int const
+//Requires: bigInt
+function ml_z_of_int(i) {
+  return i | 0;
 }
 
 //Provides: caml_thread_initialize const

Original file line number	Diff line number	Diff line change
`@@ -30,10 +30,11 @@ function smallest_float(x) {`
`30`	`30`	`return 2.2250738585072014e-308;`
`31`	`31`	`}`
`32`	`32`
`33`		`-//Provides: ml_z_of_int`
`34`		`-//Requires: ml_z_of_int64, ml_z_to_int64`
`35`		`-function ml_z_of_int(x) {`
`36`		`- return ml_z_of_int64(ml_z_to_int64(x));`
	`33`	`+//external of_int: int -> t`
	`34`	`+//Provides: ml_z_of_int const`
	`35`	`+//Requires: bigInt`
	`36`	`+function ml_z_of_int(i) {`
	`37`	`+ return i \| 0;`
`37`	`38`	`}`
`38`	`39`
`39`	`40`	`//Provides: caml_thread_initialize const`