summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
b0c4485)
PowerPC: for ccalls, use the correct minimum size (32 bytes) for the
parameter area
(argReps,argCodes,vregs) = unzip3 preppedArgs
-- size of linkage area + size of arguments, in bytes
(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)
roundTo16 x | x `mod` 16 == 0 = x
| otherwise = x + 16 - (x `mod` 16)