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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 15aa111932e6ef1debf485be22fc6b00a83af81e..a6aeb57ee88634aa63b018dd83461c47b1c928cc 100644 (file)
--- 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 307647f7366f33aa45599bc512c36c96974c7dc1..37a6f3d604272b59564bb11a93209846625f3db8 100644 (file)
--- 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");
 
    ------------------------