diff options
| author | Pascal Obry <obry@adacore.com> | 2010-01-28 13:44:54 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-01-28 14:44:54 +0100 |
| commit | 2b30b635ab157720a179a95fc445efda866dd802 (patch) | |
| tree | e41a70e78e0ae3e368c1395a4707f5c9649baed5 /gcc | |
| parent | 94ff25998d3575d61c733e75e39e4d2cf13f6a1f (diff) | |
| download | gcc-2b30b635ab157720a179a95fc445efda866dd802.zip gcc-2b30b635ab157720a179a95fc445efda866dd802.tar.gz gcc-2b30b635ab157720a179a95fc445efda866dd802.tar.bz2 | |
s-win32.ads: Add some missing constants.
2010-01-28 Pascal Obry <obry@adacore.com>
* s-win32.ads: Add some missing constants.
From-SVN: r156319
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/s-win32.ads | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 15aa111..a6aeb57 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2010-01-28 Pascal Obry <obry@adacore.com> + + * s-win32.ads: Add some missing constants. + 2010-01-28 Vincent Celier <celier@adacore.com> * prj-attr-pm.adb (Add_Attribute): Do nothing if To_Package is diff --git a/gcc/ada/s-win32.ads b/gcc/ada/s-win32.ads index 307647f..37a6f3d 100644 --- a/gcc/ada/s-win32.ads +++ b/gcc/ada/s-win32.ads @@ -55,6 +55,7 @@ package System.Win32 is type HANDLE is new Interfaces.C.ptrdiff_t; INVALID_HANDLE_VALUE : constant HANDLE := -1; + INVALID_FILE_SIZE : constant := 16#FFFFFFFF#; type DWORD is new Interfaces.C.unsigned_long; type WORD is new Interfaces.C.unsigned_short; @@ -83,6 +84,7 @@ package System.Win32 is ----------- CP_UTF8 : constant := 65001; + CP_ACP : constant := 0; GENERIC_READ : constant := 16#80000000#; GENERIC_WRITE : constant := 16#40000000#; @@ -238,7 +240,7 @@ package System.Win32 is lpMultiByteStr : System.Address; cchMultiByte : WORD; lpWideCharStr : System.Address; - cchWideChar : WORD) return BOOL; + cchWideChar : WORD) return WORD; pragma Import (Stdcall, MultiByteToWideChar, "MultiByteToWideChar"); ------------------------ |