Forráskód Böngészése

- do not initialize the regular heap manager under i8086-msdos, so it can be smartlinked away

git-svn-id: trunk@24614 -
nickysn 12 éve
szülő
commit
4e2962e6ae
2 módosított fájl, 10 hozzáadás és 8 törlés
  1. 8 8
      rtl/inc/heap.inc
  2. 2 0
      rtl/msdos/system.pp

+ 8 - 8
rtl/inc/heap.inc

@@ -22,17 +22,17 @@
 const
   MemoryManager: TMemoryManager = (
     NeedLock: false;  // Obsolete
-    GetMem: @SysGetMem;
-    FreeMem: @SysFreeMem;
-    FreeMemSize: @SysFreeMemSize;
-    AllocMem: @SysAllocMem;
-    ReAllocMem: @SysReAllocMem;
-    MemSize: @SysMemSize;
+    GetMem: {$ifndef FPC_NO_DEFAULT_HEAP}@SysGetMem{$else}nil{$endif};
+    FreeMem: {$ifndef FPC_NO_DEFAULT_HEAP}@SysFreeMem{$else}nil{$endif};
+    FreeMemSize: {$ifndef FPC_NO_DEFAULT_HEAP}@SysFreeMemSize{$else}nil{$endif};
+    AllocMem: {$ifndef FPC_NO_DEFAULT_HEAP}@SysAllocMem{$else}nil{$endif};
+    ReAllocMem: {$ifndef FPC_NO_DEFAULT_HEAP}@SysReAllocMem{$else}nil{$endif};
+    MemSize: {$ifndef FPC_NO_DEFAULT_HEAP}@SysMemSize{$else}nil{$endif};
     InitThread: nil;
     DoneThread: nil;
     RelocateHeap: nil;
-    GetHeapStatus: @SysGetHeapStatus;
-    GetFPCHeapStatus: @SysGetFPCHeapStatus;
+    GetHeapStatus: {$ifndef FPC_NO_DEFAULT_HEAP}@SysGetHeapStatus{$else}nil{$endif};
+    GetFPCHeapStatus: {$ifndef FPC_NO_DEFAULT_HEAP}@SysGetFPCHeapStatus{$else}nil{$endif};
   );
 {$else}
 {$ifndef FPC_IN_HEAPMGR}

+ 2 - 0
rtl/msdos/system.pp

@@ -4,6 +4,8 @@ unit system;
 
 interface
 
+{$DEFINE FPC_NO_DEFAULT_HEAP}
+
 {$DEFINE FPC_INCLUDE_SOFTWARE_MUL}
 {$DEFINE FPC_INCLUDE_SOFTWARE_MOD_DIV}