+ endless loop in system_exit (for now)

git-svn-id: branches/wasm@48294 -

rtl/wasi/system.pp

@@ -84,6 +84,8 @@ End;
 procedure System_exit;
 begin
   DebugWriteLn('System_exit');
+  repeat
+  until false;
 End;
 
 Function ParamCount: Longint;