Commit c2eb6c77 authored by erwan's avatar erwan

Update: monadisation of Lutin, part 1.

Rationale: make rdbg time traveling work.
parent 43c4caa9
This diff is collapsed.
......@@ -8,6 +8,7 @@ val make : ?libs:string list option -> string list -> string -> (t * Prog.t)
val get_init_state : ?verb_level:int -> t -> Prog.t -> Prog.state
(** [make_state infile mnode] *)
val make_state : ?libs:string list option -> ?verb_level:int -> string list -> string -> Prog.state
val make_state : ?libs:string list option -> ?verb_level:int -> string list -> string
-> Prog.state
(* val fomula_of : Var.env -> Var.env -> CoAlgExp.t -> Exp.formula *)
......@@ -126,8 +126,9 @@ let rec to_simu oc infile mnode opt = (
let state0 = LutProg.get_init_state zelutprog zeprog in
let init_state_dyn = { state0.Prog.d with Prog.verbose = Verbose.level () } in
let init_state = { state0 with Prog.d = init_state_dyn } in
let loc = if (MainArg.show_locals opt) then Some init_state.Prog.s.Prog.loc_vars else None in
let loc = if (MainArg.show_locals opt) then
Some init_state.Prog.s.Prog.loc_vars else None
in
let seed = MainArg.seed opt in
let msg =
Printf.sprintf
......
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