diff options
author | tomsmeding <tom.smeding@gmail.com> | 2017-02-02 21:00:10 +0100 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2017-02-02 21:00:10 +0100 |
commit | dd1a2323e743df5ca3109bae6e213cd7b02dddee (patch) | |
tree | a064a9197de268a934a2fb7564df8424d8882541 /ast.hs | |
parent | 9e67d68574bf4b78451469d5e149cfd95b0ec9f6 (diff) |
Support 1U literals
Diffstat (limited to 'ast.hs')
-rw-r--r-- | ast.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -38,6 +38,7 @@ data Type = TypeInt Int deriving (Show, Eq) data Literal = LitInt Integer + | LitUInt Integer | LitFloat Double | LitString String | LitVar Name @@ -128,6 +129,7 @@ instance PShow Type where instance PShow Literal where pshow (LitInt i) = pshow i + pshow (LitUInt i) = pshow i ++ "U" pshow (LitFloat x) = pshow x pshow (LitString s) = pshow s pshow (LitVar n) = n |