Commits

Anonymous committed 8e69f4b

add ocaml-annot-4.00.1.patch

  • Participants
  • Parent commits 8dcff8a

Comments (0)

Files changed (1)

ocaml-annot-4.00.1.patch

+diff -r 973d50fe6fa4 README.annot.rst
+--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
++++ b/README.annot.rst	Thu Aug 02 00:01:24 2012 +0900
+@@ -0,0 +1,13 @@
++=====================
++OCaml annot patch
++=====================
++
++This small modification to OCaml compiler introduces OCAML_ANNOT environment variable which enables annotation file creation by default without the compiler switch -annot and -bin-annot.
++
++For example::
++
++   OCAML_ANNOT=1 ocamlc hello.ml
++
++creates hello.annot and hello.cmt even without -annot or -bin-annot.
++
++
+diff -r 973d50fe6fa4 VERSION
+--- a/VERSION	Mon Jul 30 11:21:53 2012 +0800
++++ b/VERSION	Thu Aug 02 00:01:24 2012 +0900
+@@ -1,4 +1,4 @@
+-4.00.1
++4.00.1+annot
+ 
+ # The version string is the first line of this file.
+ # It must be in the format described in stdlib/sys.mli
+diff -r 973d50fe6fa4 driver/main.ml
+--- a/driver/main.ml	Mon Jul 30 11:21:53 2012 +0800
++++ b/driver/main.ml	Thu Aug 02 00:01:24 2012 +0900
+@@ -160,6 +160,11 @@
+ 
+ let main () =
+   try
++    (* OCAML_ANNOT env variable to turn on -annot by default *)
++    (try ignore (Sys.getenv "OCAML_ANNOT"); 
++         Clflags.annotations := true;
++         Clflags.binary_annotations := true;
++    with Not_found -> ()); 
+     Arg.parse Options.list anonymous usage;
+     if
+       List.length (List.filter (fun x -> !x)
+diff -r 973d50fe6fa4 driver/optmain.ml
+--- a/driver/optmain.ml	Mon Jul 30 11:21:53 2012 +0800
++++ b/driver/optmain.ml	Thu Aug 02 00:01:24 2012 +0900
+@@ -175,6 +175,11 @@
+   native_code := true;
+   let ppf = Format.err_formatter in
+   try
++    (* OCAML_ANNOT env variable to turn on -annot by default *)
++    (try ignore (Sys.getenv "OCAML_ANNOT"); 
++         Clflags.annotations := true;
++         Clflags.binary_annotations := true;
++    with Not_found -> ()); 
+     Arg.parse (Arch.command_line_options @ Options.list) anonymous usage;
+     if
+       List.length (List.filter (fun x -> !x)