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

* InitNearHeap procedure renamed InitDosHeap and added support for a huge heap.

Browse Source 
Startup code still needs to be updated in order to enable >64kb heap.

git-svn-id: trunk@28334 -
This commit is contained in:
nickysn 2014-08-07 22:00:24 +00:00
parent 6720f84d24
commit ace28a3552
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/msdos/system.pp
View File

@ -309,10 +309,16 @@ end;
SystemUnit Initialization
*****************************************************************************}
procedure InitNearHeap;
procedure InitDosHeap;
type
{$if defined(FPC_X86_FAR_DATA) or defined(FPC_X86_HUGE_DATA)}
TPointerArithmeticType = HugePointer;
{$else}
TPointerArithmeticType = Pointer;
{$endif}
begin
SetMemoryManager(TinyHeapMemoryManager);
RegisterTinyHeapBlock(__nearheap_start, ptruint(__nearheap_end) - ptruint(__nearheap_start));
RegisterTinyHeapBlock(__nearheap_start, TPointerArithmeticType(__nearheap_end) - TPointerArithmeticType(__nearheap_start));
end;
function CheckLFN:boolean;
@ -366,7 +372,7 @@ begin
{ To be set if this is a library and not a program }
IsLibrary := FALSE;
{ Setup heap }
InitNearHeap;
InitDosHeap;
SysInitExceptions;
initunicodestringmanager;
{ Setup stdin, stdout and stderr }