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

+ implemented record copy in tcgz80.a_load_ref_cgpara

Browse Source 
git-svn-id: branches/z80@45035 -
This commit is contained in:
nickysn 2020-04-23 03:14:09 +00:00
parent 992602afcb
commit 4a0ad586d0
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/z80/cgcpu.pas
View File

@ -578,9 +578,10 @@ unit cgcpu;
end; end;
var var
tmpref, ref: treference; tmpref, ref, href: treference;
location: pcgparalocation; location: pcgparalocation;
sizeleft: tcgint; sizeleft: tcgint;
len: tcgint;
begin begin
{ cgpara.size=OS_NO requires a copy on the stack } { cgpara.size=OS_NO requires a copy on the stack }
if use_push(cgpara) then if use_push(cgpara) then
@ -588,12 +589,11 @@ unit cgcpu;
{ Record copy? } { Record copy? }
if (cgpara.size in [OS_NO,OS_F64]) or (size=OS_NO) then if (cgpara.size in [OS_NO,OS_F64]) or (size=OS_NO) then
begin begin
internalerror(2020040802); cgpara.check_simple_location;
//cgpara.check_simple_location; len:=align(cgpara.intsize,cgpara.alignment);
//len:=align(cgpara.intsize,cgpara.alignment); g_stackpointer_alloc(list,len);
//g_stackpointer_alloc(list,len); reference_reset_base(href,NR_STACK_POINTER_REG,0,ctempposinvalid,4,[]);
//reference_reset_base(href,NR_STACK_POINTER_REG,0,ctempposinvalid,4,[]); g_concatcopy(list,r,href,len);
//g_concatcopy(list,r,href,len);
end end
else else
begin begin