diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-07-08 10:41:22 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-07-12 11:16:13 +0100 |
| commit | 62f45ffa5f489df415a5e4b99c3dc6f54f26594e (patch) | |
| tree | 509baaa8a1c9dc1cd7d90862cfba2b840b399c55 /compiler/deSugar/MatchLit.lhs | |
| parent | 0f0c1b5bcb2e25645196e6de94003f5aa133dc0e (diff) | |
| download | haskell-62f45ffa5f489df415a5e4b99c3dc6f54f26594e.tar.gz | |
Add 64-bit signed and unsigned integer literals to HsSyn.
No concrete syntax yet, but I need to be able to use these in code
generated for derived Typeable instances.
Diffstat (limited to 'compiler/deSugar/MatchLit.lhs')
| -rw-r--r-- | compiler/deSugar/MatchLit.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/deSugar/MatchLit.lhs b/compiler/deSugar/MatchLit.lhs index 0bd2538937..173bad999c 100644 --- a/compiler/deSugar/MatchLit.lhs +++ b/compiler/deSugar/MatchLit.lhs @@ -65,6 +65,8 @@ dsLit (HsStringPrim s) = return (Lit (MachStr s)) dsLit (HsCharPrim c) = return (Lit (MachChar c)) dsLit (HsIntPrim i) = return (Lit (MachInt i)) dsLit (HsWordPrim w) = return (Lit (MachWord w)) +dsLit (HsInt64Prim i) = return (Lit (MachInt64 i)) +dsLit (HsWord64Prim w) = return (Lit (MachWord64 w)) dsLit (HsFloatPrim f) = return (Lit (MachFloat (fl_value f))) dsLit (HsDoublePrim d) = return (Lit (MachDouble (fl_value d))) @@ -111,6 +113,8 @@ hsLitKey :: HsLit -> Literal -- others have been removed by tidy hsLitKey (HsIntPrim i) = mkMachInt i hsLitKey (HsWordPrim w) = mkMachWord w +hsLitKey (HsInt64Prim i) = mkMachInt64 i +hsLitKey (HsWord64Prim w) = mkMachWord64 w hsLitKey (HsCharPrim c) = MachChar c hsLitKey (HsStringPrim s) = MachStr s hsLitKey (HsFloatPrim f) = MachFloat (fl_value f) |