blob: 037dd7d2e0c7ef865fd902de549267a9746505f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{ %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.
|
