From 5da4371c03fe13a85d84b17f58ed33895ea473bd Mon Sep 17 00:00:00 2001
From: wolfgang <unknown>
Date: Sat, 8 Feb 2003 20:14:19 +0000
Subject: [PATCH] [project @ 2003-02-08 20:14:19 by wolfgang] PowerPC: for
 ccalls, use the correct minimum size (32 bytes) for the
 parameter area

---
 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 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)
 
-- 
1.7.10.4