From 0b73bfa3ab2900c8cd6ba0195288f444675a50bc Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 25 Apr 2020 11:13:32 +0000
Subject: [PATCH] * the dummy fpc_InitializeUnits and fpc_do_exit procedures
are only defined if system unit is compiled without -dFULL_RTL
git-svn-id: branches/z80@45063 -
---
rtl/zxspectrum/system.pp | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/rtl/zxspectrum/system.pp b/rtl/zxspectrum/system.pp
index 2152ffbd14..6636904eb9 100644
--- a/rtl/zxspectrum/system.pp
+++ b/rtl/zxspectrum/system.pp
@@ -186,6 +186,16 @@ end;
{$else FULL_RTL}
{$I z80.inc}
+
+procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
+begin
+end;
+
+Procedure fpc_do_exit;[Public,Alias:'FPC_DO_EXIT']; compilerproc;
+begin
+ repeat
+ until false;
+end;
{$endif FULL_RTL}
var
@@ -205,16 +215,6 @@ begin
KeyPressed:=LastKey<>#0;
end;
-procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
-begin
-end;
-
-Procedure fpc_do_exit;[Public,Alias:'FPC_DO_EXIT']; compilerproc;
-begin
- repeat
- until false;
-end;
-
procedure OpenChannel(Chan: Byte);
begin
asm