+ 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

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

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}