[project @ 2003-02-08 20:14:19 by wolfgang]

[ghc-hetmet.git] / ghc / compiler / nativeGen / MachCode.lhs

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index bba1d58..ffb603e 100644 (file)
--- 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)