fpc/tstdhandle.pp at fda10ff0981f22b098134fce0398d04031c44b09 - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 02:39:40 +01:00

sergei 62e11742bf * Reverted STD_xxx_HANDLE constants back to DWORD type (issue introduced in r15824). These are not handles, and are 32-bit even in Win64. See http://msdn.microsoft.com/en-us/library/ms683231.aspx

+ added a test to help detecting this happening again.

git-svn-id: trunk@17333 -

2011-04-17 22:27:56 +00:00

12 lines

343 B

ObjectPascal

Raw Blame History

 { %TARGET=win64 }
 uses
   Windows;
 { The STD_xxx_HANDLE constants remain 32-bit in 64-bit Windows. }
 {$warnings off} // unreachable code warnings when things are correct.
 begin
   if STD_INPUT_HANDLE > High(DWORD) then Halt(1);
   if STD_OUTPUT_HANDLE > High(DWORD) then Halt(2);
   if STD_ERROR_HANDLE > High(DWORD) then Halt(3);
   Halt(0);
 end.