From cba72045d781a07ed704f797cece5335a5ff2def Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Thu, 3 Apr 2008 11:24:47 +0000 Subject: [PATCH] Added a missing base case for transformActualVariable, when a subscripted variable is passed to a procedure --- backends/BackendPasses.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/backends/BackendPasses.hs b/backends/BackendPasses.hs index 618764c..07da117 100644 --- a/backends/BackendPasses.hs +++ b/backends/BackendPasses.hs @@ -303,6 +303,7 @@ addSizesActualParameters = doGeneric `extM` doProcess _ -> return [a] where a_sizes = A.Variable m (append_sizes n) + transformActualVariable a _ = return [a] -- | Transforms all slices into the FromFor form. simplifySlices :: Data t => t -> PassM t