diff options
Diffstat (limited to 'stdlib/sys.ml')
| -rw-r--r-- | stdlib/sys.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/stdlib/sys.ml b/stdlib/sys.ml index 0a117bc40..475bacadb 100644 --- a/stdlib/sys.ml +++ b/stdlib/sys.ml @@ -18,6 +18,8 @@ external get_argv: unit -> string array = "sys_get_argv" let argv = get_argv() let (os_type, word_size) = get_config() +let max_array_length = (1 lsl (word_size - 10)) - 1;; +let max_string_length = word_size / 8 * max_array_length - 1;; external file_exists: string -> bool = "sys_file_exists" external remove: string -> unit = "sys_remove" |