Take into account the -nosink option in Sigali
Corrected bug: do not suppress the last state variable when -nosink is on.
This commit is contained in:
parent
165ff8d7fa
commit
2be4e287b9
|
@ -432,8 +432,13 @@ module Printer =
|
||||||
fprintf ff "%s_triang : Triang(constraint(%s),controllables,phantom_vars);@,"
|
fprintf ff "%s_triang : Triang(constraint(%s),controllables,phantom_vars);@,"
|
||||||
name name;
|
name name;
|
||||||
|
|
||||||
|
|
||||||
|
let states =
|
||||||
|
match !Compiler_options.nosink with
|
||||||
|
true -> states
|
||||||
|
| false ->
|
||||||
(* Suppress sink state as controller input *)
|
(* Suppress sink state as controller input *)
|
||||||
let states = List.rev (List.tl (List.rev states)) in
|
List.rev (List.tl (List.rev states)) in
|
||||||
(* controller vars *)
|
(* controller vars *)
|
||||||
fprintf ff "controller_inputs : [@[";
|
fprintf ff "controller_inputs : [@[";
|
||||||
print_list ff print_name "," (uncont_inputs
|
print_list ff print_name "," (uncont_inputs
|
||||||
|
|
Loading…
Reference in a new issue