1 (***********************************************************************)
5 (* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
6 (* Objective Caml port by John Malecki and Xavier Leroy *)
8 (* Copyright 1996 Institut National de Recherche en Informatique et *)
9 (* en Automatique. All rights reserved. This file is distributed *)
10 (* under the terms of the Q Public License version 1.0. *)
12 (***********************************************************************)
16 (**************************** Time travel ******************************)
20 exception Current_checkpoint_lost
21 exception Current_checkpoint_lost_start_at
of int64
* int64
23 val new_checkpoint
: int -> io_channel
-> unit
24 val set_file_descriptor
: int -> io_channel
-> bool
25 val kill_all_checkpoints
: unit -> unit
26 val forget_process
: io_channel
-> int -> unit
27 val recover
: unit -> unit
29 val go_to
: int64
-> unit
31 val run
: unit -> unit
32 val back_run
: unit -> unit
33 val step
: int64
-> unit
34 val finish
: unit -> unit
35 val next
: int -> unit
36 val start
: unit -> unit
37 val previous
: int -> unit