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

* some small improvements

Browse Source
This commit is contained in:
Jonas Maebe 2000-11-03 17:53:24 +00:00
parent 24ebb1bdba
commit 5be6c35518
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i386/csopt386.pas
View File

@ -251,8 +251,9 @@ begin
while (tmpResult = R_NO) and
stillValid(hp) and
not(modifiesConflictingMemLocation(prevFound,reg,
ppaiprop(p^.optinfo)^.regs,regsStillValid)) do
(ppaiprop(prevFound^.optinfo)^.canBeRemoved or
not(modifiesConflictingMemLocation(prevFound,reg,
ppaiprop(p^.optinfo)^.regs,regsStillValid))) do
begin
{ only update the regsread for the instructions we already passed }
if not(ppaiprop(prevFound^.optinfo)^.canBeRemoved) then
@ -1672,8 +1673,12 @@ End.
{
$Log$
Revision 1.3 2000-11-01 22:53:30 jonas
* register contents were not cleared if there was only 1 instruction
Revision 1.4 2000-11-03 17:53:24 jonas
* some small improvements
Revision 1.3 2000/11/01 22:53:30 jonas
* register contents were not cleared if there was only 1 instruction
between de previous sequence and the current one
Revision 1.2 2000/10/24 10:40:53 jonas