paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: change the stack push order in the register calling convention to left-to-right. This should fix parameter handling in nested procedures (tnest5)

Browse Source 
git-svn-id: trunk@47279 -
This commit is contained in:
Károly Balogh 2020-11-02 02:01:24 +00:00
parent 0b670d0d31
commit 9d425ff4ca
1 changed files with 4 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/m68k/cpupara.pas
View File

@ -483,10 +483,7 @@ unit cpupara;
pass all unhandled parameters are done } pass all unhandled parameters are done }
for pass:=1 to 2 do for pass:=1 to 2 do
begin begin
if pass=1 then i:=0;
i:=0
else
i:=paras.count-1;
while true do while true do
begin begin
hp:=tparavarsym(paras[i]); hp:=tparavarsym(paras[i]);
@ -631,22 +628,9 @@ unit cpupara;
end; end;
end; end;
end; end;
case pass of if i=paras.count-1 then
1: break;
begin inc(i);
if i=paras.count-1 then
break;
inc(i);
end;
2:
begin
if i=0 then
break;
dec(i);
end;
else
;
end;
end; end;
end; end;
result:=cur_stack_offset; result:=cur_stack_offset;