PR#2020
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6057 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
45f8229a30
commit
ba3f92d0ab
|
@ -117,12 +117,12 @@ let output_primitive_table outchan =
|
|||
fprintf outchan "extern long %s();\n" prim.(i)
|
||||
done;
|
||||
fprintf outchan "typedef long (*primitive)();\n";
|
||||
fprintf outchan "primitive builtin_cprim[] = {\n";
|
||||
fprintf outchan "primitive caml_builtin_cprim[] = {\n";
|
||||
for i = 0 to Array.length prim - 1 do
|
||||
fprintf outchan " %s,\n" prim.(i)
|
||||
done;
|
||||
fprintf outchan " (primitive) 0 };\n";
|
||||
fprintf outchan "char * names_of_builtin_cprim[] = {\n";
|
||||
fprintf outchan "char * caml_names_of_builtin_cprim[] = {\n";
|
||||
for i = 0 to Array.length prim - 1 do
|
||||
fprintf outchan " \"%s\",\n" prim.(i)
|
||||
done;
|
||||
|
|
|
@ -78,4 +78,4 @@ let catch_break on =
|
|||
|
||||
(* OCaml version string, must be in the format described in sys.mli. *)
|
||||
|
||||
let ocaml_version = "3.07+12 (2004-01-03)";;
|
||||
let ocaml_version = "3.07+13 (2004-01-04)";;
|
||||
|
|
Loading…
Reference in New Issue