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

+ include the tiny heap in the ZX Spectrum system unit, when compiled with -dFULL_RTL

Browse Source 
git-svn-id: branches/z80@45028 -
This commit is contained in:
nickysn 2020-04-23 02:48:03 +00:00
parent 0d7e3921aa
commit 7ccebb5073
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/zxspectrum/sysheap.inc
View File

@ -13,3 +13,14 @@
**********************************************************************}
{*****************************************************************************
Heap Management
*****************************************************************************}
function SysOSAlloc (size: ptruint): pointer;
begin
end;
procedure SysOSFree(p: pointer; size: ptruint);
begin
end;

8
rtl/zxspectrum/system.pp
View File

@ -6,7 +6,14 @@ interface
{$define FPC_IS_SYSTEM}
{ The heap for ZX Spectrum is implemented
in tinyheap.inc include file,
but it uses default SysGetMem names }
{$define HAS_MEMORYMANAGER}
{$I systemh.inc}
{$I tnyheaph.inc}
{$ifndef FPUNONE}
{$ifdef FPC_HAS_FEATURE_SOFTFPU}
@ -104,6 +111,7 @@ implementation
{$ifdef FULL_RTL}
{$I system.inc}
{$I tinyheap.inc}
{$ifndef FPUNONE}
{$ifdef FPC_HAS_FEATURE_SOFTFPU}