From 05386bf901cd8a45a1c205876dde8b1bb5aeedce Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 4 Apr 2007 15:50:01 +0000 Subject: [PATCH] add a safety net to avoid generating bogus code --- compiler/cmm/PprC.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index d1536bf..fa92911 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -433,6 +433,9 @@ pprStatics (CmmStaticLit (CmmInt i I64) : rest) #endif where r = i .&. 0xffffffff q = i `shiftR` 32 +pprStatics (CmmStaticLit (CmmInt i rep) : rest) + | machRepByteWidth rep /= wORD_SIZE + = panic "pprStatics: cannot emit a non-word-sized static literal" pprStatics (CmmStaticLit lit : rest) = pprLit1 lit : pprStatics rest pprStatics (other : rest) -- 1.7.10.4