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

* redundant code removed, work is meanwhile done by aasmcpu.optimize_ref

Browse Source 
git-svn-id: trunk@40282 -
This commit is contained in:
florian 2018-11-11 17:32:21 +00:00
parent 72416edcc4
commit e8ebc00b3b
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/i386/aoptcpu.pas
View File

@ -393,18 +393,6 @@ begin
else else
{ All other optimizes } { All other optimizes }
begin begin
for l := 0 to taicpu(p).ops-1 Do
if (taicpu(p).oper[l]^.typ = top_ref) then
With taicpu(p).oper[l]^.ref^ Do
begin
if (base = NR_NO) and
(index <> NR_NO) and
(scalefactor in [0,1]) and (refaddr<>addr_tlsgd) then
begin
base := index;
index := NR_NO
end
end;
case taicpu(p).opcode Of case taicpu(p).opcode Of
A_AND: A_AND:
if OptPass1And(p) then if OptPass1And(p) then