paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +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; CurProp^.CanBeRemoved := False;
UpdateUsedRegs(UsedRegs, Pai(p^.Next)); UpdateUsedRegs(UsedRegs, Pai(p^.Next));
For TmpReg := R_EAX To R_EDI Do 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 Case p^.typ Of
ait_marker:; ait_marker:;
ait_label: ait_label:
@ -2448,7 +2454,10 @@ End.
{ {
$Log$ $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 * invalidate regs that depend on a modified register
Revision 1.11 2000/11/29 00:30:44 florian Revision 1.11 2000/11/29 00:30:44 florian