paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +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;
begin
{ OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
OpenStdIO(StdErr,fmOutput,StdErrorHandle);}
OpenStdIO(StdErr,fmOutput,StdErrorHandle);
end;
function GetProcessID: SizeUInt;
@ -143,4 +143,8 @@ begin
result := stklen;
end;
begin
initunicodestringmanager;
{ Setup stdin, stdout and stderr }
SysInitStdIO;
end.