Commit 6aa18c40 authored by erwan's avatar erwan

Update: add source info at microstep "quit" events

parent 67548aad
......@@ -2124,7 +2124,7 @@ let rec (genpath_ldbg : t -> store -> t CoTraceExp.t -> ctx ->
Event.outputs = ctx.Event.outputs;
Event.locals = []; (* fixme *)
Event.data = ctx.Event.data;
Event.sinfo = None;
Event.sinfo = ctx.Event.sinfo;
Event.next =
(fun () -> step_ldbg ctx t react ins cont3 fail_cont excn_cont);
Event.terminate = ctx.Event.terminate;
......
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