paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 05:10:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ take into account the x86 segment register in TAOptBase.RegInRef

Browse Source 
git-svn-id: trunk@36078 -
This commit is contained in:
nickysn 2017-05-04 14:08:00 +00:00
parent eac74f5a81
commit 9b7a8f0da5
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aoptbase.pas
View File

@ -160,6 +160,14 @@ unit aoptbase;
{$ifdef cpurefshaveindexreg}
Or SuperRegistersEqual(Ref.Index,Reg)
{$endif cpurefshaveindexreg}
{$ifdef x86}
or (Reg=Ref.segment)
{ if Ref.segment isn't set, the cpu uses implicitly ss or ds, depending on the base register }
or ((Ref.segment=NR_NO) and (
((Reg=NR_SS) and (SuperRegistersEqual(Ref.base,NR_EBP) or SuperRegistersEqual(Ref.base,NR_ESP))) or
((Reg=NR_DS) and not(SuperRegistersEqual(Ref.base,NR_EBP) or SuperRegistersEqual(Ref.base,NR_ESP)))
))
{$endif x86}
End;
Function TAOptBase.RegModifiedByInstruction(Reg: TRegister; p1: tai): Boolean;