* removed some unused vars

compiler/csopt386.pas

@@ -61,7 +61,7 @@ Function CheckSequence(p: Pai; Reg: TRegister; Var Found: Longint; Var RegInfo:
  instructions that match is stored in Found and true is returned, otherwise
  Found holds the number of instructions between StartMod and EndMod and false
  is returned}
-Var hp2, hp3, EndMod: Pai;
+Var hp2, hp3{, EndMod}: Pai;
     PrevNonRemovablePai: Pai;
     OrgRegInfo, HighRegInfo: TRegInfo;
     HighFound, OrgRegFound: Byte;
@@ -564,7 +564,10 @@ End.
 
 {
  $Log$
- Revision 1.11  1998-10-07 16:24:52  jonas
+ Revision 1.12  1998-10-20 09:32:54  peter
+   * removed some unused vars
+
+ Revision 1.11  1998/10/07 16:24:52  jonas
    * changed state to WState (WriteState), added RState for future use in
       instruction scheduling
 

compiler/symdef.inc

@@ -2474,8 +2474,6 @@
       var
          nss : pchar;
          i : word;
-         vartyp : char;
-         pst : pchar;
          param : pdefcoll;
       begin
         i := 0;
@@ -2603,7 +2601,7 @@
           end;
         savesize := publicsyms^.datasize;
       end;
-      
+
     constructor tobjectdef.load;
       var
          oldread_member : boolean;
@@ -2656,7 +2654,7 @@
              options:=options or oo_hasvmt;
           end;
      end;
-     
+
    procedure tobjectdef.check_forwards;
      begin
         publicsyms^.check_forwards;
@@ -3181,7 +3179,10 @@
 
 {
   $Log$
-  Revision 1.62  1998-10-20 08:06:58  pierre
+  Revision 1.63  1998-10-20 09:32:56  peter
+    * removed some unused vars
+
+  Revision 1.62  1998/10/20 08:06:58  pierre
     * several memory corruptions due to double freemem solved
       => never use p^.loc.location:=p^.left^.loc.location;
     + finally I added now by default