Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
8acda75b
Commit
8acda75b
authored
Sep 11, 2007
by
nr@eecs.harvard.edu
Browse files
correct two single-identifier bugs that stopped the Adams optimization from working
parent
e8b6200f
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmProcPointZ.hs
View file @
8acda75b
...
...
@@ -151,7 +151,7 @@ extendPPSet g blocks procPoints =
-- more proc points than b and is not already a proc
-- point. If found, it can become a proc point.
newId
succ_id
=
not
(
elemBlockSet
succ_id
procPoints'
)
&&
nreached
id
>
my_nreached
nreached
succ_
id
>
my_nreached
in
listToMaybe
$
filter
newId
$
succs
b
...
...
@@ -246,7 +246,7 @@ addProcPointProtocols procPoints formals g =
let
(
Block
_
t
)
=
lookupBlockEnv
(
gr_blocks
g
)
id
`
orElse
`
panic
"jump out of graph"
in
case
t
of
ZTail
(
Copy
Out
{})
(
ZLast
(
LastOther
(
LastBranch
pee
[]
)))
ZTail
(
Copy
In
{})
(
ZLast
(
LastOther
(
LastBranch
pee
[]
)))
|
elemBlockSet
pee
procPoints
->
Just
pee
_
->
Nothing
init_protocols
=
fold_blocks
maybe_add_proto
emptyBlockEnv
g
...
...
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