From 9879919fca94db3524d21b30fa6b7ece9d222fdd Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 29 Apr 2003 12:09:35 +0000
Subject: Mise en place d'un 2ème traducteur à l'essai (activable avec
 -ftranslate2)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3981 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/options.ml  | 1 +
 lib/options.mli | 1 +
 2 files changed, 2 insertions(+)

(limited to 'lib')

diff --git a/lib/options.ml b/lib/options.ml
index 7527c82f92..b67f8359de 100644
--- a/lib/options.ml
+++ b/lib/options.ml
@@ -32,6 +32,7 @@ let translate = ref false
 let make_translate f = translate := f; v7 := f; ()
 let do_translate () = !translate
 let translate_file = ref false
+let p1 = ref true
 
 (* Silent / Verbose *)
 let silent = ref false
diff --git a/lib/options.mli b/lib/options.mli
index 8772d22008..a65958e4f1 100644
--- a/lib/options.mli
+++ b/lib/options.mli
@@ -30,6 +30,7 @@ val translate : bool ref
 val make_translate : bool -> unit
 val do_translate : unit -> bool
 val translate_file : bool ref
+val p1 : bool ref
 
 val make_silent : bool -> unit
 val is_silent : unit -> bool
-- 
cgit v1.2.3