Cleared simulation output
This commit is contained in:
parent
bcfcf8cf39
commit
a15e17c02d
|
@ -74,7 +74,7 @@ let assert_node_res cd =
|
||||||
(fresh ("out_for_" ^ name),
|
(fresh ("out_for_" ^ name),
|
||||||
Cty_id (qn_append cd.cd_name "_out")) in
|
Cty_id (qn_append cd.cd_name "_out")) in
|
||||||
let mem, reset_i =
|
let mem, reset_i =
|
||||||
if cd.cd_stateful
|
if not cd.cd_stateful
|
||||||
then ([], [])
|
then ([], [])
|
||||||
else
|
else
|
||||||
let mem =
|
let mem =
|
||||||
|
@ -102,9 +102,10 @@ let assert_node_res cd =
|
||||||
Cif (Cuop ("!", Cfield (Cvar (fst out), local_qn outn)),
|
Cif (Cuop ("!", Cfield (Cvar (fst out), local_qn outn)),
|
||||||
[Csexpr (Cfun_call ("fprintf",
|
[Csexpr (Cfun_call ("fprintf",
|
||||||
[Cvar "stderr";
|
[Cvar "stderr";
|
||||||
Cconst (Cstrlit ("Node \\\"" ^ name
|
Cconst (Cstrlit ("Node \""
|
||||||
^ "\\\" failed at step" ^
|
^ (Names.fullname cd.cd_name)
|
||||||
" %d.\\n"));
|
^ "\" failed at step" ^
|
||||||
|
" %d.\n"));
|
||||||
Cvar step_counter]));
|
Cvar step_counter]));
|
||||||
Creturn (mk_int 1)],
|
Creturn (mk_int 1)],
|
||||||
[]);
|
[]);
|
||||||
|
|
Loading…
Reference in New Issue