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

* Define INVALID_HANDLE_VALUE for Delphi compatibility

Browse Source 
(cherry picked from commit ff8511f2f1)
This commit is contained in:
Michaël Van Canneyt 2023-11-29 15:03:12 +01:00 committed by marcoonthegit
parent fc6b11720a
commit 587c1df60e
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/sysutils/sysutilh.inc
View File

@ -455,3 +455,8 @@ Type
Function GetCompiledArchitecture : TOSVersion.TArchitecture;
Function GetCompiledPlatform : TOSVersion.TPlatform;
{$IFNDEF HAS_INVALIDHANDLE}
const
INVALID_HANDLE_VALUE = DWORD(-1);
{$ENDIF}

4
rtl/win/sysutils.pp
View File

@ -39,6 +39,10 @@ uses
{$DEFINE OS_FILESETDATEBYNAME}
{$DEFINE HAS_FILEGETDATETIMEINFO}
{$DEFINE HAS_INVALIDHANDLE}
const
INVALID_HANDLE_VALUE = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.INVALID_HANDLE_VALUE;
// this target has an fileflush implementation, don't include dummy
{$DEFINE SYSUTILS_HAS_FILEFLUSH_IMPL}