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

* try to get rid at least of one mov when looking for les/lds optimization

Browse Source 
+ debug messages

git-svn-id: trunk@38191 -
This commit is contained in:
florian 2018-02-10 22:19:57 +00:00
parent 3e63f6bbae
commit 09af451c2e
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/i8086/aoptcpu.pas
View File

@ -25,6 +25,8 @@ unit aoptcpu;
{$i fpcdefs.inc}
{$define DEBUG_AOPTCPU}
Interface
uses
@ -85,8 +87,7 @@ unit aoptcpu;
(taicpu(p).oper[0]^.ref^.segment=taicpu(hp1).oper[0]^.ref^.segment) and
(taicpu(p).oper[0]^.ref^.symbol=taicpu(hp1).oper[0]^.ref^.symbol) and
(taicpu(p).oper[0]^.ref^.relsymbol=taicpu(hp1).oper[0]^.ref^.relsymbol) and
(taicpu(p).oper[0]^.ref^.offset+2=taicpu(hp1).oper[0]^.ref^.offset) and
assigned(FindRegDealloc(taicpu(hp2).oper[0]^.reg,tai(hp2.Next))) then
(taicpu(p).oper[0]^.ref^.offset+2=taicpu(hp1).oper[0]^.ref^.offset) then
begin
case taicpu(hp2).oper[1]^.reg of
NR_DS:
@ -102,8 +103,18 @@ unit aoptcpu;
else
internalerror(2015092601);
end;
asml.remove(hp1);
hp1.free;
if assigned(FindRegDealloc(taicpu(hp2).oper[0]^.reg,tai(hp2.Next))) then
begin
asml.remove(hp1);
hp1.free;
DebugMsg('Peephole optimizer MovMovMov2LXX',p);
end
else
begin
taicpu(hp1).loadreg(0,taicpu(hp2).oper[1]^.reg);
DebugMsg('Peephole optimizer MovMovMov2LXXMov',p);
end;
asml.remove(hp2);
hp2.free;
result:=true;