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

* fixed wince console I/O.

Browse Source 
git-svn-id: trunk@3720 -
This commit is contained in:
yury 2006-05-28 20:09:57 +00:00
parent b73557ea4e
commit c564dfeb5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/sysfile.inc
View File

@ -32,7 +32,7 @@ begin
{$ifndef WINCE} {$ifndef WINCE}
do_isdevice:=(getfiletype(handle)=2); do_isdevice:=(getfiletype(handle)=2);
{$else WINCE} {$else WINCE}
do_isdevice:=False; do_isdevice:=(handle = StdInputHandle) or (handle = StdOutputHandle) or (handle = StdErrorHandle);
{$endif WINCE} {$endif WINCE}
end; end;