blob: 091f609981f680b95e4c0072699575413c1f1412 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
(* Objective Caml port by John Malecki and Xavier Leroy *)
(* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the Q Public License version 1.0. *)
(* *)
(***********************************************************************)
(* $Id$ *)
(******************************* Breakpoints ***************************)
open Primitives
open Instruct
(*** Debugging. ***)
val debug_breakpoints : bool ref
(*** Information about breakpoints. ***)
val breakpoints_count : unit -> int
(* Breakpoint number -> debug_event_kind. *)
val breakpoints : (int * debug_event) list ref
(* Is there a breakpoint at `pc' ? *)
val breakpoint_at_pc : int -> bool
(* List of breakpoints at `pc'. *)
val breakpoints_at_pc : int -> int list
(*** Set and remove breakpoints ***)
(* Ensure the current version in installed in current checkpoint. *)
val update_breakpoints : unit -> unit
(* Execute given function with no breakpoint in current checkpoint. *)
(* --- `goto' run faster so (does not stop on each breakpoint). *)
val execute_without_breakpoints : (unit -> unit) -> unit
(* Insert a new breakpoint in lists. *)
val new_breakpoint : debug_event -> unit
(* Remove a breakpoint from lists. *)
val remove_breakpoint : int -> unit
val remove_all_breakpoints : unit -> unit
(*** Temporary breakpoints. ***)
(* Temporary breakpoint position. *)
val temporary_breakpoint_position : int option ref
(* Execute `funct' with a breakpoint added at `pc'. *)
(* --- Used by `finish'. *)
val exec_with_temporary_breakpoint : int -> (unit -> unit) -> unit
|
