From b38526bfea25ab155bc74dcd1ef24ce27647e3e5 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 21 Jan 2000 17:12:28 +0000
Subject: [PATCH] * Under win32, standard input and output are not guaranteed
 to have descriptors 0,1 and 2

---
 fcl/inc/iostream.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/fcl/inc/iostream.pp b/fcl/inc/iostream.pp
index 4da807c163..867099efa2 100644
--- a/fcl/inc/iostream.pp
+++ b/fcl/inc/iostream.pp
@@ -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;