From 50dfb198c5dcffa109d3cc816a4883ce7ddc1ede Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Tue, 7 Feb 2023 22:35:26 +0000
Subject: [PATCH] Fix compilation of system.ioutils unit for wince system

(cherry picked from commit c29018d0acd2ba6835e578d6c4db95c25364527a)
---
 packages/vcl-compat/src/system.ioutils.pp | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/packages/vcl-compat/src/system.ioutils.pp b/packages/vcl-compat/src/system.ioutils.pp
index 5dde129474..99bf9587aa 100644
--- a/packages/vcl-compat/src/system.ioutils.pp
+++ b/packages/vcl-compat/src/system.ioutils.pp
@@ -296,6 +296,9 @@ uses
   {$IfDef MSWINDOWS}
     windows, WinDirs,
   {$EndIf}
+  {$IfDef WINCE}
+    windows,
+  {$EndIf}
   {$IfDef UNIX}
     BaseUnix,
   {$EndIf}
@@ -312,7 +315,7 @@ ResourceString
   errStatFailed = 'Fstat for %a failed. Err.No.: %d';
   {$EndIf}
 
-{$IFDEF WINDOWS}
+{$IFDEF MSWINDOWS}
 Const
   WinAttrs : Array[TFileAttribute] of Integer =
      (FILE_ATTRIBUTE_READONLY, FILE_ATTRIBUTE_HIDDEN, FILE_ATTRIBUTE_SYSTEM,
@@ -320,7 +323,19 @@ Const
       FILE_ATTRIBUTE_NORMAL, FILE_ATTRIBUTE_TEMPORARY,FILE_ATTRIBUTE_SPARSE_FILE,
       FILE_ATTRIBUTE_REPARSE_POINT, FILE_ATTRIBUTE_COMPRESSED, FILE_ATTRIBUTE_OFFLINE,
       FILE_ATTRIBUTE_NOT_CONTENT_INDEXED, FILE_ATTRIBUTE_ENCRYPTED,FILE_ATTRIBUTE_REPARSE_POINT);
+{$ENDIF}
+{$IFDEF WINCE}
+  { Missing attributes are put to zero }
+Const
+  WinAttrs : Array[TFileAttribute] of Integer =
+     (FILE_ATTRIBUTE_READONLY, FILE_ATTRIBUTE_HIDDEN, FILE_ATTRIBUTE_SYSTEM,
+      FILE_ATTRIBUTE_DIRECTORY,FILE_ATTRIBUTE_ARCHIVE, 0{FILE_ATTRIBUTE_DEVICE},
+      FILE_ATTRIBUTE_NORMAL, FILE_ATTRIBUTE_TEMPORARY,0{FILE_ATTRIBUTE_SPARSE_FILE},
+      0{FILE_ATTRIBUTE_REPARSE_POINT}, FILE_ATTRIBUTE_COMPRESSED, 0{FILE_ATTRIBUTE_OFFLINE},
+      0{FILE_ATTRIBUTE_NOT_CONTENT_INDEXED}, 0{FILE_ATTRIBUTE_ENCRYPTED},0{FILE_ATTRIBUTE_REPARSE_POINT});
+{$ENDIF}
 
+{$IFDEF WINDOWS}
 function FileAttributesToFlags(const Attributes: TFileAttributes): Integer;
 
 var