paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +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} {$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

4
rtl/inc/tnyheaph.inc
View File

@ -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 MemAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
function MaxAvail: PtrUInt; function MaxAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};