Suppression de l'option -dump-glob et ajout d'une option -no-glob

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11167 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/flags.ml b/lib/flags.ml
index dbb8c38abf..68e287f693 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -84,6 +84,7 @@ let is_unsafe s = Stringset.mem s !unsafe_set
 
 (* Dump of globalization (to be used by coqdoc) *)
 
+let noglob = ref false
 let dump = ref false
 let dump_file = ref ""
 let dump_into_file f = dump := true; dump_file := f
@@ -94,9 +95,10 @@ let dump_string = Buffer.add_string dump_buffer
 
 let dump_it () = 
   if !dump then begin
-    let mode = [Open_wronly; Open_append; Open_creat] in
+    let mode = [Open_wronly; Open_creat] in
     let c = open_out_gen mode 0o666 !dump_file in
     output_string c (Buffer.contents dump_buffer);
+    Buffer.clear dump_buffer;
     close_out c
   end