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

Don't forget to optimise control recursively

Browse source
This commit is contained in:
Cédric Pasteur 2011-11-24 16:09:47 +01:00
parent 1b73f3444e
commit 3369f6dffc
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
compiler/obc/control.ml
View file

@ -122,7 +122,8 @@ and joinhandlers j h1 h2 =
with Not_found -> s1, h2 in
(c1, join_block j s1') :: joinhandlers j h1' h2'
let block _ j b =
let block funs j b =
let b, _ = Obc_mapfold.block funs j b in
{ b with b_body = joinlist j b.b_body }, j
let class_def funs acc cd =