suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed pullUp so that it pulls up PROC parameters again

Browse Source
This commit is contained in:
Neil Brown 2009-03-26 18:38:28 +00:00
parent ffbf4bed87
commit bd2dfe3d2a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
transformations/SimplifyExprs.hs
View File

@ -323,8 +323,8 @@ pullUp pullUpArraysInsideRecords = pass "Pull up definitions"
return s' return s'
doProcActual :: Transform A.Actual doProcActual :: Transform A.Actual
doProcActual a@(A.ActualVariable {}) = return a doProcActual a@(A.ActualVariable {}) = descend a
doProcActual a@(A.ActualExpression {}) = return a doProcActual a@(A.ActualExpression {}) = descend a
-- Definitely pull up channel arrays and claims: -- Definitely pull up channel arrays and claims:
doProcActual a doProcActual a
= do a' <- recurse a = do a' <- recurse a