* Fix bug ID #36136, wrong reference count caused by missing const in param

git-svn-id: trunk@43138 -

rtl/objpas/classes/classesh.inc

@@ -2167,7 +2167,7 @@ type
     procedure Delete(index : Integer);
     procedure Exchange(index1,index2 : Integer);
     function First : IUnknown;
-    function IndexOf(item : IUnknown) : Integer;
+    function IndexOf(const item : IUnknown) : Integer;
     function Add(item : IUnknown) : Integer;
     procedure Insert(i : Integer;item : IUnknown);
     function Last : IUnknown;
@@ -2211,7 +2211,7 @@ type
     procedure Exchange(index1,index2 : Integer);
     function First : IUnknown;
     function GetEnumerator: TInterfaceListEnumerator;
-    function IndexOf(item : IUnknown) : Integer;
+    function IndexOf(const item : IUnknown) : Integer;
     function Add(item : IUnknown) : Integer;
     procedure Insert(i : Integer;item : IUnknown);
     function Last : IUnknown;

rtl/objpas/classes/intf.inc

@@ -171,7 +171,7 @@
       end;
 
 
-    function TInterfaceList.IndexOf(item : IUnknown) : Integer;
+    function TInterfaceList.IndexOf(const item : IUnknown) : Integer;
       begin
         FList.Locklist;
         try