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

*fix rtl compile : HAS_MEMORYMANAGER/HAS_MT_MEMORYMANAGER

Browse Source 
git-svn-id: trunk@4431 -
This commit is contained in:
oro06 2006-08-17 09:39:01 +00:00
parent ce458584f9
commit d1dc6efeea
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/system.inc
View File

@ -663,7 +663,10 @@ end;
*****************************************************************************} *****************************************************************************}
Procedure system_exit;forward; Procedure system_exit;forward;
{$if not (defined(HAS_MEMORYMANAGER) or defined(HAS_MT_MEMORYMANAGER))}
//not needed if independant memory manager
Procedure FinalizeHeap;forward; Procedure FinalizeHeap;forward;
{$endif HAS_MEMORYMANAGER}
Procedure InternalExit; Procedure InternalExit;
var var
@ -703,7 +706,9 @@ Begin
{$if defined(LINUX) or defined(BSD)} {$if defined(LINUX) or defined(BSD)}
sysfreemem(cmdline); sysfreemem(cmdline);
{$endif} {$endif}
{$if not (defined(HAS_MEMORYMANAGER) or defined(HAS_MT_MEMORYMANAGER))}
FinalizeHeap; FinalizeHeap;
{$endif HAS_MEMORYMANAGER}
End; End;