C codegen: print details of pprStatics panics
authorSergei Trofimovich <slyfox@gentoo.org>
Sat, 2 Jun 2018 21:08:06 +0000 (21:08 +0000)
committerSergei Trofimovich <slyfox@gentoo.org>
Sat, 2 Jun 2018 21:26:22 +0000 (21:26 +0000)
Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
compiler/cmm/PprC.hs

index f3f9d3c..e8f7144 100644 (file)
@@ -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