diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/flags.ml | 4 | ||||
-rw-r--r-- | lib/flags.mli | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index dbb8c38ab..68e287f69 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 diff --git a/lib/flags.mli b/lib/flags.mli index 2301d8a0d..08f9a279d 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -59,9 +59,11 @@ val is_unsafe : string -> bool (* Dump of globalization (to be used by coqdoc) *) +val noglob : bool ref val dump : bool ref val dump_into_file : string -> unit val dump_string : string -> unit +val dump_it : unit -> unit (* Options for the virtual machine *) |