Commit 9df21db4 authored by sewardj's avatar sewardj
Browse files

[project @ 2000-07-13 09:22:26 by sewardj]

Zap yet another bogon in x86 floating args to ccalls.
parent 313bf74d
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment