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

* make use of RemoveCurrentP

Browse Source 
git-svn-id: trunk@43532 -
This commit is contained in:
florian 2019-11-21 20:19:49 +00:00
parent 61bf55e0fe
commit f5caa9940b
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aoptx86.pas
View File

@ -2052,12 +2052,10 @@ unit aoptx86;
->
decw %si addw %dx,%si p
}
asml.remove(p);
asml.remove(hp2);
p.Free;
hp2.Free;
p := hp1;
Result := True;
RemoveCurrentP(p);
Result:=True;
Exit;
end;
end;