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

* fix for broken wince compilation after r46863

Browse Source 
git-svn-id: trunk@46874 -
This commit is contained in:
Tomas Hajny 2020-09-15 21:36:01 +00:00
parent 1b60060eb1
commit 1a4fdc7313
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win/sysfile.inc
View File

@ -2,7 +2,7 @@
This file is part of the Free Pascal run time library.
Copyright (c) 2001 by Free Pascal development team
Low leve file functions
Low level file functions
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -19,11 +19,17 @@
*****************************************************************************}
function do_isdevice(handle:thandle):boolean;
{$IFNDEF WINCE}
var
HT: dword;
{$ENDIF WINCE}
begin
{$IFDEF WINCE}
Do_IsDevice := false;
{$ELSE WINCE}
HT := GetFileType (Handle);
Do_IsDevice := (HT = FILE_TYPE_CHAR) or (HT = FILE_TYPE_PIPE);
{$ENDIF WINCE}
end;