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

* Merging revisions 43138 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43138 | michael | 2019-10-06 10:04:10 +0200 (Sun, 06 Oct 2019) | 1 line
    
    * Fix bug ID #36136, wrong reference count caused by missing const in param 
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43262 -
This commit is contained in:
michael 2019-10-19 14:56:14 +00:00
parent 3cbce0f7de
commit db1eb537c9
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

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

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

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