paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 07:40:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reference counts are now properly incremented on duplicated taicpu objects

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-07-09 17:44:20 +01:00 committed by FPK
parent 799c22d553
commit 94c87243ca
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aasmtai.pas
View File

@ -3143,6 +3143,14 @@ implementation
begin begin
new(p.oper[i]^.ref); new(p.oper[i]^.ref);
p.oper[i]^.ref^:=oper[i]^.ref^; p.oper[i]^.ref^:=oper[i]^.ref^;
if Assigned(p.oper[i]^.ref^.symbol) then
p.oper[i]^.ref^.symbol.increfs;
if Assigned(p.oper[i]^.ref^.relsymbol) then
p.oper[i]^.ref^.relsymbol.increfs;
{$ifdef jvm}
if Assigned(p.oper[i]^.ref^.indexsymbol) then
p.oper[i]^.ref^.indexsymbol.increfs;
{$endif jvm}
end; end;
{$ifdef ARM} {$ifdef ARM}
top_shifterop: top_shifterop: