2014-06-21 16:31:49 +00:00
|
|
|
with System;
|
|
|
|
|
|
|
|
|
|
package H2.Sysdef is
|
|
|
|
|
|
2014-07-02 14:29:01 +00:00
|
|
|
subtype LPVOID is System.Address;
|
2014-06-21 16:31:49 +00:00
|
|
|
subtype HANDLE is PVOID;
|
|
|
|
|
|
2014-07-02 14:29:01 +00:00
|
|
|
type BOOL is (FALSE, TRUE);
|
|
|
|
|
for BOOL use (FALSE => 0, TRUE => 1);
|
|
|
|
|
for BOOL'Size use 32;
|
|
|
|
|
|
2014-06-21 16:31:49 +00:00
|
|
|
type DWORD is mod 2 ** 32;
|
2014-07-02 14:29:01 +00:00
|
|
|
type WORD is mod 2 ** 16;
|
|
|
|
|
type BYTE is mod 2 ** 8;
|
|
|
|
|
|
|
|
|
|
type LPDWORD is access all DWORD;
|
|
|
|
|
pragma Convention (C, LPDWORD);
|
|
|
|
|
|
|
|
|
|
INVALID_HANDLE_VALUE: constant HANDLE := HANDLE'Last;
|
2014-06-21 16:31:49 +00:00
|
|
|
|
|
|
|
|
end H2.Sysdef;
|
