diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-12-01 15:17:06 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-12-01 15:17:06 +0000 |
| commit | f3b7f240b44f757aea1b8ab830e2f49f78ea5315 (patch) | |
| tree | 947af14f1b7b233fe5ed24afcb1be6c5ac8a412b /compiler | |
| parent | 5723262f616ac02ddf637f6ff480a599c737ea0d (diff) | |
| download | haskell-f3b7f240b44f757aea1b8ab830e2f49f78ea5315.tar.gz | |
make a panic message more informative and suggest -dcore-lint (see #4534)
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/codeGen/CgBindery.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/codeGen/CgBindery.lhs b/compiler/codeGen/CgBindery.lhs index 59996c3812..9a043f1efd 100644 --- a/compiler/codeGen/CgBindery.lhs +++ b/compiler/codeGen/CgBindery.lhs @@ -317,14 +317,14 @@ cgLookupPanic :: Id -> FCode a cgLookupPanic id = do static_binds <- getStaticBinds local_binds <- getBinds - srt <- getSRTLabel - pprPanic "cgPanic" +-- srt <- getSRTLabel + pprPanic "cgLookupPanic (probably invalid Core; try -dcore-lint)" (vcat [ppr id, ptext (sLit "static binds for:"), vcat [ ppr (cg_id info) | info <- varEnvElts static_binds ], ptext (sLit "local binds for:"), - vcat [ ppr (cg_id info) | info <- varEnvElts local_binds ], - ptext (sLit "SRT label") <+> pprCLabel srt + vcat [ ppr (cg_id info) | info <- varEnvElts local_binds ] +-- ptext (sLit "SRT label") <+> pprCLabel srt ]) \end{code} |