From 77e22783cf3dac95ea9f122b84e011bf348c9893 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 17 Feb 2009 00:05:53 +0000
Subject: Made hack to have Drop and #use"include" working with ocaml 3.10
 public

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11929 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/doc/patch.ocaml-3.10.drop.rectypes | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 dev/doc/patch.ocaml-3.10.drop.rectypes

(limited to 'dev/doc/patch.ocaml-3.10.drop.rectypes')

diff --git a/dev/doc/patch.ocaml-3.10.drop.rectypes b/dev/doc/patch.ocaml-3.10.drop.rectypes
new file mode 100644
index 0000000000..fd804b728c
--- /dev/null
+++ b/dev/doc/patch.ocaml-3.10.drop.rectypes
@@ -0,0 +1,29 @@
+Index: scripts/coqmktop.ml
+===================================================================
+--- scripts/coqmktop.ml	(révision 11904)
++++ scripts/coqmktop.ml	(copie de travail)
+@@ -235,11 +235,23 @@
+      end;;
+ 
+      let ppf = Format.std_formatter;;
++     let set_rectypes_hack () =
++       if String.length (Sys.ocaml_version) >= 4 &
++          String.sub (Sys.ocaml_version) 0 4 = \"3.11\"
++       then
++         (* ocaml 3.10 does not have #rectypes but needs it *)
++         (* simulate a call with option -rectypes before *)
++         (* jumping to the ocaml toplevel *)
++         for i = 1 to Array.length Sys.argv - 1 do
++           Sys.argv.(i) <- \"-rectypes\"
++         done
++       else
++         () in
+      Mltop.set_top
+        {Mltop.load_obj=Topdirs.dir_load ppf;
+         Mltop.use_file=Topdirs.dir_use ppf;
+         Mltop.add_dir=Topdirs.dir_directory;
+-        Mltop.ml_loop=(fun () -> Toploop.loop ppf) };;\n"
++        Mltop.ml_loop=(fun () -> set_rectypes_hack (); Toploop.loop ppf) };;\n"
+ 
+ (* create a temporary main file to link *)
+ let create_tmp_main_file modules =
-- 
cgit v1.2.3