Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
c9c4951c
Commit
c9c4951c
authored
Jun 27, 2007
by
Michael D. Adams
Browse files
Formatting only
parent
1f46671f
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmBrokenBlock.hs
View file @
c9c4951c
...
...
@@ -140,13 +140,15 @@ breakBlock uniques (BasicBlock ident stmts) entry =
block = do_call current_id entry accum_stmts exits next_id
target results arguments
-}
(
CmmCall
target
results
arguments
srt
:
stmts
)
->
block
:
rest
where
next_id
=
BlockId
$
head
uniques
block
=
do_call
current_id
entry
accum_stmts
exits
next_id
target
results
arguments
rest
=
breakBlock'
(
tail
uniques
)
next_id
(
ContinuationEntry
(
map
fst
results
)
srt
)
[]
[]
stmts
(
CmmCall
target
results
arguments
(
CmmSafe
srt
)
:
stmts
)
->
block
:
rest
where
next_id
=
BlockId
$
head
uniques
block
=
do_call
current_id
entry
accum_stmts
exits
next_id
target
results
arguments
rest
=
breakBlock'
(
tail
uniques
)
next_id
(
ContinuationEntry
(
map
fst
results
)
srt
)
[]
[]
stmts
(
s
:
stmts
)
->
breakBlock'
uniques
current_id
entry
(
cond_branch_target
s
++
exits
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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