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

Replaced another use of SizeVariable with VariableSizes (via specificDimSize), in SimplifyExprs

Browse Source
This commit is contained in:
Neil Brown 2009-03-31 09:22:38 +00:00
parent af9ab28718
commit 654dd453f1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
transformations/SimplifyExprs.hs
View File

@ -482,9 +482,8 @@ pullUp pullUpArraysInsideRecords = pass "Pull up definitions"
A.Array ds (A.Chan attr innerT) ->
do let ds' = [case d of
A.Dimension {} -> d
A.UnknownDimension -> A.Dimension $ A.SizeVariable m $
foldr (\n v -> A.SubscriptedVariable m (A.Subscript m A.CheckBoth
n) v) innerV (replicate i $ makeConstant m 0)
A.UnknownDimension -> A.Dimension $ A.ExprVariable m $
specificDimSize i innerV
| (d, i) <- zip ds [0..]]
spec@(A.Specification _ n _) <- makeNonceIs "dir_array" m
(A.Array ds' $ A.ChanEnd dir (dirAttr dir attr) innerT) A.Abbrev v