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

+ extend the i8086 peephole optimization that converts certain sequences to lds

Browse Source 
and les instructions to also support the lss, lfs and lgs instructions on i386
  (won't be generated by the current code generator, but might become useful in
  the future, if we start using the fs and gs segment registers as well)

git-svn-id: trunk@35858 -
This commit is contained in:
nickysn 2017-04-20 13:00:26 +00:00
parent ec11864272
commit 328d546155
1 changed files with 13 additions and 1 deletions

14
compiler/i8086/aoptcpu.pas
View File

@ -39,7 +39,9 @@ unit aoptcpu;
Implementation
uses
globals,
verbose,
cpuinfo,
aoptx86,
aasmcpu;
@ -70,7 +72,11 @@ unit aoptcpu;
OpsEqual(taicpu(hp1).oper[1]^,taicpu(hp2).oper[0]^) and
(MatchOperand(taicpu(hp2).oper[1]^,NR_ES) or MatchOperand(taicpu(hp2).oper[1]^,NR_DS)) and
(MatchOperand(taicpu(hp2).oper[1]^,NR_ES) or MatchOperand(taicpu(hp2).oper[1]^,NR_DS) or
((current_settings.cputype>=cpu_386) and
(MatchOperand(taicpu(hp2).oper[1]^,NR_SS) or
MatchOperand(taicpu(hp2).oper[1]^,NR_FS) or
MatchOperand(taicpu(hp2).oper[1]^,NR_GS)))) and
(taicpu(p).oper[0]^.ref^.base=taicpu(hp1).oper[0]^.ref^.base) and
(taicpu(p).oper[0]^.ref^.index=taicpu(hp1).oper[0]^.ref^.index) and
@ -85,6 +91,12 @@ unit aoptcpu;
taicpu(p).opcode:=A_LDS;
NR_ES:
taicpu(p).opcode:=A_LES;
NR_SS:
taicpu(p).opcode:=A_LSS;
NR_FS:
taicpu(p).opcode:=A_LFS;
NR_GS:
taicpu(p).opcode:=A_LGS;
else
internalerror(2015092601);
end;