paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 00:59:08 +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 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 begin
SetMemoryManager(TinyHeapMemoryManager); SetMemoryManager(TinyHeapMemoryManager);
RegisterTinyHeapBlock(__nearheap_start, ptruint(__nearheap_end) - ptruint(__nearheap_start)); RegisterTinyHeapBlock(__nearheap_start, TPointerArithmeticType(__nearheap_end) - TPointerArithmeticType(__nearheap_start));
end; end;
function CheckLFN:boolean; function CheckLFN:boolean;
@ -366,7 +372,7 @@ begin
{ To be set if this is a library and not a program } { To be set if this is a library and not a program }
IsLibrary := FALSE; IsLibrary := FALSE;
{ Setup heap } { Setup heap }
InitNearHeap; InitDosHeap;
SysInitExceptions; SysInitExceptions;
initunicodestringmanager; initunicodestringmanager;
{ Setup stdin, stdout and stderr } { Setup stdin, stdout and stderr }