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

* Use an own put for tfpginterfacedobjectlist as per bug #39846.

Browse Source 
Maybe not the most elegant, but solves the immediately
This commit is contained in:
marcoonthegit 2022-08-14 16:24:19 +02:00
parent 27c1bb3bea
commit f532cf1698
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/fgl.pp
View File

@ -1228,7 +1228,8 @@ end;
procedure TFPGInterfacedObjectList.Put(Index: Integer; const Item: T); procedure TFPGInterfacedObjectList.Put(Index: Integer; const Item: T);
begin begin
inherited Put(Index, @Item); CheckIndex(Index);
InternalItems[Index] := @Item; // eventually calls copyitem()
end; end;
function TFPGInterfacedObjectList.Add(const Item: T): Integer; function TFPGInterfacedObjectList.Add(const Item: T): Integer;