diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-01-28 13:44:54 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-01-28 13:44:54 +0000 |
| commit | 643f733a77ed473d538679f6f5714443e236ba9c (patch) | |
| tree | e41a70e78e0ae3e368c1395a4707f5c9649baed5 /gcc/ada | |
| parent | 0ff60170e3fcff61235dd5f5eb4af1f86dd6b5a1 (diff) | |
| download | gcc-643f733a77ed473d538679f6f5714443e236ba9c.tar.gz | |
2010-01-28 Pascal Obry <obry@adacore.com>
* s-win32.ads: Add some missing constants.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@156319 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -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 15aa111932e..a6aeb57ee88 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 307647f7366..37a6f3d6042 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"); ------------------------ |