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

* if an outer capturer is required then that outer capturer must not be optimized into a register (fixes compilation with -Ooregvar enabled (e.g. in -O3))

Browse Source
This commit is contained in:
Sven/Sarah Barth 2025-01-05 13:18:46 +01:00
parent 5c4db7dbca
commit 155756f668
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/procdefutil.pas
View File

@ -656,8 +656,13 @@ implementation
begin
{$ifdef DEBUG_CAPTURER}writeln('Adding field OuterSelf to ',subcapturer.typesym.name);{$endif}
if subcapturer.owner.symtablelevel>normal_function_level then
{ the outer self is the capturer of the outer procdef }
sym:=get_or_create_capturer(curpd)
begin
{ the outer self is the capturer of the outer procdef }
sym:=get_or_create_capturer(curpd);
{ ensure that the outer capturer isn't put into a register anymore }
tabstractvarsym(sym).different_scope:=true;
tabstractvarsym(sym).varregable:=vr_none;
end
else
begin
{ the outer self is the self of the method }
@ -1383,10 +1388,12 @@ implementation
if not assigned(outercapturer) then
internalerror(2022011605);
selfnode:=cloadnode.create(outercapturer,outercapturer.owner);
make_not_regable(selfnode,[ra_different_scope]);
outeralive:=get_capturer_alive(tprocdef(ctx.procdef.owner.defowner));
if not assigned(outeralive) then
internalerror(2022051706);
alivenode:=cloadnode.create(outeralive,outeralive.owner);
make_not_regable(alivenode,[ra_different_scope]);
end;
addstatement(stmt,cassignmentnode.create(
csubscriptnode.create(