From bd2dfe3d2a820f460e2413a0aed2a48a3b4cd087 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Thu, 26 Mar 2009 18:38:28 +0000 Subject: [PATCH] Fixed pullUp so that it pulls up PROC parameters again --- transformations/SimplifyExprs.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/transformations/SimplifyExprs.hs b/transformations/SimplifyExprs.hs index da063dc..ad18e00 100644 --- 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