浏览代码

* the results of MemAvail and MaxAvail changed to LongInt in the i8086 far data
memory models (TP7 compatibility)

git-svn-id: trunk@28667 -

nickysn 11 年之前
父节点
当前提交
6735e717ef
共有 2 个文件被更改,包括 4 次插入4 次删除
  1. 2 2
      rtl/inc/tinyheap.inc
  2. 2 2
      rtl/inc/tnyheaph.inc

+ 2 - 2
rtl/inc/tinyheap.inc

@@ -285,7 +285,7 @@
 {$endif DEBUG_TINY_HEAP}
 {$endif DEBUG_TINY_HEAP}
       end;
       end;
 
 
-    function MemAvail: PtrUInt;
+    function MemAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
       var
       var
         p: PTinyHeapBlock;
         p: PTinyHeapBlock;
       begin
       begin
@@ -301,7 +301,7 @@
           end;
           end;
       end;
       end;
 
 
-    function MaxAvail: PtrUInt;
+    function MaxAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
       var
       var
         p: PTinyHeapBlock;
         p: PTinyHeapBlock;
       begin
       begin

+ 2 - 2
rtl/inc/tnyheaph.inc

@@ -26,6 +26,6 @@
       FreeList: Pointer = nil; { pointer to the first free block }
       FreeList: Pointer = nil; { pointer to the first free block }
       HeapPtr: Pointer = nil;  { pointer to the last free block }
       HeapPtr: Pointer = nil;  { pointer to the last free block }
 
 
-    function MemAvail: PtrUInt;
-    function MaxAvail: PtrUInt;
+    function MemAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
+    function MaxAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};