paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 00:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* the results of MemAvail and MaxAvail changed to LongInt in the i8086 far data

Browse Source 
memory models (TP7 compatibility)

git-svn-id: trunk@28667 -
This commit is contained in:
nickysn 2014-09-14 21:11:32 +00:00
parent 00c98edd29
commit 6735e717ef
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/tinyheap.inc
View File

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

4
rtl/inc/tnyheaph.inc
View File

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