diff options
author | Sergei Trofimovich <slyfox@gentoo.org> | 2018-06-02 21:08:06 +0000 |
---|---|---|
committer | Sergei Trofimovich <slyfox@gentoo.org> | 2018-06-02 21:26:22 +0000 |
commit | 9ea45963ad2ef2051ca3689562607eb4916d65e8 (patch) | |
tree | e0d7510fefdaef45ad4cce4973a3246e9a9b9e31 /compiler/cmm | |
parent | faee23bb69ca813296da484bc177f4480bcaee9f (diff) | |
download | haskell-9ea45963ad2ef2051ca3689562607eb4916d65e8.tar.gz |
C codegen: print details of pprStatics panics
Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
Diffstat (limited to 'compiler/cmm')
-rw-r--r-- | compiler/cmm/PprC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index f3f9d3c0b3..e8f71449ab 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -540,11 +540,11 @@ pprStatics dflags (CmmStaticLit (CmmInt i W64) : rest) q = i `shiftR` 32 pprStatics dflags (CmmStaticLit (CmmInt _ w) : _) | w /= wordWidth dflags - = panic "pprStatics: cannot emit a non-word-sized static literal" + = pprPanic "pprStatics: cannot emit a non-word-sized static literal" (ppr w) pprStatics dflags (CmmStaticLit lit : rest) = pprLit1 lit : pprStatics dflags rest pprStatics _ (other : _) - = pprPanic "pprWord" (pprStatic other) + = pprPanic "pprStatics: other" (pprStatic other) pprStatic :: CmmStatic -> SDoc pprStatic s = case s of |