Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff -rc /tmp/ocaml-3.12.1/stdlib/Makefile.shared ./stdlib/Makefile.shared
- *** /tmp/ocaml-3.12.1/stdlib/Makefile.shared Fri May 21 07:28:21 2010
- --- ./stdlib/Makefile.shared Mon Sep 5 17:39:14 2011
- ***************
- *** 49,56 ****
- stdlib.cmxa: $(OBJS:.cmo=.cmx)
- $(CAMLOPT) -a -o stdlib.cmxa $(OBJS:.cmo=.cmx)
- ! sys.ml: sys.mlp ../VERSION
- ! sed -e "s|%%VERSION%%|`sed -e 1q ../VERSION`|" sys.mlp >sys.ml
- clean::
- rm -f sys.ml
- --- 49,57 ----
- stdlib.cmxa: $(OBJS:.cmo=.cmx)
- $(CAMLOPT) -a -o stdlib.cmxa $(OBJS:.cmo=.cmx)
- ! sys.ml: sys.mlp ../VERSION ../config/m.h
- ! ws=`sed -n -e 's/^#define ARCH_SIXTYFOUR/64/p' -e 's/^#undef ARCH_SIXTYFOUR/32/p' ../config/m.h`; \
- ! sed -e "s|%%VERSION%%|`sed -e 1q ../VERSION`|" -e "s|%%WORD_SIZE%%|$$ws|" sys.mlp >sys.ml
- clean::
- rm -f sys.ml
- diff -rc /tmp/ocaml-3.12.1/stdlib/sys.mlp ./stdlib/sys.mlp
- *** /tmp/ocaml-3.12.1/stdlib/sys.mlp Mon Feb 26 09:21:57 2007
- --- ./stdlib/sys.mlp Mon Sep 5 17:35:33 2011
- ***************
- *** 23,29 ****
- external get_argv: unit -> string * string array = "caml_sys_get_argv"
- let (executable_name, 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;;
- --- 23,30 ----
- external get_argv: unit -> string * string array = "caml_sys_get_argv"
- let (executable_name, argv) = get_argv()
- ! let (os_type, _) = get_config()
- ! let word_size = %%WORD_SIZE%%;;
- let max_array_length = (1 lsl (word_size - 10)) - 1;;
- let max_string_length = word_size / 8 * max_array_length - 1;;
Add Comment
Please, Sign In to add comment