diff options
| author | simonpj@microsoft.com <unknown> | 2007-12-20 18:03:35 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2007-12-20 18:03:35 +0000 |
| commit | c8b41f8571034a3178a28f6ecd3d37d741b09d6d (patch) | |
| tree | d83e438a8178ef21908ff59d83504b94e00baa73 /compiler/codeGen | |
| parent | 8f47436d4941e7871569e47bf8c2f5a6180bdbd5 (diff) | |
| download | haskell-c8b41f8571034a3178a28f6ecd3d37d741b09d6d.tar.gz | |
Add better panic message in getSRTInfo (Trac #1973)
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgUtils.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs index 886a36a95e..13add6c0bf 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 |