Skip to content
Snippets Groups Projects
Commit c5d45c13 authored by Pierre Loic Garoche's avatar Pierre Loic Garoche
Browse files

[lustresf]: tuple of false values for initial state

parent 74ca6b61
No related branches found
No related tags found
No related merge requests found
......@@ -350,7 +350,7 @@ struct
let call_stmt =
(* (%t) -> pre (thetaCallD_from_principal (event, %a)) *)
let init = mkexpr
(LustreSpec.Expr_tuple (vars_to_exprl ~prefix:"sout_" Vars.state_vars))
(LustreSpec.Expr_tuple (List.map (fun _ -> expr_of_bool false) (ActiveStates.Vars.elements Vars.state_vars)))
in
let args = (Corelang.expr_of_vdecl event_var)::
(vars_to_exprl ~prefix:"sout_" Vars.state_vars)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment