paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Lazutils: use fpc_finalize instead of obsolete fpc_decref in TTypedMap, patch by Rika, issue #41156

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-09-26 23:10:03 +03:00
parent 0677da7644
commit 084ed1543f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/maps.pp
View File

@ -788,7 +788,7 @@ end;
// some hack to get access to fpc internals // some hack to get access to fpc internals
procedure fpc_AddRef(Data, TypeInfo: Pointer); external name 'FPC_ADDREF'; procedure fpc_AddRef(Data, TypeInfo: Pointer); external name 'FPC_ADDREF';
procedure fpc_DecRef(Data, TypeInfo: Pointer); external name 'FPC_DECREF'; procedure fpc_Finalize(Data, TypeInfo: Pointer); external name 'FPC_FINALIZE';
procedure TTypedMap.Add(const AId, AData); procedure TTypedMap.Add(const AId, AData);
begin begin
@ -883,13 +883,13 @@ begin
if not Result then Exit; if not Result then Exit;
fpc_AddRef(@AData, FtypeInfo); fpc_AddRef(@AData, FtypeInfo);
fpc_DecRef(Data, FTypeInfo); fpc_Finalize(Data, FTypeInfo);
FreeMem(Data); FreeMem(Data);
end; end;
procedure TTypedMap.ReleaseData(ADataPtr: Pointer); procedure TTypedMap.ReleaseData(ADataPtr: Pointer);
begin begin
fpc_DecRef(ADataPtr, FTypeInfo); fpc_Finalize(ADataPtr, FTypeInfo);
end; end;
function TTypedMap.SetData(const AId, AData): Boolean; function TTypedMap.SetData(const AId, AData): Boolean;