paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 13:32:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@43138 -
This commit is contained in:
michael 2019-10-06 08:04:10 +00:00
parent dc96e41047
commit e89383a104
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/classesh.inc
View File

@ -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;

2
rtl/objpas/classes/intf.inc
View File

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