paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-30 23:42:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed refs bookkeeping of jump labels (fix from Florian in popt386)

Browse Source 
git-svn-id: trunk@2225 -
This commit is contained in:
Jonas Maebe 2006-01-08 15:50:14 +00:00
parent 4e35206d33
commit db580afbff
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aoptobj.pas
View File

@ -1055,7 +1055,11 @@ Unit AoptObj;
taicpu(p).condition:=inverse_cond(taicpu(p).condition);
tai_label(hp2).l.decrefs;
taicpu(p).oper[0]^.ref^.symbol:=taicpu(hp1).oper[0]^.ref^.symbol;
taicpu(p).oper[0]^.ref^.symbol.increfs;
{ when freeing hp1, the reference count
isn't decreased, so don't increase
taicpu(p).oper[0]^.ref^.symbol.increfs;
}
{$ifdef SPARC}
hp2:=tai(hp1.next);
asml.remove(hp2);