diff options
Diffstat (limited to 'debugger/breakpoints.mli')
| -rw-r--r-- | debugger/breakpoints.mli | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/debugger/breakpoints.mli b/debugger/breakpoints.mli deleted file mode 100644 index 091f609981..0000000000 --- a/debugger/breakpoints.mli +++ /dev/null @@ -1,61 +0,0 @@ -(***********************************************************************) -(* *) -(* 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 |