浏览代码

fixed broken do_isdevice

git-svn-id: trunk@4666 -
olle 19 年之前
父节点
当前提交
e83e8d0695
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      rtl/macos/sysfile.inc

+ 3 - 1
rtl/macos/sysfile.inc

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