* Removed unused vars.

git-svn-id: trunk@10631 -

rtl/objpas/classes/classesh.inc

@@ -1240,8 +1240,6 @@ type
     FRootAncestor: TComponent;
     FPropPath: String;
     FAncestors: TStringList;
-    FAncestorPos: Integer;
-    FChildPos: Integer;
     FOnFindAncestor: TFindAncestorEvent;
     FOnWriteMethodProperty: TWriteMethodPropertyEvent;
     FOnWriteStringProperty:TReadWriteStringPropertyEvent;

rtl/objpas/classes/lists.inc

@@ -324,7 +324,6 @@ begin
 end;
 
 procedure TFPList.DoCopy(ListA, ListB : TFPList);
-var l : TFPList;
 begin
   if assigned (ListB) then
     CopyMove (ListB)
@@ -393,7 +392,6 @@ begin
 end;
 
 procedure TFPList.DoOr(ListA, ListB : TFPList);
-var r : integer;
 begin
   if assigned (ListB) then
     begin
@@ -670,7 +668,6 @@ begin
 end;
 
 procedure TList.DoCopy(ListA, ListB : TList);
-var l : TList;
 begin
   if assigned (ListB) then
     CopyMove (ListB)
@@ -739,7 +736,6 @@ begin
 end;
 
 procedure TList.DoOr(ListA, ListB : TList);
-var r : integer;
 begin
   if assigned (ListB) then
     begin

rtl/objpas/classes/resref.inc

@@ -82,7 +82,6 @@ type
 var
   NeedResolving : TLinkedList;
   ResolveSection : TRTLCriticalSection;
-  LastAddInstance : TUnresolvedInstance;
 
 // Add an instance to the global list of instances which need resolving.
 Function FindUnresolvedInstance(AInstance: TPersistent) : TUnResolvedInstance;
@@ -139,10 +138,6 @@ end;
 
 procedure GlobalFixupReferences;
 
-var
-  V : TResolveReferenceVisitor;
-  I : Integer;
-    
 begin
   If (NeedResolving=Nil) then 
     Exit;