From 9df21db498fed4645fc624e692d70672a84432dc Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Thu, 13 Jul 2000 09:22:26 +0000
Subject: [PATCH] [project @ 2000-07-13 09:22:26 by sewardj] Zap yet another
bogon in x86 floating args to ccalls.
---
ghc/compiler/nativeGen/MachCode.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 957a0d146cba..f54c759ee6e9 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
--
GitLab