paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 16:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed refs book keeping

Browse Source 
git-svn-id: trunk@2211 -
This commit is contained in:
florian 2006-01-07 21:10:39 +00:00
parent 27c92161d6
commit e43a1223ff
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/i386/popt386.pas
View File

@ -629,7 +629,11 @@ begin
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 free'ing hp1, the ref. isn't decresed, so we don't
increase it (FK)
taicpu(p).oper[0]^.ref^.symbol.increfs;
}
asml.remove(hp1);
hp1.free;
GetFinalDestination(asml, taicpu(p),0);