From dd47111e61a7614142a61c3e8d2c4f46448b4d38 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 21 Jan 2021 23:21:07 +0000
Subject: [PATCH] + call SysInitStdIO (empty for now) and clear InOutRes at
 startup

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

diff --git a/rtl/wasi/system.pp b/rtl/wasi/system.pp
index ace3f255bb..1727031286 100644
--- a/rtl/wasi/system.pp
+++ b/rtl/wasi/system.pp
@@ -96,6 +96,11 @@ end;
 
 procedure SysInitStdIO;
 begin
+//  OpenStdIO(Input,fmInput,StdInputHandle);
+//  OpenStdIO(Output,fmOutput,StdOutputHandle);
+//  OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
+//  OpenStdIO(StdOut,fmOutput,StdOutputHandle);
+//  OpenStdIO(StdErr,fmOutput,StdErrorHandle);
 end;
 
 function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
@@ -175,5 +180,9 @@ begin
   InitHeap;
   SysInitExceptions;
   initunicodestringmanager;
+  { Setup stdin, stdout and stderr }
+  SysInitStdIO;
+  { Reset IO Error }
+  InOutRes:=0;
   DebugWriteLn('System unit initialization end');
 end.