jeltz
/
heptagon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Fixed missing control in node apps with resets.

This commit is contained in:
Adrien Guatto 2010-07-27 17:55:45 +02:00
parent 627979534a
commit d4f441ae19
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/main/mls2obc.ml
View File

@ -281,6 +281,7 @@ let rec translate_eq map call_context { Minils.eq_lhs = pat; Minils.eq_rhs = e }
let action = List.map (control map ck) action in let action = List.map (control map ck) action in
let s = (match r, app.Minils.a_op with let s = (match r, app.Minils.a_op with
| Some r, Minils.Enode _ -> | Some r, Minils.Enode _ ->
let ck = Clocks.Con (ck, Initial.ptrue, r) in
let ra = List.map (control map ck) si' in let ra = List.map (control map ck) si' in
ra @ action @ s ra @ action @ s
| _, _ -> action @ s) in | _, _ -> action @ s) in
@ -298,6 +299,7 @@ let rec translate_eq map call_context { Minils.eq_lhs = pat; Minils.eq_rhs = e }
let s = let s =
(match reset, app.Minils.a_op with (match reset, app.Minils.a_op with
| Some r, Minils.Enode _ -> | Some r, Minils.Enode _ ->
let ck = Clocks.Con (ck, Initial.ptrue, r) in
let ra = List.map (control map ck) si' in let ra = List.map (control map ck) si' in
ra @ action @ s ra @ action @ s
| _, _ -> action @ s) | _, _ -> action @ s)