diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2004-06-21 08:39:32 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2004-06-21 08:39:32 +0000 |
| commit | dcf879e3e9378f67ab02bcbff431b6cb2443d977 (patch) | |
| tree | d29e5c8273d48e75cadaf7b631c198f4005b6bd5 | |
| parent | e5ff19843c1a11acb12f8e6b8d81f9b536f99f98 (diff) | |
Egalite entre structures cycliques (PR#2792)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6426 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | debugger/time_travel.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/debugger/time_travel.ml b/debugger/time_travel.ml index eb98f1059..8ae3e219a 100644 --- a/debugger/time_travel.ml +++ b/debugger/time_travel.ml @@ -385,7 +385,7 @@ let forget_process fd pid = find (function c -> c.c_pid = pid) (!current_checkpoint::!checkpoints) in Printf.eprintf "Lost connection with process %d" pid; - if checkpoint = !current_checkpoint then begin + if checkpoint == !current_checkpoint then begin Printf.eprintf " (active process)\n"; match !current_checkpoint.c_state with C_stopped -> @@ -403,7 +403,7 @@ let forget_process fd pid = checkpoint.c_pid <- -1; (* Don't exist anymore *) if checkpoint.c_parent.c_pid > 0 then wait_child checkpoint.c_parent.c_fd; - if checkpoint = !current_checkpoint then + if checkpoint == !current_checkpoint then raise Current_checkpoint_lost (* Try to recover when the current checkpoint is lost. *) |