Skip to content
Snippets Groups Projects
Commit 042dc586 authored by Pierre Loic Garoche's avatar Pierre Loic Garoche
Browse files

Revert some ocaml code to ocaml 4.01 compatibility

parent 3ebf9aa2
No related branches found
No related tags found
No related merge requests found
OCAMLBUILD=/home/ploc/.opam/4.03.0+trunk/bin/ocamlbuild -classic-display -use-ocamlfind -no-links OCAMLBUILD=/usr/bin/ocamlbuild -classic-display -use-ocamlfind -no-links
prefix=/home/ploc/Local prefix=/home/ploc/Local
exec_prefix=${prefix} exec_prefix=${prefix}
......
...@@ -24,7 +24,7 @@ let print_version fmt = ...@@ -24,7 +24,7 @@ let print_version fmt =
(if !Options.mpfr then "MPFR multi-precision" else "(double) floating-point") (if !Options.mpfr then "MPFR multi-precision" else "(double) floating-point")
let file_to_module_name basename = let file_to_module_name basename =
let baseNAME = String.uppercase_ascii basename in let baseNAME = String.uppercase basename in
let baseNAME = Str.global_replace (Str.regexp "\\.\\|\\ ") "_" baseNAME in let baseNAME = Str.global_replace (Str.regexp "\\.\\|\\ ") "_" baseNAME in
baseNAME baseNAME
......
...@@ -52,7 +52,7 @@ end ...@@ -52,7 +52,7 @@ end
let load_file f = let load_file f =
let ic = open_in f in let ic = open_in f in
let n = in_channel_length ic in let n = in_channel_length ic in
let s = Bytes.create n in let s = String.create n in
really_input ic s 0 n; really_input ic s 0 n;
close_in ic; close_in ic;
(s) (s)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment