Merged revisions 4666 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r4666 | olle | 2006-09-20 22:58:17 +0200 (Wed, 20 Sep 2006) | 1 line

fixed broken do_isdevice
........

git-svn-id: branches/fixes_2_0@4669 -

rtl/macos/sysfile.inc

@@ -19,7 +19,9 @@
 
 function do_isdevice(handle:longint):boolean;
 begin
-  do_isdevice:=false;
+  do_isdevice:= (handle=StdInputHandle) or
+                (handle=StdOutputHandle) or
+                (handle=StdErrorHandle);
 end;
 
 { close a file from the handle value }