From: simonpj@microsoft.com <unknown>
Date: Thu, 20 Dec 2007 18:03:35 +0000 (+0000)
Subject: Add better panic message in getSRTInfo (Trac #1973)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c8b41f8571034a3178a28f6ecd3d37d741b09d6d

Add better panic message in getSRTInfo (Trac #1973)
---

diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs
index 886a36a..13add6c 100644
--- a/compiler/codeGen/CgUtils.hs
+++ b/compiler/codeGen/CgUtils.hs
@@ -994,6 +994,7 @@ getSRTInfo = do
     -- TODO: Should we panic in this case?
     -- Someone obviously thinks there should be an SRT
     NoSRT -> return NoC_SRT
+    SRTEntries {} -> panic "getSRTInfo: SRTEntries.  Perhaps you forgot to run SimplStg?"
     SRT off len bmp
       | len > hALF_WORD_SIZE_IN_BITS || bmp == [fromIntegral srt_escape]
       -> do id <- newUnique