* loop forever in fpc_do_exit in the ZX Spectrum RTL

git-svn-id: branches/z80@44869 -

rtl/zxspectrum/system.pp

@@ -71,6 +71,8 @@ end;
 
 Procedure fpc_do_exit;[Public,Alias:'FPC_DO_EXIT']; compilerproc;
 begin
+  repeat
+  until false;
 end;
 
 procedure PrintChar(Ch: Char);