From 1a4fdc7313a85c25efdf0279a422dbe26fecd34d Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Tue, 15 Sep 2020 21:36:01 +0000
Subject: [PATCH]   * fix for broken wince compilation after r46863

git-svn-id: trunk@46874 -
---
 rtl/win/sysfile.inc | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/rtl/win/sysfile.inc b/rtl/win/sysfile.inc
index 7acffbc8d4..2431f4b3c8 100644
--- a/rtl/win/sysfile.inc
+++ b/rtl/win/sysfile.inc
@@ -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;