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

* added missing allocregbetween() call for a memtoreg() optimization

Browse Source
This commit is contained in:
Jonas Maebe 2001-11-30 16:35:02 +00:00
parent 879d8ccb44
commit fe8b328091
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i386/csopt386.pas
View File

@ -1685,7 +1685,10 @@ Begin
if (taicpu(p).opcode = A_MOV) and if (taicpu(p).opcode = A_MOV) and
(taicpu(p).oper[1].typ = top_reg) and (taicpu(p).oper[1].typ = top_reg) and
(taicpu(p).oper[1].reg = regcounter) then (taicpu(p).oper[1].reg = regcounter) then
pTaiProp(p.optinfo)^.canberemoved := true begin
pTaiProp(p.optinfo)^.canberemoved := true;
allocregbetween(asml,reg32(regcounter),hp5,p);
end
else else
begin begin
Taicpu(p).loadreg(0,regcounter); Taicpu(p).loadreg(0,regcounter);
@ -1953,7 +1956,10 @@ End.
{ {
$Log$ $Log$
Revision 1.21 2001-10-27 10:20:43 jonas Revision 1.22 2001-11-30 16:35:02 jonas
* added missing allocregbetween() call for a memtoreg() optimization
Revision 1.21 2001/10/27 10:20:43 jonas
+ replace mem accesses to locations to which a reg was stored recently with that reg + replace mem accesses to locations to which a reg was stored recently with that reg
Revision 1.20 2001/10/14 11:50:21 jonas Revision 1.20 2001/10/14 11:50:21 jonas