Commit bf5cb12d authored by Erwan Jahier's avatar Erwan Jahier
Browse files

Add a exception contunuation to handle Lutin Exceptions correctly in rdbg.

parent 35dea30a
......@@ -23,7 +23,7 @@ clean:
test.rif:$(EXPDIR) rabbit.cmxs
rm -f test.rif0 .lurette_rc
$(LURETTETOP) -go --output test.rif0 -seed 33 \
$(LURETTETOP) -go --output test.rif0 -seed 34 \
-rp "sut:ocaml:rabbit.cmxs:" \
-rp 'env:lutin:rabbit.lut:-main:rabbit:-L:libm.so:-loc' && \
grep -v "lurette chronogram" test.rif0 | \
......
This diff is collapsed.
......@@ -110,10 +110,10 @@ let event_incr opt =
let r = Random.int 1073741823 in
opt._event_nb <- opt._event_nb + 1;
Random.full_init [|seed; opt._event_nb|];
Printf.fprintf
stderr "The random engine seed is set with (%i,%i) (%i,%i)\n"
opt._event_nb seed r (Random.int 1073741823);
flush stderr;
(* Printf.fprintf *)
(* stderr "The random engine seed is set with (%i,%i) (%i,%i)\n" *)
(* opt._event_nb seed r (Random.int 1073741823); *)
(* flush stderr; *)
()
......
......@@ -8,12 +8,13 @@ let step p = match p with DoStep _p -> _p
type prg_ldbg =
DoStep_ldbg of (Event.ctx -> Value.t list ->
(Event.ctx -> prg_ldbg -> Value.t list -> Event.t) ->
(Event.ctx -> Event.t) -> Event.t)
(Event.ctx -> Event.t) -> (Event.ctx -> string -> Event.t)
-> Event.t)
let (step_ldbg : Event.ctx ->
prg_ldbg -> Value.t list -> (Event.ctx -> prg_ldbg -> Value.t list -> Event.t)
-> (Event.ctx -> Event.t) -> Event.t) =
-> (Event.ctx -> Event.t) -> (Event.ctx -> string -> Event.t) -> Event.t) =
fun ctx p vl cont fail_cont ->
match p with DoStep_ldbg _p -> _p ctx vl cont fail_cont
......@@ -8,10 +8,11 @@ val step : prg -> Value.t list -> (Value.t list * prg)
type prg_ldbg =
DoStep_ldbg of ( Event.ctx -> Value.t list ->
(Event.ctx -> prg_ldbg -> Value.t list -> Event.t) ->
(Event.ctx -> Event.t) -> Event.t)
(Event.ctx -> Event.t) -> (Event.ctx -> string -> Event.t)
-> Event.t)
val step_ldbg : Event.ctx -> prg_ldbg -> Value.t list ->
(Event.ctx -> prg_ldbg -> Value.t list -> Event.t) ->
(Event.ctx -> Event.t) -> Event.t
(Event.ctx -> Event.t) -> (Event.ctx -> string -> Event.t) -> Event.t
let str="1.57"
let sha="b854552"
let sha="35dea30"
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment