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

* fix from Florian, mantis #30334, relevant part of r33542

Browse Source 
git-svn-id: branches/fixes_3_0@35220 -
This commit is contained in:
marco 2016-12-31 15:17:21 +00:00
parent 013fff11a6
commit 926112bba1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/popt386.pas
View File

@ -74,8 +74,12 @@ begin
UpdateUsedRegs(UsedRegs, tai(p.Next));
RegUsedAfterInstruction :=
(supreg in UsedRegs) and
(not(getNextInstruction(p,p)) or
not(regLoadedWithNewValue(supreg,false,p)));
not(regLoadedWithNewValue(supreg,false,p)) and
(
not(GetNextInstruction(p,p)) or
RegReadByInstruction(supreg,p) or
not(regLoadedWithNewValue(supreg,false,p))
);
end;