From: Tonu Naks <naks@adacore.com>
Date: Fri, 8 May 2026 08:08:31 +0000 (+0000)
Subject: ada: Fix file access time information in __gnat_copy_attribs
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6f5f91d853b57c9a912e574ee193aaecbb8a8991;p=thirdparty%2Fgcc.git

ada: Fix file access time information in __gnat_copy_attribs

gcc/ada/ChangeLog:

	* adaint.c (__gnat_copy_attribs): Fix call to SetFileTime
---

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index a63408370f7..a290a22a62b 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -3221,7 +3221,7 @@ __gnat_copy_attribs (char *from ATTRIBUTE_UNUSED, char *to ATTRIBUTE_UNUSED,
        return -1;
 
      res = SetFileTime
-       (hto, NULL, &info.ftCreationTime, &info.ftLastAccessTime);
+       (hto, &info.ftCreationTime, &info.ftLastAccessTime, &info.ftLastWriteTime);
 
      CloseHandle (hto);