Browse Source

Fix compilation wtih range check: STD_INPUT_HANDLE must be a DWORD

git-svn-id: trunk@38460 -
pierre 7 years ago
parent
commit
af5d27e083
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/win64/sysinit.pp

+ 1 - 1
rtl/win64/sysinit.pp

@@ -55,7 +55,7 @@ unit sysinit;
     function GetConsoleMode(hConsoleHandle: THandle; var lpMode: DWORD): Boolean; stdcall; external 'kernel32' name 'GetConsoleMode';
     function GetConsoleMode(hConsoleHandle: THandle; var lpMode: DWORD): Boolean; stdcall; external 'kernel32' name 'GetConsoleMode';
 
 
     const
     const
-      STD_INPUT_HANDLE = qword(-10);
+      STD_INPUT_HANDLE = dword(-10);
       SysInitEntryInformation : TEntryInformation = (
       SysInitEntryInformation : TEntryInformation = (
         InitFinalTable : @InitFinalTable;
         InitFinalTable : @InitFinalTable;
         ThreadvarTablesTable : @ThreadvarTablesTable;
         ThreadvarTablesTable : @ThreadvarTablesTable;