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

* the FPC_TINYHEAP_HUGE define moved to tnyheaph.inc

Browse Source 
git-svn-id: trunk@28666 -
This commit is contained in:
nickysn 2014-09-14 20:42:35 +00:00
parent 706a1d8712
commit 00c98edd29
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/tinyheap.inc
View File

@ -24,12 +24,6 @@
It *can* become zero sized, when all the memory inside of it is allocated, in
which case, HeapPtr will become equal to HeapEnd. }
{$ifdef cpui8086}
{$if defined(FPC_X86_DATA_FAR) or defined(FPC_X86_DATA_HUGE)}
{$define FPC_TINYHEAP_HUGE}
{$endif}
{$endif cpui8086}
{$ifdef FPC_TINYHEAP_HUGE}
{$HugePointerArithmeticNormalization On}
{$HugePointerComparisonNormalization On}

6
rtl/inc/tnyheaph.inc
View File

@ -13,6 +13,12 @@
**********************************************************************}
{$ifdef cpui8086}
{$if defined(FPC_X86_DATA_FAR) or defined(FPC_X86_DATA_HUGE)}
{$define FPC_TINYHEAP_HUGE}
{$endif}
{$endif cpui8086}
var
{ these vars are TP7-compatible }
HeapOrg: Pointer = nil; { start of heap }