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

* fixed handling of untyped const parameters

Browse Source 
git-svn-id: branches/z80@44971 -
This commit is contained in:
nickysn 2020-04-21 19:19:17 +00:00
parent 7f409534a1
commit 0bbd140228
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/z80/cpupara.pas
View File

@ -360,11 +360,11 @@ unit cpupara;
end end
else else
begin begin
paraloc^.def:=hp.vardef; paraloc^.def:=paradef;
paraloc^.loc:=LOC_REFERENCE; paraloc^.loc:=LOC_REFERENCE;
paraloc^.reference.index:=NR_STACK_POINTER_REG; paraloc^.reference.index:=NR_STACK_POINTER_REG;
paraloc^.reference.offset:=stack_offset; paraloc^.reference.offset:=stack_offset;
inc(stack_offset,hp.vardef.size); inc(stack_offset,paradef.size);
end; end;
paralen:=0; paralen:=0;
end; end;