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

Inlining: fix issue with nesting of blocks.

Browse source
This commit is contained in:
Adrien Guatto 2012-03-07 11:52:01 +01:00
parent 3e8e54f42b
commit 6870ea62c9
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
compiler/heptagon/transformations/inline.ml
View file

@ -119,10 +119,10 @@ let exp funs (env, newvars, newequs) exp =
| _ -> exp, (env, newvars, newequs)
let block funs (env, newvars, newequs) blk =
let (blk, (env, newvars, newequs)) =
Hept_mapfold.block funs (env, newvars, newequs) blk in
({ blk with b_local = newvars @ blk.b_local; b_equs = newequs @ blk.b_equs; },
(env, [], []))
let (blk, (env, newvars', newequs')) =
Hept_mapfold.block funs (env, [], []) blk in
({ blk with b_local = newvars' @ blk.b_local; b_equs = newequs' @ blk.b_equs; },
(env, newvars, newequs))
let node_dec funs (env, newvars, newequs) nd =
let nd, (env, newvars, newequs) =