* fixed resolve references test

* removed unused variable

git-svn-id: branches/cleanroom@10366 -

rtl/tests/sllist.inc

@@ -95,7 +95,7 @@ end;
 procedure TLinkedList.RemoveItem(Item: TLinkedListItem; FreeItem : Boolean = False);
 
 Var
-  I : TLinkedListItem;
+  I,P : TLinkedListItem;
 
 begin
   If (Item<>Nil) and (FRoot<>Nil) then

rtl/tests/tcresref.pp

@@ -532,5 +532,9 @@ end;
 
 initialization
   RegisterTest(TTestResolveReference);
+  InitCriticalSection(ResolveSection);
+  
+finalization
+  DoneCriticalsection(ResolveSection);
 end.