From: Philippe Gil <g...@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(-) 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); -- 2.43.2