[commit: ghc] master: Print literal integers in External Core. (7b8a17a)
Simon Peyton Jones <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master http://hackage.haskell.org/trac/ghc/changeset/7b8a17ad3c0792f06ffa991e9e587f5458610a3c >--------------------------------------------------------------- commit 7b8a17ad3c0792f06ffa991e9e587f5458610a3c Author: Simon Peyton Jones <[email protected]> Date: Sat Sep 15 23:12:23 2012 +0100 Print literal integers in External Core. >--------------------------------------------------------------- compiler/coreSyn/MkExternalCore.lhs | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/compiler/coreSyn/MkExternalCore.lhs b/compiler/coreSyn/MkExternalCore.lhs index d05da2a..2103708 100644 --- a/compiler/coreSyn/MkExternalCore.lhs +++ b/compiler/coreSyn/MkExternalCore.lhs @@ -229,7 +229,8 @@ make_lit dflags l = MachWord64 i -> C.Lint i t MachFloat r -> C.Lrational r t MachDouble r -> C.Lrational r t - _ -> error "MkExternalCore died: make_lit" + LitInteger i _ -> C.Lint i t + _ -> pprPanic "MkExternalCore died: make_lit" (ppr l) where t = make_ty dflags (literalType l)