diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-09-17 18:29:12 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-09-17 20:42:53 +0100 |
| commit | 1e87c0a6e485e1dbef8e9ed19191e54f6cdc54e0 (patch) | |
| tree | cf711130a5652a39f2129631479a4000581e99f6 /compiler/codeGen/CgUtils.hs | |
| parent | 0a4537fb670ed15e9eb65b4b6e9c67398634a3f5 (diff) | |
| download | haskell-1e87c0a6e485e1dbef8e9ed19191e54f6cdc54e0.tar.gz | |
Improve the handling of Integer literals
LitInteger now carries around the id of mkInteger, which it uses
to construct the core to build Integer literals. This way we don't
have to build in info about lots of Ids.
We also no longer have any special-casing for integer-simple, so
there is less code involved.
Diffstat (limited to 'compiler/codeGen/CgUtils.hs')
| -rw-r--r-- | compiler/codeGen/CgUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs index e01457ae99..a71702cb4c 100644 --- a/compiler/codeGen/CgUtils.hs +++ b/compiler/codeGen/CgUtils.hs @@ -110,7 +110,7 @@ mkSimpleLit (MachLabel fs ms fod) mkSimpleLit (MachStr _) = panic "mkSimpleLit: MachStr" -- No LitInteger's should be left by the time this is called. CorePrep -- should have converted them all to a real core representation. -mkSimpleLit (LitInteger _) = panic "mkSimpleLit: LitInteger" +mkSimpleLit (LitInteger {}) = panic "mkSimpleLit: LitInteger" mkLtOp :: Literal -> MachOp -- On signed literals we must do a signed comparison |