paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +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;
var
tmpref, ref: treference;
tmpref, ref, href: treference;
location: pcgparalocation;
sizeleft: tcgint;
len: tcgint;
begin
{ cgpara.size=OS_NO requires a copy on the stack }
if use_push(cgpara) then
@ -588,12 +589,11 @@ unit cgcpu;
{ Record copy? }
if (cgpara.size in [OS_NO,OS_F64]) or (size=OS_NO) then
begin
internalerror(2020040802);
//cgpara.check_simple_location;
//len:=align(cgpara.intsize,cgpara.alignment);
//g_stackpointer_alloc(list,len);
//reference_reset_base(href,NR_STACK_POINTER_REG,0,ctempposinvalid,4,[]);
//g_concatcopy(list,r,href,len);
cgpara.check_simple_location;
len:=align(cgpara.intsize,cgpara.alignment);
g_stackpointer_alloc(list,len);
reference_reset_base(href,NR_STACK_POINTER_REG,0,ctempposinvalid,4,[]);
g_concatcopy(list,r,href,len);
end
else
begin