* 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

@@ -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