From: Christophe R. <cr...@us...> - 2003-10-03 12:20:04
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1:/tmp/cvs-serv32060/src/code Modified Files: unix.lisp Log Message: 0.8.4.5: Make simple-streams work on alpha ... really ensure the various ffi_foo_t types for wrapped_stat are 32-bit everywhere ... update the lisp version of the struct definition to believe this, too (UNSIGNED-INT, not UNSIGNED-LONG) ... also bugfix: MOST-POSITIVE-FIXNUM is an upper exclusive bound ... stray arch_os_get_current_thread() fix Index: unix.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/unix.lisp,v retrieving revision 1.41 retrieving revision 1.42 diff -u -d -r1.41 -r1.42 --- unix.lisp 7 Aug 2003 10:38:32 -0000 1.41 +++ unix.lisp 3 Oct 2003 12:19:59 -0000 1.42 @@ -556,14 +556,14 @@ ;;; longer than 32 bits anyway, right?":-| (define-alien-type nil (struct wrapped_stat - (st-dev unsigned-long) ; would be dev-t in a real stat + (st-dev unsigned-int) ; would be dev-t in a real stat (st-ino ino-t) (st-mode mode-t) (st-nlink nlink-t) (st-uid uid-t) (st-gid gid-t) - (st-rdev unsigned-long) ; would be dev-t in a real stat - (st-size unsigned-long) ; would be off-t in a real stat + (st-rdev unsigned-int) ; would be dev-t in a real stat + (st-size unsigned-int) ; would be off-t in a real stat (st-blksize unsigned-long) (st-blocks unsigned-long) (st-atime time-t) |