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
3dd67f83
Commit
3dd67f83
authored
Jul 19, 2010
by
dterei
Browse files
LLVM: Fix up botched last commit
parent
fecaf153
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/llvmGen/LlvmMangler.hs
View file @
3dd67f83
...
...
@@ -157,7 +157,7 @@ fixupStack fun nfun | BS.null nfun =
let
-- fixup sub op
(
a
,
b
)
=
BS
.
breakSubstring
(
BS
.
pack
", %esp
\n
"
)
fun
(
a'
,
num
)
=
BS
.
breakEnd
dollarPred
a
num'
=
BS
.
pack
$
show
(
read
(
BS
.
unpack
num
)
+
4
:
Int
)
num'
=
BS
.
pack
$
show
(
read
(
BS
.
unpack
num
)
+
4
:
:
Int
)
fix
=
a'
`
BS
.
append
`
num'
in
if
BS
.
null
b
then
nfun
`
BS
.
append
`
a
...
...
@@ -172,7 +172,7 @@ fixupStack fun nfun =
(
jmp
,
b'
)
=
BS
.
break
eolPred
b
(
a'
,
numx
)
=
BS
.
breakEnd
dollarPred
a
(
num
,
x
)
=
BS
.
break
commaPred
numx
num'
=
BS
.
pack
$
show
(
read
(
BS
.
unpack
num
)
+
4
:
Int
)
num'
=
BS
.
pack
$
show
(
read
(
BS
.
unpack
num
)
+
4
:
:
Int
)
fix
=
a'
`
BS
.
append
`
num'
`
BS
.
append
`
x
`
BS
.
append
`
jmp
in
if
BS
.
null
b
then
nfun
`
BS
.
append
`
a
...
...
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