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