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

Don't assume an empty array literal can be a string literal.

Browse Source
This commit is contained in:
Adam Sampson 2008-04-06 15:33:18 +00:00
parent 1640b9ce63
commit 28f329dd07
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
backends/GenerateC.hs
View File

@ -517,6 +517,7 @@ cgenLiteral lr t
-- | Does a LiteralRepr represent something that can be a plain string literal? -- | Does a LiteralRepr represent something that can be a plain string literal?
isStringLiteral :: A.LiteralRepr -> Bool isStringLiteral :: A.LiteralRepr -> Bool
isStringLiteral (A.ArrayLiteral _ []) = False
isStringLiteral (A.ArrayLiteral _ aes) isStringLiteral (A.ArrayLiteral _ aes)
= and [case ae of = and [case ae of
A.ArrayElemExpr (A.Literal _ _ (A.ByteLiteral _ _)) -> True A.ArrayElemExpr (A.Literal _ _ (A.ByteLiteral _ _)) -> True