1996-11-29 08:55:09 -08:00
|
|
|
(***********************************************************************)
|
|
|
|
|
(* *)
|
|
|
|
|
(* 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 *)
|
1999-11-17 10:59:06 -08:00
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
|
|
|
(* under the terms of the Q Public License version 1.0. *)
|
1996-11-29 08:55:09 -08:00
|
|
|
(* *)
|
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
|
|
(* $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
|
