From 737abbab23f0426e93e2f05d1023b4c891696c5b Mon Sep 17 00:00:00 2001 From: cshapiro <cshapiro> Date: Thu, 12 Jul 2007 06:56:44 +0000 Subject: [PATCH] Use the alien off-t type to represent struct stat members with an off_t type. --- code/unix.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/code/unix.lisp b/code/unix.lisp index 4b8625a43..c0745afe5 100644 --- a/code/unix.lisp +++ b/code/unix.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.110 2007/07/06 08:04:39 cshapiro Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.111 2007/07/12 06:56:44 cshapiro Exp $") ;;; ;;; ********************************************************************** ;;; @@ -502,10 +502,8 @@ (st-atime (struct timespec-t)) (st-mtime (struct timespec-t)) (st-ctime (struct timespec-t)) - (st-size unsigned-long) ; really quad - (st-sizeh unsigned-long) ; - (st-blocks unsigned-long) ; really quad - (st-blocksh unsigned-long) + (st-size off-t) + (st-blocks off-t) (st-blksize unsigned-long) (st-flags unsigned-long) (st-gen unsigned-long) -- GitLab