* removed notes

This commit is contained in:
peter 2000-06-01 11:01:20 +00:00
parent 276a486a28
commit e60344ccf7
2 changed files with 14 additions and 6 deletions

View File

@ -69,13 +69,13 @@ Function CheckSequence(p: Pai; Reg: TRegister; Var Found: Longint; Var RegInfo:
is returned}
Var hp2, hp3{, EndMod}: Pai;
PrevNonRemovablePai: Pai;
Cnt, OldNrOfMods: Longint;
{Cnt,} OldNrOfMods: Longint;
OrgRegInfo, HighRegInfo: TRegInfo;
HighFound, OrgRegFound: Byte;
RegCounter: TRegister;
OrgRegResult: Boolean;
TmpResult: Boolean;
TmpState: Byte;
{TmpState: Byte;}
Begin {CheckSequence}
Reg := Reg32(Reg);
TmpResult := False;
@ -1181,7 +1181,10 @@ End.
{
$Log$
Revision 1.58 2000-04-29 16:57:44 jonas
Revision 1.59 2000-06-01 11:01:20 peter
* removed notes
Revision 1.58 2000/04/29 16:57:44 jonas
* fixed incompatibility with range chcking code, -O2 and higher
now work correctly together with -Cr
@ -1328,4 +1331,4 @@ End.
Revision 1.24 1999/08/25 11:59:58 jonas
* changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
}
}

View File

@ -1343,8 +1343,10 @@ Begin {checks whether the two ops are equal}
End;
Function InstructionsEquivalent(p1, p2: Pai; Var RegInfo: TRegInfo): Boolean;
{$ifdef csdebug}
var
hp: pai;
{$endif csdebug}
Begin {checks whether two Paicpu instructions are equal}
If Assigned(p1) And Assigned(p2) And
(Pai(p1)^.typ = ait_instruction) And
@ -2335,7 +2337,10 @@ End.
{
$Log$
Revision 1.87 2000-04-29 16:56:45 jonas
Revision 1.88 2000-06-01 11:01:20 peter
* removed notes
Revision 1.87 2000/04/29 16:56:45 jonas
* destroyreg overwrote some memory if the reg was an FPU register
Revision 1.86 2000/04/10 12:45:56 jonas
@ -2433,4 +2438,4 @@ End.
Revision 1.62 1999/10/07 16:07:35 jonas
* small bugfix in ArrayRefsEq
}
}