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

Fix compilation of system.ioutils unit for wince system

Browse Source 
(cherry picked from commit c29018d0ac)
This commit is contained in:
Pierre Muller 2023-02-07 22:35:26 +00:00 committed by marcoonthegit
parent b9290ae6d8
commit 50dfb198c5
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/vcl-compat/src/system.ioutils.pp
View File

@ -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