diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index f3f9d3c0b3fd0efb807292e18ef5ab0c978b0bc3..e8f71449abc8f7eb0128a2af8c35c43501c1b4f4 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