* removed notes

compiler/csopt386.pas

@@ -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)
 
-}
+}

compiler/daopt386.pas

@@ -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
 
-}
+}