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

* invalidate regs that depend on a modified register

Browse Source
This commit is contained in:
Jonas Maebe 2000-12-04 17:00:09 +00:00
parent 13488eb705
commit 06af76dd6c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/i386/daopt386.pas
View File

@ -1837,6 +1837,7 @@ Begin
Inc(NrOfMods, NrOfInstrSinceLastMod[Reg]); Inc(NrOfMods, NrOfInstrSinceLastMod[Reg]);
PPaiProp(Pai(StartMod)^.OptInfo)^.Regs[Reg].NrOfMods := NrOfMods; PPaiProp(Pai(StartMod)^.OptInfo)^.Regs[Reg].NrOfMods := NrOfMods;
NrOfInstrSinceLastMod[Reg] := 0; NrOfInstrSinceLastMod[Reg] := 0;
invalidateDependingRegs(p^.optinfo,reg);
{$ifdef StateDebug} {$ifdef StateDebug}
hp := new(pai_asm_comment,init(strpnew(att_reg2str[reg]+': '+tostr(PPaiProp(p^.optinfo)^.Regs[reg].WState) hp := new(pai_asm_comment,init(strpnew(att_reg2str[reg]+': '+tostr(PPaiProp(p^.optinfo)^.Regs[reg].WState)
+ ' -- ' + tostr(PPaiProp(p^.optinfo)^.Regs[reg].nrofmods)))); + ' -- ' + tostr(PPaiProp(p^.optinfo)^.Regs[reg].nrofmods))));
@ -2447,7 +2448,10 @@ End.
{ {
$Log$ $Log$
Revision 1.11 2000-11-29 00:30:44 florian Revision 1.12 2000-12-04 17:00:09 jonas
* invalidate regs that depend on a modified register
Revision 1.11 2000/11/29 00:30:44 florian
* unused units removed from uses clause * unused units removed from uses clause
* some changes for widestrings * some changes for widestrings