Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
9df21db4
Commit
9df21db4
authored
Jul 13, 2000
by
sewardj
Browse files
[project @ 2000-07-13 09:22:26 by sewardj]
Zap yet another bogon in x86 floating args to ccalls.
parent
313bf74d
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/nativeGen/MachCode.lhs
View file @
9df21db4
...
...
@@ -2410,7 +2410,7 @@ genCCall fn cconv kind args
if (case sz of DF -> True; F -> True; _ -> False)
then returnNat (size,
code `appOL`
toOL [SUB L (OpImm (ImmInt
8
)) (OpReg esp),
toOL [SUB L (OpImm (ImmInt
size
)) (OpReg esp),
DELTA (delta-size),
GST sz reg (AddrBaseIndex (Just esp)
Nothing
...
...
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