hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

under dramatic changes...

Browse Source
This commit is contained in:
hyung-hwan
2014-07-02 14:29:01 +00:00
parent efc55863f4
commit fafd1eb21f
90 changed files with 129552 additions and 166 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
h2/lib/win32/h2-sysdef.ads
View File

@ -2,9 +2,20 @@ with System;
package H2.Sysdef is
type PVOID is System.Address;
subtype LPVOID is System.Address;
subtype HANDLE is PVOID;
type BOOL is (FALSE, TRUE);
for BOOL use (FALSE => 0, TRUE => 1);
for BOOL'Size use 32;
type DWORD is mod 2 ** 32;
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;
end H2.Sysdef;