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

* swapped decrefs and StripLabelFast as proposed by Gareth on the mailing list

Browse Source 
git-svn-id: trunk@43445 -
This commit is contained in:
florian 2019-11-10 18:23:50 +00:00
parent 7747c5fc27
commit 4b455600b8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aoptx86.pas
View File

@ -3537,12 +3537,12 @@ unit aoptx86;
asml.remove(hp1); asml.remove(hp1);
hp1.free; hp1.free;
{ Remove label xxx (it will have a ref of zero due to the initial check }
StripLabelFast(hp4);
{ Now we can safely decrement it } { Now we can safely decrement it }
tasmlabel(symbol).decrefs; tasmlabel(symbol).decrefs;
{ Remove label xxx (it will have a ref of zero due to the initial check }
StripLabelFast(hp4);
{ remove jmp } { remove jmp }
symbol := taicpu(hp2).oper[0]^.ref^.symbol; symbol := taicpu(hp2).oper[0]^.ref^.symbol;