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

Call custom MemoryManager.DoneThread before FinalizeHeap.

Browse Source
This commit is contained in:
Rika Ichinose 2025-05-08 12:09:15 +03:00 committed by FPK
parent 9a7a8f0d5c
commit 37a7474471
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/thread.inc
View File

@ -79,13 +79,11 @@ Var
if assigned(widestringmanager.ThreadFiniProc) then
widestringmanager.ThreadFiniProc;
{$endif FPC_HAS_FEATURE_WIDESTRINGS}
{$ifndef HAS_MEMORYMANAGER}
{$ifndef FPC_NO_DEFAULT_HEAP}
FinalizeHeap;
{$endif ndef FPC_NO_DEFAULT_HEAP}
{$endif HAS_MEMORYMANAGER}
if MemoryManager.DoneThread <> nil then
MemoryManager.DoneThread();
{$if not defined(HAS_MEMORYMANAGER) and not defined(FPC_NO_DEFAULT_HEAP)}
FinalizeHeap;
{$endif ndef HAS_MEMORYMANAGER and ndef FPC_NO_DEFAULT_HEAP}
{$ifdef FPC_HAS_FEATURE_CONSOLEIO}
{ Open all stdio fds again }
SysFlushStdio;