From c8b41f8571034a3178a28f6ecd3d37d741b09d6d Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 20 Dec 2007 18:03:35 +0000
Subject: [PATCH] Add better panic message in getSRTInfo (Trac #1973)

---
 compiler/codeGen/CgUtils.hs |    1 +
 1 file changed, 1 insertion(+)

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
-- 
1.7.10.4