ada: Correct System.Win32.LocalFileTimeToFileTime wrapper typo

The parameters should be swapped to fit Fileapi.h documentation.
BOOL LocalFileTimeToFileTime(
	[in]  const FILETIME *lpLocalFileTime,
	[out] LPFILETIME     lpFileTime
);

gcc/ada/
	* libgnat/s-win32.ads (LocalFileTimeToFileTime): Swap parameters.

diff --git a/gcc/ada/libgnat/s-win32.ads b/gcc/ada/libgnat/s-win32.ads
index 6ea6615363929b0367883ae5e2ec6295fd483d97..6e8e246d903a0d865eeb0d422da296fe0ce82bf0 100644 (file)
--- a/gcc/ada/libgnat/s-win32.ads
+++ b/gcc/ada/libgnat/s-win32.ads
@@ -315,8 +315,8 @@ package System.Win32 is
    pragma Import (Stdcall, FileTimeToLocalFileTime, "FileTimeToLocalFileTime");
 
    function LocalFileTimeToFileTime
-     (lpFileTime      : access Long_Long_Integer;
-      lpLocalFileTime : access Long_Long_Integer) return BOOL;
+     (lpLocalFileTime : access Long_Long_Integer;
+      lpFileTime      : access Long_Long_Integer) return BOOL;
    pragma Import (Stdcall, LocalFileTimeToFileTime, "LocalFileTimeToFileTime");
 
    procedure Sleep (dwMilliseconds : DWORD);