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

fixed broken do_isdevice

Browse Source 
git-svn-id: trunk@4666 -
This commit is contained in:
olle 2006-09-20 20:58:17 +00:00
parent f3d6975f0b
commit e83e8d0695
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/macos/sysfile.inc
View File

@ -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 }