paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 13:52:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* SysInitStdIO doesn't crash anymore on the i8086, so enable it in the msdos system unit initialization

Browse Source 
git-svn-id: branches/i8086@23991 -
This commit is contained in:
nickysn 2013-03-24 23:05:48 +00:00
parent 1f5d384a1e
commit f24f119822
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/msdos/system.pp
View File

@ -126,11 +126,11 @@ end;
procedure SysInitStdIO; procedure SysInitStdIO;
begin begin
{ OpenStdIO(Input,fmInput,StdInputHandle); OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Output,fmOutput,StdOutputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(ErrOutput,fmOutput,StdErrorHandle); OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdOut,fmOutput,StdOutputHandle);
OpenStdIO(StdErr,fmOutput,StdErrorHandle);} OpenStdIO(StdErr,fmOutput,StdErrorHandle);
end; end;
function GetProcessID: SizeUInt; function GetProcessID: SizeUInt;
@ -143,4 +143,8 @@ begin
result := stklen; result := stklen;
end; end;
begin
initunicodestringmanager;
{ Setup stdin, stdout and stderr }
SysInitStdIO;
end. end.