Message ID | 20240514082343.833854-1-poulhies@adacore.com |
---|---|
State | New |
Headers | show |
Series | [COMMITTED] ada: Correct System.Win32.LocalFileTimeToFileTime wrapper typo | expand |
diff --git a/gcc/ada/libgnat/s-win32.ads b/gcc/ada/libgnat/s-win32.ads index 6ea66153639..6e8e246d903 100644 --- 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);
From: Philippe Gil <gil@adacore.com> 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. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/libgnat/s-win32.ads | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)