diff mbox series

[COMMITTED] ada: Correct System.Win32.LocalFileTimeToFileTime wrapper typo

Message ID 20240514082343.833854-1-poulhies@adacore.com
State New
Headers show
Series [COMMITTED] ada: Correct System.Win32.LocalFileTimeToFileTime wrapper typo | expand

Commit Message

Marc Poulhiès May 14, 2024, 8:23 a.m. UTC 
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(-)
diff mbox series

Patch

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