diff options
| author | msozeau | 2013-02-27 16:28:33 +0000 |
|---|---|---|
| committer | msozeau | 2013-02-27 16:28:33 +0000 |
| commit | a10419ad28f22e1d197bf51181b792c050e5f53e (patch) | |
| tree | 9763b0a229d363f7ef14d9185512a5ab6885ee2d | |
| parent | b3e1879a09c3623c7a04858a7421b316abd65293 (diff) | |
Update debug code according to reorganization into modules.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16254 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | dev/base_include | 2 | ||||
| -rw-r--r-- | dev/db_printers.ml | 2 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 5 |
3 files changed, 5 insertions, 4 deletions
diff --git a/dev/base_include b/dev/base_include index 6b10dc5992..c75413a386 100644 --- a/dev/base_include +++ b/dev/base_include @@ -196,7 +196,7 @@ open Declareops;; let constbody_of_string s = let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_string s)) in - Option.get (body_of_constant b);; + Option.get (Declareops.body_of_constant b);; (* Get the current goal *) (* diff --git a/dev/db_printers.ml b/dev/db_printers.ml index 95e94c6d86..8e99c9dc72 100644 --- a/dev/db_printers.ml +++ b/dev/db_printers.ml @@ -11,6 +11,6 @@ open Names let pp s = pp (hov 0 s) let prid id = Format.print_string (Id.to_string id) -let prsp sp = Format.print_string (string_of_path sp) +let prsp sp = Format.print_string (DirPath.to_string sp) diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 0ef590cdf5..e735dde0dd 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1170,7 +1170,7 @@ let _ = { optsync = true; optdepr = false; optname = "use of the program extension"; - optkey = ["Program"]; + optkey = ["Program";"Mode"]; optread = (fun () -> !Flags.program_mode); optwrite = (fun b -> Flags.program_mode:=b) } @@ -1796,7 +1796,8 @@ let interp c = Obligations.set_program_mode isprogcmd; try interp c; Locality.check_locality (); - Flags.program_mode := mode; + if not (not mode && !Flags.program_mode && not isprogcmd) then + Flags.program_mode := mode; true with e -> let e = Errors.push e in |