paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:29:33 +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 decw %si addw %dx,%si p
} }
asml.remove(p);
asml.remove(hp2); asml.remove(hp2);
p.Free;
hp2.Free; hp2.Free;
p := hp1; RemoveCurrentP(p);
Result := True; Result:=True;
Exit; Exit;
end; end;
end; end;