Skip to content
Snippets Groups Projects
Commit 5ca18d04 authored by erwan's avatar erwan
Browse files

Fix: when the silent is made rif mode, say it!

parent 9abceda8
No related branches found
No related tags found
No related merge requests found
(* Time-stamp: <modified the 27/03/2019 (at 17:28) by Erwan Jahier> *)
(* Time-stamp: <modified the 28/03/2019 (at 16:24) by Erwan Jahier> *)
open Algo
open Sasacore
......@@ -119,7 +119,11 @@ let (simustep: int -> int -> SasArg.t -> Process.t list -> string ->
(List.flatten enab_ll))
in
if (List.flatten all = []) then (
print_step n i args e pl activate_val enable_val;
print_step n i args e pl activate_val enable_val;
if args.rif then (
Printf.eprintf "\n# Sasa is silent; no more processes can be enabled\n";
Printf.printf "\nq\n";
flush stderr; flush stdout);
raise (Silent (n-i+1))
);
print_step n i args e pl activate_val enable_val;
......
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