Bläddra i källkod

* 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 år sedan
förälder
incheckning
6735e717ef
2 ändrade filer med 4 tillägg och 4 borttagningar
  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}
       end;
 
-    function MemAvail: PtrUInt;
+    function MemAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
       var
         p: PTinyHeapBlock;
       begin
@@ -301,7 +301,7 @@
           end;
       end;
 
-    function MaxAvail: PtrUInt;
+    function MaxAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
       var
         p: PTinyHeapBlock;
       begin

+ 2 - 2
rtl/inc/tnyheaph.inc

@@ -26,6 +26,6 @@
       FreeList: Pointer = nil; { pointer to the first 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};