From: Pascal Obry Date: Thu, 28 Jan 2010 13:44:54 +0000 (+0000) Subject: s-win32.ads: Add some missing constants. X-Git-Tag: releases/gcc-4.5.0~1009 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2b30b635ab157720a179a95fc445efda866dd802;p=thirdparty%2Fgcc.git s-win32.ads: Add some missing constants. 2010-01-28 Pascal Obry * s-win32.ads: Add some missing constants. From-SVN: r156319 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 15aa111932e6..a6aeb57ee886 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2010-01-28 Pascal Obry + + * s-win32.ads: Add some missing constants. + 2010-01-28 Vincent Celier * 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 307647f7366f..37a6f3d60427 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"); ------------------------