diff options
Diffstat (limited to 'debugger/history.ml')
| -rw-r--r-- | debugger/history.ml | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/debugger/history.ml b/debugger/history.ml deleted file mode 100644 index 31a6e7ad2a..0000000000 --- a/debugger/history.ml +++ /dev/null @@ -1,44 +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$ *) - -open Int64ops -open Checkpoints -open Misc -open Primitives -open Debugger_config - -let history = ref ([] : int64 list) - -let empty_history () = - history := [] - -let add_current_time () = - let time = current_time () in - if !history = [] then - history := [time] - else if time <> List.hd !history then - history := list_truncate !history_size (time::!history) - -let previous_time_1 () = - match !history with - _::((time::_) as hist) -> - history := hist; time - | _ -> - prerr_endline "No more information."; raise Toplevel - -let rec previous_time n = - if n = _1 - then previous_time_1() - else begin ignore(previous_time_1()); previous_time(pre64 n) end |