Added a missing base case for transformActualVariable, when a subscripted variable is passed to a procedure

This commit is contained in:
Neil Brown 2008-04-03 11:24:47 +00:00
parent 463ddc636b
commit cba72045d7

View File

@ -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