* loop forever in system_exit

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

rtl/zxspectrum/system.pp

@@ -182,6 +182,8 @@ end;
 
 procedure system_exit;
 begin
+  repeat
+  until false;
 end;
 
 {$else FULL_RTL}