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

m68k: one more alignment fix, hopefully fixes regressions not fixed by r36569

Browse Source 
git-svn-id: trunk@36570 -
This commit is contained in:
Károly Balogh 2017-06-22 02:41:36 +00:00
parent 8ed84afdd4
commit 26d5500b7c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/m68k/cpupara.pas
View File

@ -491,6 +491,8 @@ unit cpupara;
paraloc^.reference.offset:=cur_stack_offset; paraloc^.reference.offset:=cur_stack_offset;
if side=calleeside then if side=calleeside then
inc(paraloc^.reference.offset,target_info.first_parm_offset); inc(paraloc^.reference.offset,target_info.first_parm_offset);
if (paralen<target_info.stackalign{tcgsize2size[OS_INT]}) then
inc(paraloc^.reference.offset,target_info.stackalign-paralen);
cur_stack_offset:=align(cur_stack_offset+paralen,varalign); cur_stack_offset:=align(cur_stack_offset+paralen,varalign);
end end
else else