Fix sb-posix for 64-bit time_t.

.github/workflows/linux-arm.yml

@@ -23,9 +23,9 @@ jobs:
         CC: arm-linux-gnueabihf-gcc
       run: ./make.sh --xc-host='sbcl --dynamic-space-size 700MB --lose-on-corruption --disable-ldb --disable-debugger' --arch=arm
 
-    # - name: test
-    #   env:
-    #     CC: arm-linux-gnueabihf-gcc
-    #   run: cd tests; ./run-tests.sh
+    - name: test
+      env:
+        CC: arm-linux-gnueabihf-gcc
+      run: cd tests; ./run-tests.sh
     - name: ansi-test
       run: cd tests; ./ansi-tests.sh

contrib/sb-grovel/def-to-lisp.lisp

@@ -197,6 +197,8 @@ code:
        (split-cflags (sb-ext:posix-getenv "EXTRA_CFLAGS"))
        #+(and linux largefile)
        '("-D_LARGEFILE_SOURCE" "-D_LARGEFILE64_SOURCE" "-D_FILE_OFFSET_BITS=64")
+       #+64-bit-time
+       '("-D_TIME_BITS=64")
        #+(and (or x86 ppc sparc) (or linux freebsd)) '("-m32")
        #+(and x86-64 darwin inode64)
        `("-arch" "x86_64" ,(format nil "-mmacosx-version-min=~A"

contrib/sb-posix/constants.lisp

@@ -424,7 +424,8 @@
  ;; utime(), utimes()
  #-win32
  (:type suseconds-t ; OAOOM warning: similar kludge in tools-for-build
-        #+os-provides-suseconds-t "suseconds_t"
+        #+(and os-provides-suseconds-t 64-bit-time) "__suseconds64_t"
+        #+(and os-provides-suseconds-t (not 64-bit-time)) "suseconds_t"
         #-os-provides-suseconds-t "long")
 
  #-win32
@@ -436,7 +437,9 @@
  (:structure alien-timeval
              ("struct timeval"
               (time-t sec "time_t" "tv_sec")
-              (suseconds-t usec "suseconds_t" "tv_usec")))
+              (suseconds-t usec #+64-bit-time "__suseconds64_t"
+                                #-64-bit-time "suseconds_t"
+                                "tv_usec")))
 
  (:integer veof "VEOF" nil t)
  (:integer veol "VEOL" nil t)

contrib/sb-posix/interface.lisp

@@ -908,7 +908,8 @@ not supported."
 (progn
   (export 'time :sb-posix)
   (defun time ()
-    (let ((result (alien-funcall (extern-alien "time"
+    (let ((result (alien-funcall (extern-alien #-64-bit-time "time"
+                                               #+64-bit-time "__time64"
                                                (function time-t (* time-t)))
                                  nil)))
       (if (minusp result)
@@ -917,7 +918,8 @@ not supported."
   (export 'utime :sb-posix)
   (defun utime (filename &optional access-time modification-time)
     (with-alien ((fun (function int (c-string :not-null t) (* alien-utimbuf))
-                    :extern #-netbsd "utime" #+netbsd "_utime"))
+                      :extern #-(or 64-bit-time netbsd) "utime" #+netbsd "_utime"
+                      #+64-bit-time "__utime64"))
       (let ((name (filename filename)))
         (if (not (and access-time modification-time))
             (alien-funcall fun name nil)
@@ -939,7 +941,7 @@ not supported."
                  (syscall-error 'utimes)
                  value)))
       (with-alien ((fun (function int (c-string :not-null t) (* (array alien-timeval 2)))
-                     :extern #-netbsd "utimes" #+netbsd "sb_utimes"))
+                        :extern #-(or netbsd 64-bit-time) "utimes" #+(or netbsd 64-bit-time) "sb_utimes"))
         (let ((name (filename filename)))
           (if (not (and access-time modification-time))
               (maybe-syscall-error (alien-funcall fun name nil))

tests/gc.impure.lisp

@@ -422,7 +422,7 @@
                              #+win32
                              (alien-funcall (extern-alien "Sleep" (function void int))  300)
                              #-win32
-                             (alien-funcall (extern-alien "sb_nanosleep" (function void int int)) 0 300000000)
+                             (alien-funcall (extern-alien "sb_nanosleep" (function void sb-unix:time-t int)) 0 300000000)
                              (values a b c d e f g h i j k l m))))
          (thr (sb-thread:make-thread (lambda ()
                                        (let ((args #1=(list (LIST 'A) (LIST 'B) (LIST 'C)

tests/sleepytests.pure.lisp

@@ -8,7 +8,8 @@
 ;;; SLEEP should not cons except on 32-bit platforms when
 ;;; (> (mod seconds 1) (* most-positive-fixnum 1e-9))
 (with-test (:name (sleep :non-consing)
-            :serial t :skipped-on :interpreter)
+            :serial t :skipped-on :interpreter
+            :fails-on (and :arm :64-bit-time))
   (handler-case (sb-ext:with-timeout 5
                   (ctu:assert-no-consing (sleep 0.00001s0))
                   (locally (declare (notinline sleep))

tools-for-build/64-bit-time-test.c

@@ -0,0 +1,8 @@
+#include <time.h>
+
+int main ()
+{
+    if (sizeof( time_t) == 8)
+        return 104;
+    return 1;
+}

tools-for-build/grovel-features.sh

@@ -52,6 +52,13 @@ featurep os-provides-close-range-wrapper
 
 featurep os-provides-posix-spawn
 
+if [ "$sbcl_os" = linux ] ; then
+    case "$sbcl_arch" in
+        arm | x86 | ppc | mips | sparc | riscv32)
+            featurep 64-bit-time
+    esac
+fi
+
 if [ "$sbcl_arch" = arm ] ; then
    featurep arm-softfp
 fi

tools-for-build/os-provides-suseconds-t-test.c

@@ -1,4 +1,3 @@
-/* test to build and run so that we know if we have blksize_t */
 
 #include <sys/types.h>