paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 23:09:40 +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}
do_isdevice:=(getfiletype(handle)=2);
{$else WINCE}
do_isdevice:=False;
do_isdevice:=(handle = StdInputHandle) or (handle = StdOutputHandle) or (handle = StdErrorHandle);
{$endif WINCE}
end;