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

gcc/ada/ChangeLog

+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

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");
 
    ------------------------