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

* fixed range error

Browse Source
This commit is contained in:
Jonas Maebe 2000-12-21 12:22:53 +00:00
parent d66a6af71f
commit a4dcdea87d
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i386/daopt386.pas
View File

@ -1922,7 +1922,13 @@ Begin
CurProp^.CanBeRemoved := False;
UpdateUsedRegs(UsedRegs, Pai(p^.Next));
For TmpReg := R_EAX To R_EDI Do
Inc(NrOfInstrSinceLastMod[TmpReg]);
if NrOfInstrSinceLastMod[TmpReg] < 255 then
Inc(NrOfInstrSinceLastMod[TmpReg])
else
begin
NrOfInstrSinceLastMod[TmpReg] := 0;
curprop^.regs[TmpReg].typ := con_unknown;
end;
Case p^.typ Of
ait_marker:;
ait_label:
@ -2448,7 +2454,10 @@ End.
{
$Log$
Revision 1.12 2000-12-04 17:00:09 jonas
Revision 1.13 2000-12-21 12:22:53 jonas
* fixed range error
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