From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 4 Apr 2007 15:50:01 +0000 (+0000)
Subject: add a safety net to avoid generating bogus code
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=05386bf901cd8a45a1c205876dde8b1bb5aeedce;p=ghc-hetmet.git

add a safety net to avoid generating bogus code
---

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)