Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
aebc7e1b
Commit
aebc7e1b
authored
Nov 22, 2013
by
Simon Peyton Jones
Browse files
Improve panic printout
parent
8ba55ae0
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmBuildInfoTables.hs
View file @
aebc7e1b
...
...
@@ -30,6 +30,7 @@ import SMRep
import
UniqSupply
import
Util
import
PprCmm
()
import
Data.Map
(
Map
)
import
qualified
Data.Map
as
Map
import
Data.Set
(
Set
)
...
...
@@ -301,7 +302,7 @@ bundle flatmap (env, decl@(CmmProc infos lbl _ g)) (closure_cafs, mb_lbl)
get_cafs
l
_
|
l
==
entry
=
entry_cafs
|
otherwise
=
if
not
(
mapMember
l
env
)
then
pprPanic
"bundle"
(
ppr
l
<+>
ppr
lbl
<+>
ppr
(
info_tbls
infos
))
then
pprPanic
"bundle"
(
ppr
l
<+>
ppr
lbl
<+>
ppr
(
info_tbls
infos
)
$$
ppr
env
$$
ppr
decl
)
else
flatten
flatmap
$
expectJust
"bundle"
$
mapLookup
l
env
bundle
_flatmap
(
_
,
decl
)
_
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment