ada:

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-win32.ads

diff --git a/gcc/ada/s-win32.ads b/gcc/ada/s-win32.ads
index 307647f..37a6f3d 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");
 
    ------------------------