Commit 5da4371c authored by wolfgang's avatar wolfgang
Browse files

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

PowerPC: for ccalls, use the correct minimum size (32 bytes) for the
parameter area
parent b0c44859
...@@ -3473,7 +3473,7 @@ genCCall fn cconv kind args ...@@ -3473,7 +3473,7 @@ genCCall fn cconv kind args
(argReps,argCodes,vregs) = unzip3 preppedArgs (argReps,argCodes,vregs) = unzip3 preppedArgs
-- size of linkage area + size of arguments, in bytes -- 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 roundTo16 x | x `mod` 16 == 0 = x
| otherwise = x + 16 - (x `mod` 16) | otherwise = x + 16 - (x `mod` 16)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment