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/stgSyn | |
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/stgSyn')
-rw-r--r-- | compiler/stgSyn/CoreToStg.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index d55943c1d5..1ebb564928 100644 --- a/compiler/stgSyn/CoreToStg.lhs +++ b/compiler/stgSyn/CoreToStg.lhs @@ -315,7 +315,7 @@ decisions. Hence no black holes. \begin{code} -- No LitInteger's should be left by the time this is called. CorePrep -- should have converted them all to a real core representation. -coreToStgExpr (Lit (LitInteger _)) = panic "coreToStgExpr: LitInteger" +coreToStgExpr (Lit (LitInteger {})) = panic "coreToStgExpr: LitInteger" coreToStgExpr (Lit l) = return (StgLit l, emptyFVInfo, emptyVarSet) coreToStgExpr (Var v) = coreToStgApp Nothing v [] coreToStgExpr (Coercion _) = coreToStgApp Nothing coercionTokenId [] |