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

Pulled up list expressions in a similar way to array expressions

Browse Source
This commit is contained in:
Neil Brown 2008-03-21 19:21:46 +00:00
parent bc7e682119
commit a1daf15576
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
transformations/SimplifyExprs.hs
View File

@ -324,6 +324,10 @@ pullUp pullUpArraysInsideRecords
A.ExprVariable _ (A.DirectedVariable _ _ _) -> return e' A.ExprVariable _ (A.DirectedVariable _ _ _) -> return e'
--TODO work out whether to pull up DerefVariable --TODO work out whether to pull up DerefVariable
_ -> pull t e' _ -> pull t e'
A.List _ ->
case e' of
A.ExprVariable _ _ -> return e'
_ -> pull t e'
_ -> return e' _ -> return e'
where where
pull :: A.Type -> A.Expression -> PassM A.Expression pull :: A.Type -> A.Expression -> PassM A.Expression