From 7ccebb5073953badb5db6a18b6e89548f4cda00f Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 23 Apr 2020 02:48:03 +0000
Subject: [PATCH] + include the tiny heap in the ZX Spectrum system unit, when
 compiled with -dFULL_RTL

git-svn-id: branches/z80@45028 -
---
 rtl/zxspectrum/sysheap.inc | 11 +++++++++++
 rtl/zxspectrum/system.pp   |  8 ++++++++
 2 files changed, 19 insertions(+)

diff --git a/rtl/zxspectrum/sysheap.inc b/rtl/zxspectrum/sysheap.inc
index d2d7059a0f..5d2e097257 100644
--- a/rtl/zxspectrum/sysheap.inc
+++ b/rtl/zxspectrum/sysheap.inc
@@ -13,3 +13,14 @@
 
  **********************************************************************}
 
+{*****************************************************************************
+                              Heap Management
+*****************************************************************************}
+
+function SysOSAlloc (size: ptruint): pointer;
+begin
+end;
+
+procedure SysOSFree(p: pointer; size: ptruint);
+begin
+end;
diff --git a/rtl/zxspectrum/system.pp b/rtl/zxspectrum/system.pp
index ddb87152ac..50c8de0cfd 100644
--- a/rtl/zxspectrum/system.pp
+++ b/rtl/zxspectrum/system.pp
@@ -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}