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

Fixed one of the occam passes so that it no longer enforces that mobile array dimensions are statically known

Browse Source
This commit is contained in:
Neil Brown 2009-03-22 15:00:08 +00:00
parent 4fd2c7c890
commit 68161bdfea
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
frontends/OccamPasses.hs
View File

@ -129,8 +129,20 @@ checkConstants :: Pass
checkConstants = occamOnlyPass "Check mandatory constants" checkConstants = occamOnlyPass "Check mandatory constants"
[Prop.constantsFolded, Prop.arrayConstructorTypesDone] [Prop.constantsFolded, Prop.arrayConstructorTypesDone]
[Prop.constantsChecked] [Prop.constantsChecked]
(applyDepthM2 doDimension doOption) recurse
where where
ops = baseOp `extOp` doType `extOp` doOption
descend, recurse :: Data a => a -> PassM a
descend = makeDescend ops
recurse = makeRecurse ops
doType :: A.Type -> PassM A.Type
-- Avoid checking that mobile dimensions are constant:
doType t@(A.Mobile {}) = return t
doType (A.Array ds t) = liftM2 A.Array (mapM doDimension ds) (recurse t)
doType t = descend t
-- Check array dimensions are constant. -- Check array dimensions are constant.
doDimension :: A.Dimension -> PassM A.Dimension doDimension :: A.Dimension -> PassM A.Dimension
doDimension d@(A.Dimension e) doDimension d@(A.Dimension e)