|
@@ -65,7 +65,11 @@ const
|
|
|
var
|
|
|
ReturnNilIfGrowHeapFails : boolean;
|
|
|
|
|
|
-{$ifndef EMBEDDED}
|
|
|
+{$ifdef EMBEDDED}
|
|
|
+ {$define FPC_NO_DEFAULT_MEMORYMANAGER}
|
|
|
+{$endif EMBEDDED}
|
|
|
+
|
|
|
+{$ifndef FPC_NO_DEFAULT_MEMORYMANAGER}
|
|
|
{ Default MemoryManager functions }
|
|
|
Function SysGetmem(Size:ptruint):Pointer;
|
|
|
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 SysGetHeapStatus:THeapStatus;
|
|
|
function SysGetFPCHeapStatus:TFPCHeapStatus;
|
|
|
-{$endif EMBEDDED}
|
|
|
+{$endif FPC_NO_DEFAULT_MEMORYMANAGER}
|
|
|
|
|
|
{$ifdef FPC_HAS_FEATURE_HEAP}
|
|
|
{ Tp7 functions }
|