diff options
| author | sewardj <unknown> | 2000-07-13 09:22:26 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-07-13 09:22:26 +0000 |
| commit | 9df21db498fed4645fc624e692d70672a84432dc (patch) | |
| tree | cf8054d7843bfa94545a974336941b973949a6aa | |
| parent | 313bf74d612ec1086bb55e17cb035a17f0727f6f (diff) | |
| download | haskell-9df21db498fed4645fc624e692d70672a84432dc.tar.gz | |
[project @ 2000-07-13 09:22:26 by sewardj]
Zap yet another bogon in x86 floating args to ccalls.
| -rw-r--r-- | ghc/compiler/nativeGen/MachCode.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs index 957a0d146c..f54c759ee6 100644 --- a/ghc/compiler/nativeGen/MachCode.lhs +++ b/ghc/compiler/nativeGen/MachCode.lhs @@ -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 |