From: wolfgang <unknown>
Date: Sat, 8 Feb 2003 20:14:19 +0000 (+0000)
Subject: [project @ 2003-02-08 20:14:19 by wolfgang]
X-Git-Tag: Approx_11550_changesets_converted~1187
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5da4371c03fe13a85d84b17f58ed33895ea473bd

[project @ 2003-02-08 20:14:19 by wolfgang]
PowerPC: for ccalls, use the correct minimum size (32 bytes) for the
parameter area
---

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index bba1d58..ffb603e 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -3473,7 +3473,7 @@ genCCall fn cconv kind args
 	(argReps,argCodes,vregs) = unzip3 preppedArgs
 
 	    -- size of linkage area + size of arguments, in bytes
-	stackDelta = roundTo16 $ (24 +) $ (4 *) $ sum $ map getPrimRepSize argReps
+	stackDelta = roundTo16 $ (24 +) $ max 32 $ (4 *) $ sum $ map getPrimRepSize argReps
 	roundTo16 x | x `mod` 16 == 0 = x
 		    | otherwise = x + 16 - (x `mod` 16)