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

* captured variables cannot be in registers typically

Browse Source
This commit is contained in:
florian 2022-08-01 22:58:57 +02:00
parent d13a867127
commit 59811090e1
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/procdefutil.pas
View File

@ -56,6 +56,7 @@ implementation
nobj,ncal,nmem,nld,nutils,
ngenutil,
symbase,symsym,symtable,defutil,defcmp,
htypechk,
pparautl,psub;
@ -1029,6 +1030,8 @@ implementation
if assigned(pinested) then
begin
n1:=ccallnode.create(create_paras(pd),ps,capturedef.symtable,cloadnode.create(capturer,capturer.owner),[],nil);
{ captured variables cannot be in registers }
make_not_regable(tcallnode(n1).methodpointer,[ra_addr_regable,ra_addr_taken]);
end
else if n.resultdef.typ=procvardef then
begin
@ -1057,10 +1060,14 @@ implementation
tloadnode(n).left:=nil;
end;
if assigned(pd.returndef) and not is_void(pd.returndef) then
n1:=cassignmentnode.create(
cloadnode.create(pd.funcretsym,pd.localst),
n1
);
begin
n1:=cassignmentnode.create(
cloadnode.create(pd.funcretsym,pd.localst),
n1
);
{ captured variables cannot be in registers }
make_not_regable(tassignmentnode(n1).left,[ra_addr_regable,ra_addr_taken]);
end;
addstatement(stmt,n1);
pd.aliasnames.insert(pd.mangledname);