Fixed pullUp so that it pulls up PROC parameters again

2009-03-26 18:38:28 +00:00 · 2009-03-26 18:38:28 +00:00 · bd2dfe3d2a
commit bd2dfe3d2a
parent ffbf4bed87
1 changed files with 2 additions and 2 deletions
--- a/transformations/SimplifyExprs.hs
+++ b/transformations/SimplifyExprs.hs
@ -323,8 +323,8 @@ pullUp pullUpArraysInsideRecords = pass "Pull up definitions"
              return s'

    doProcActual :: Transform A.Actual
-    doProcActual a@(A.ActualVariable {}) = return a
-    doProcActual a@(A.ActualExpression {}) = return a
+    doProcActual a@(A.ActualVariable {}) = descend a
+    doProcActual a@(A.ActualExpression {}) = descend a
    -- Definitely pull up channel arrays and claims:
    doProcActual a
        =  do a' <- recurse a