paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 17:50:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use FPC_NO_DEFAULT_MEMORYMANAGER define to guard SysGetmem/SysFreemem function definitions, also used for msdos OS

Browse Source 
git-svn-id: trunk@33677 -
This commit is contained in:
pierre 2016-05-11 14:32:02 +00:00
parent 01ea38a627
commit c8ad916710
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/heaph.inc
View File

@ -65,7 +65,11 @@ const
var var
ReturnNilIfGrowHeapFails : boolean; ReturnNilIfGrowHeapFails : boolean;
{$ifndef EMBEDDED} {$ifdef EMBEDDED}
{$define FPC_NO_DEFAULT_MEMORYMANAGER}
{$endif EMBEDDED}
{$ifndef FPC_NO_DEFAULT_MEMORYMANAGER}
{ Default MemoryManager functions } { Default MemoryManager functions }
Function SysGetmem(Size:ptruint):Pointer; Function SysGetmem(Size:ptruint):Pointer;
Function SysFreemem(p:pointer):ptruint; Function SysFreemem(p:pointer):ptruint;
@ -76,7 +80,7 @@ function SysTryResizeMem(var p:pointer;size:ptruint):boolean;
Function SysReAllocMem(var p:pointer;size:ptruint):Pointer; Function SysReAllocMem(var p:pointer;size:ptruint):Pointer;
function SysGetHeapStatus:THeapStatus; function SysGetHeapStatus:THeapStatus;
function SysGetFPCHeapStatus:TFPCHeapStatus; function SysGetFPCHeapStatus:TFPCHeapStatus;
{$endif EMBEDDED} {$endif FPC_NO_DEFAULT_MEMORYMANAGER}
{$ifdef FPC_HAS_FEATURE_HEAP} {$ifdef FPC_HAS_FEATURE_HEAP}
{ Tp7 functions } { Tp7 functions }