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

Constant-fold table elements

Browse Source
This commit is contained in:
Adam Sampson 2007-05-11 01:58:34 +00:00
parent 95cc912a2d
commit 0337cf842f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fco2/Parse.hs
View File

@ -855,9 +855,12 @@ tableElems
return (lr, A.Array [dim] A.Byte)
<|> do m <- md
es <- tryXVX sLeft (noTypeContext $ sepBy1 expression sComma) sRight
ets <- mapM typeOfExpression es
-- Constant fold early, so that tables have a better chance of
-- becoming constants.
(es', _, _) <- liftM unzip3 $ sequence [constantFold e | e <- es]
ets <- mapM typeOfExpression es'
defT <- tableType m ets
return (A.ArrayLiteral m (map A.ArrayElemExpr es), defT)
return (A.ArrayLiteral m (map A.ArrayElemExpr es'), defT)
<?> "table elements"
stringLiteral :: OccParser (A.LiteralRepr, A.Dimension)