diff options
| author | herbelin | 2012-01-20 21:08:43 +0000 |
|---|---|---|
| committer | herbelin | 2012-01-20 21:08:43 +0000 |
| commit | 1c9dcf7f3b083a66e1529aa9dbb0960c739f38d6 (patch) | |
| tree | 8fa799577cba196892cfe7caa2a16c22efc4e42a /proofs/tactic_debug.mli | |
| parent | 6679d01256ce9a4a05c13eabbb4e2d85c3e6f075 (diff) | |
Breakpoints in Ltac debugger: new command "r foo" to jump to the next
call to "idtac foo" in Ltac code.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14929 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/tactic_debug.mli')
| -rw-r--r-- | proofs/tactic_debug.mli | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/proofs/tactic_debug.mli b/proofs/tactic_debug.mli index d96f4c746d..62c2359b65 100644 --- a/proofs/tactic_debug.mli +++ b/proofs/tactic_debug.mli @@ -34,6 +34,9 @@ type debug_info = val debug_prompt : int -> goal sigma -> glob_tactic_expr -> (debug_info -> 'a) -> 'a +(** Initializes debugger *) +val db_initialize : unit -> unit + (** Prints a constr *) val db_constr : debug_info -> env -> constr -> unit @@ -72,3 +75,7 @@ val explain_logic_error_no_anomaly : (exn -> Pp.std_ppcmds) ref (** Prints a logic failure message for a rule *) val db_logic_failure : debug_info -> exn -> unit + +(** Prints a logic failure message for a rule *) +val db_breakpoint : debug_info -> + identifier Util.located message_token list -> unit |