X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=b2a99e348c970f2167a2bb74095f462a16692a58;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=ec20fb0da0e5d5bc81eb90f0c7ba84ea281686fc;hpb=c8322df812da6eb4ef1ae51735b224b2ad0f1503;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index ec20fb0..b2a99e3 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -519,7 +519,10 @@
 ;;; Note that st-dev is a long, not a dev-t. This is because dev-t on
 ;;; linux 32 bit archs is a 64 bit quantity, but alien doesn's support
 ;;; those. We don't actually access that field anywhere, though, so
-;;; until we can get 64 bit alien support it'll do.
+;;; until we can get 64 bit alien support it'll do. Also note that
+;;; st_size is a long, not an off-t, because off-t is a 64-bit
+;;; quantity on Alpha. And FIXME: "No one would want a file length
+;;; longer than 32 bits anyway, right?":-|
 (def-alien-type nil
   (struct wrapped_stat
     (st-dev unsigned-long)              ; would be dev-t in a real stat
@@ -529,7 +532,7 @@
     (st-uid  uid-t)
     (st-gid  gid-t)
     (st-rdev unsigned-long)             ; would be dev-t in a real stat
-    (st-size off-t)
+    (st-size unsigned-long)		; would be off-t in a real stat
     (st-blksize unsigned-long)
     (st-blocks unsigned-long)
     (st-atime time-t)