From ae39e3da447c0ed90d012b94298b78e6563c3f12 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 21 Jan 2021 23:22:44 +0000
Subject: [PATCH] + endless loop in system_exit (for now)

git-svn-id: branches/wasm@48294 -
---
 rtl/wasi/system.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/wasi/system.pp b/rtl/wasi/system.pp
index 1727031286..cbf5c12954 100644
--- a/rtl/wasi/system.pp
+++ b/rtl/wasi/system.pp
@@ -84,6 +84,8 @@ End;
 procedure System_exit;
 begin
   DebugWriteLn('System_exit');
+  repeat
+  until false;
 End;
 
 Function ParamCount: Longint;