Commit 541d1d89 authored by simonmar's avatar simonmar

[project @ 2002-07-19 11:46:31 by simonmar]

Sparc NCG fix from Sven Panne: 8-byte align the stack ptr when doing a ccall.
parent 180e628b
......@@ -2869,8 +2869,8 @@ genCCall fn cconv kind args
let
argcode = concatOL argcodes
(move_sp_down, move_sp_up)
= let nn = length vregs - n_argRegs
+ 1 -- (for the road)
= let diff = length vregs - n_argRegs
nn = if odd diff then diff + 1 else diff -- keep 8-byte alignment
in if nn <= 0
then (nilOL, nilOL)
else (unitOL (moveSp (-1*nn)), unitOL (moveSp (1*nn)))
......
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