Runtime: update Sys_const_max_wosize

ocsigen · Nov 24, 2014 · c909b0f · c909b0f
1 parent a7eea47
commit c909b0f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/runtime/stdlib.js b/runtime/stdlib.js
@@ -828,7 +828,9 @@ function caml_sys_const_word_size () { return 32; }
 function caml_sys_const_int_size () { return 32; }
 
 //Provides: caml_sys_const_max_wosize const
-function caml_sys_const_max_wosize () { return 0x7FFFFFFF; /* max_int */}
+// max_int / 4 so that the following does not overflow
+//let max_string_length = word_size / 8 * max_array_length - 1;;
+function caml_sys_const_max_wosize () { return (0x7FFFFFFF/4) | 0;}
 
 //Provides: caml_sys_const_ostype_cygwin const
 function caml_sys_const_ostype_cygwin () { return 0; }