Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

fix type error in code

Browse Source
This commit is contained in:
Antoine Grimod 2022-12-15 23:48:02 +01:00
parent de294df84a
commit 21d2d0c9bb
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/passes.ml
View File

@ -408,21 +408,22 @@ let automaton_translation debug automaton =
let automata_trans_pass debug (node:t_node) : t_node option= let automata_trans_pass debug (node:t_node) : t_node option=
let rec aux automaton = match automaton with let rec aux automaton = match automaton with
| [] -> [], [] | [] -> [], [], []
| a::q -> | a::q ->
let eq, var = automaton_translation debug a let eq, var = automaton_translation debug a
and tail_eq, tail_var = aux q in and tail_eq, tail_var, tail_type = aux q in
eq@tail_eq, var::tail_var eq@tail_eq, var::tail_var, TInt::tail_type
in in
let eqs, vars = aux node.n_automata in let eqs, vars, new_ty = aux node.n_automata in
let ty, loc_vars = node.n_local_vars in
Some Some
{ {
n_name = node.n_name; n_name = node.n_name;
n_inputs = node.n_inputs; n_inputs = node.n_inputs;
n_outputs = node.n_outputs; n_outputs = node.n_outputs;
n_local_vars = vars@node.n_local_vars; n_local_vars = (new_ty@ty, vars@loc_vars);
n_equations = eqs@new_equations; n_equations = eqs@node.n_equations;
n_automata = node.n_automata; n_automata = node.n_automata;
} }