From 084ed1543f21575f73473c632e43632bfe092699 Mon Sep 17 00:00:00 2001
From: Maxim Ganetsky <maxim@lazarus-ide.org>
Date: Thu, 26 Sep 2024 23:10:03 +0300
Subject: [PATCH] Lazutils: use fpc_finalize instead of obsolete fpc_decref in
 TTypedMap, patch by Rika, issue #41156

---
 components/lazutils/maps.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/lazutils/maps.pp b/components/lazutils/maps.pp
index 4e11b3bf6f..90bc0d7674 100644
--- a/components/lazutils/maps.pp
+++ b/components/lazutils/maps.pp
@@ -788,7 +788,7 @@ end;
 
 // some hack to get access to fpc internals
 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);
 begin
@@ -883,13 +883,13 @@ begin
   if not Result then Exit;
 
   fpc_AddRef(@AData, FtypeInfo);
-  fpc_DecRef(Data, FTypeInfo);
+  fpc_Finalize(Data, FTypeInfo);
   FreeMem(Data);
 end;
 
 procedure TTypedMap.ReleaseData(ADataPtr: Pointer);
 begin
-  fpc_DecRef(ADataPtr, FTypeInfo);
+  fpc_Finalize(ADataPtr, FTypeInfo);
 end;
 
 function TTypedMap.SetData(const AId, AData): Boolean;