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

Small present bugfix.

Browse source
This commit is contained in:
Léonard Gérard 2011-06-09 14:13:08 +02:00
parent b60e8ab4bb
commit c3382e4284
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/heptagon/transformations/present.ml
View file

@ -15,7 +15,7 @@ open Hept_mapfold
let translate_present_handlers handlers cont =
let translate_present_handler { p_cond = e; p_block = b } cont =
let stateful = b.b_stateful or cont.b_stateful in
mk_block ~defnames:b.b_defnames
mk_block ~stateful:stateful ~defnames:b.b_defnames
[mk_switch_equation e
[{ w_name = Initial.ptrue; w_block = b };
{ w_name = Initial.pfalse; w_block = cont }]] in