paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:46:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ call SysInitStdIO (empty for now) and clear InOutRes at startup

Browse Source 
git-svn-id: branches/wasm@48293 -
This commit is contained in:
nickysn 2021-01-21 23:21:07 +00:00
parent 4165c893be
commit dd47111e61
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/wasi/system.pp
View File

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