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

Handle Infer in evalSimpleLiteral.

Browse Source
This commit is contained in:
Adam Sampson 2008-04-06 02:28:43 +00:00
parent 71df38813f
commit 2fdf749be0
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
common/EvalLiterals.hs
View File

@ -113,6 +113,13 @@ fromRead = fromRead' id undefined
-- | Evaluate a simple (non-array) literal.
evalSimpleLiteral :: A.Expression -> EvalM OccValue
-- If the type hasn't yet been inferred, we use the default type.
evalSimpleLiteral (A.Literal _ A.Infer (A.ByteLiteral _ s))
= evalByteLiteral s
evalSimpleLiteral (A.Literal _ A.Infer (A.IntLiteral _ s))
= fromRead OccInt (readSigned readDec) s
evalSimpleLiteral (A.Literal _ A.Infer (A.HexLiteral _ s))
= fromRead OccInt readHex s
evalSimpleLiteral (A.Literal _ A.Byte (A.ByteLiteral _ s))
= evalByteLiteral s
evalSimpleLiteral (A.Literal _ A.Byte (A.IntLiteral _ s))