Sfoglia il codice sorgente

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

git-svn-id: trunk@33677 -
pierre 9 anni fa
parent
commit
c8ad916710
1 ha cambiato i file con 6 aggiunte e 2 eliminazioni
  1. 6 2
      rtl/inc/heaph.inc

+ 6 - 2
rtl/inc/heaph.inc

@@ -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 }