paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 10:10:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Under win32, standard input and output are not guaranteed to have descriptors 0,1 and 2

Browse Source
This commit is contained in:
michael 2000-01-21 17:12:28 +00:00
parent c834c996e4
commit b38526bfea
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/inc/iostream.pp
View File

@ -44,7 +44,15 @@ Const
Constructor TIOStream.Create(IOSType : TiosType);
begin
{$ifdef win32}
Case IOSType of
iosOutput : FType:=Stdoutputhandle;
iosInput : FType:=Stdinputhandle;
iosError : FType:=StdErrorHandle;
end;
{$else}
FType:=Ord(IOSType);
{$endif}
Inherited Create(Ftype);
end;