diff options
| author | Moritz Angermann <moritz.angermann@gmail.com> | 2020-11-02 13:55:57 +0800 |
|---|---|---|
| committer | Moritz Angermann <moritz.angermann@gmail.com> | 2020-11-02 13:55:57 +0800 |
| commit | e98e3d124a92cdf48108d918e501a132eaaee53a (patch) | |
| tree | cfe71abf04f1ed1b3c60b583cc07e9253215f929 /compiler/GHC/Core.hs | |
| parent | 13a7028bd83f33b0647cd924830f3ad228e9ee24 (diff) | |
| download | haskell-wip/angerman/x.tar.gz | |
[SizedCmm Word] Trying to fix TH Quoteswip/angerman/x
Diffstat (limited to 'compiler/GHC/Core.hs')
| -rw-r--r-- | compiler/GHC/Core.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/compiler/GHC/Core.hs b/compiler/GHC/Core.hs index c99182f978..112f8d8671 100644 --- a/compiler/GHC/Core.hs +++ b/compiler/GHC/Core.hs @@ -29,6 +29,7 @@ module GHC.Core ( mkIntLit, mkIntLitInt, mkWordLit, mkWordLitWord, + mkWord8Lit, mkWord8LitWord, mkWord64LitWord64, mkInt64LitInt64, mkCharLit, mkStringLit, mkFloatLit, mkFloatLitFloat, @@ -1995,6 +1996,12 @@ mkWordLitWord :: Platform -> Word -> Expr b mkWordLit platform w = Lit (mkLitWord platform w) mkWordLitWord platform w = Lit (mkLitWord platform (toInteger w)) +mkWord8Lit :: Platform -> Integer -> Expr b +mkWord8Lit _platform w = Lit (mkLitWord8 w) + +mkWord8LitWord :: Platform -> Integer -> Expr b +mkWord8LitWord _platform w = Lit (mkLitWord8 (toInteger w)) + mkWord64LitWord64 :: Word64 -> Expr b mkWord64LitWord64 w = Lit (mkLitWord64 (toInteger w)) |