projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8f47436
)
Add better panic message in getSRTInfo (Trac #1973)
author
simonpj@microsoft.com
<unknown>
Thu, 20 Dec 2007 18:03:35 +0000
(18:03 +0000)
committer
simonpj@microsoft.com
<unknown>
Thu, 20 Dec 2007 18:03:35 +0000
(18:03 +0000)
compiler/codeGen/CgUtils.hs
patch
|
blob
|
history
diff --git
a/compiler/codeGen/CgUtils.hs
b/compiler/codeGen/CgUtils.hs
index
886a36a
..
13add6c
100644
(file)
--- 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