* Fixed broken indexof function

fcl/inc/cachecls.pp

@@ -310,7 +310,7 @@ begin
     end;
     Slot := Slot^.Next;
   end;
-  Slot := -1;
+  indexof := -1;
 end;
 
 procedure TCache.Remove(AData: Pointer);
@@ -328,7 +328,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:15:24  peter
+  Revision 1.4  2003-12-16 09:59:43  daniel
+    * Fixed broken indexof function
+
+  Revision 1.3  2002/09/07 15:15:24  peter
     * old logs removed and tabs fixed
 
 }