https://gcc.gnu.org/g:42ea46c67ddcde686e3792864d035dfd1645801f

commit r15-466-g42ea46c67ddcde686e3792864d035dfd1645801f
Author: Philippe Gil <g...@adacore.com>
Date:   Wed Feb 7 14:53:54 2024 +0100

    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:
---
 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 6ea661536392..6e8e246d903a 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);

Reply via email to