paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 07:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed missing offset assignment

Browse Source 
git-svn-id: trunk@984 -
This commit is contained in:
florian 2005-08-30 08:59:23 +00:00
parent f4c15f16bf
commit 609f35b34c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/arm/cpupara.pas
View File

@ -316,6 +316,7 @@ unit cpupara;
paraloc^.size:=int_cgsize(paralen);
if (side=callerside) then
paraloc^.reference.index:=NR_STACK_POINTER_REG;
paraloc^.reference.offset:=stack_offset;
inc(stack_offset,align(paralen,4));
paralen:=0;
end;