paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 16:50:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed offset to procedure/function parameters

Browse Source 
git-svn-id: branches/z80@44674 -
This commit is contained in:
nickysn 2020-04-09 23:48:47 +00:00
parent e8cecafffa
commit ca77f07013
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems/i_embed.pas
View File

@ -776,7 +776,7 @@ unit i_embed;
recordalignmax : 1;
maxCrecordalign : 1
);
first_parm_offset : 0;
first_parm_offset : 4;
stacksize : 1024;
stackalign : 1;
abi : abi_default;

2
compiler/z80/cpupara.pas
View File

@ -376,7 +376,7 @@ unit cpupara;
if paraloc^.loc=LOC_REFERENCE then
begin
paraloc^.reference.index:=NR_FRAME_POINTER_REG;
inc(paraloc^.reference.offset,2);
inc(paraloc^.reference.offset,target_info.first_parm_offset);
end;
end;
firstparaloc:=false;