GitLab

at 2025-10-13T18:45:22-07:00

Fix #444: Use 64-bit time_t value for stat and friends

Merge branch 'issue-444-b-stat-with-64-bit-time' into 'master'

Fix #444: Use 64-bit time_t value for stat and friends

Closes #444

See merge request cmucl/cmucl!326
     * Updated CLX from upstream to version from 2024-09-11.

   * ANSI compliance fixes:

   * Bug fixes:

-    * #387: Update CLX from upstream to version from 2024-09-11.

   * Gitlab tickets:

+    * #387: Update CLX from upstream to version from 2024-09-11.

+    * #444: `unix-stat` and friends return wrong timestamp

   * Other changes:

   * Improvements to the PCL implementation of CLOS:

   * Changes to building procedure:

 

 */

 

+#ifdef __linux__

+/* Want 64-bit time_t values for stat and friends */

+#define _TIME_BITS	64

+#endif

+

 #include <assert.h>

 #include <errno.h>

 #include <langinfo.h>

           (system:get-user-homedir-namestring "zotuserunknown")

         (assert-eql home-pathname nil)

         (assert-eql status 0)))

+

+#+linux

+(define-test stat.64-bit-timestamp

+    (:tag :issues)

+  (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp.txt"

+				      cl:*load-pathname*)))

+    (assert-true (probe-file test-file))

+    (multiple-value-bind (ok st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev st-size

+			  st-atime st-mtime

+			  st-ctime st-blksize st-blocks)

+	(unix:unix-stat (namestring test-file))

+      (declare (ignore st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev

+		       st-ctime st-blksize st-blocks))

+      (assert-true ok)

+      (assert-equal st-atime 2153718000)

+      (assert-equal st-mtime 2153718000))))

Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

4 changed files:

Changes: