projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.9.45: cleaner & thread-safe pv-table interning
[sbcl.git]
/
src
/
code
/
unix.lisp
diff --git
a/src/code/unix.lisp
b/src/code/unix.lisp
index
7021ce4
..
a5e583f
100644
(file)
--- a/
src/code/unix.lisp
+++ b/
src/code/unix.lisp
@@
-660,7
+660,7
@@
SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
(struct wrapped_stat
(st-dev #!-(or mips largefile) unsigned-int
#!+mips unsigned-long
(struct wrapped_stat
(st-dev #!-(or mips largefile) unsigned-int
#!+mips unsigned-long
- #!+largefile dev-t)
+ #!+(and largefile (not mips)) dev-t)
(st-ino ino-t)
(st-mode mode-t)
(st-nlink nlink-t)
(st-ino ino-t)
(st-mode mode-t)
(st-nlink nlink-t)
@@
-668,7
+668,7
@@
SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
(st-gid gid-t)
(st-rdev #!-(or mips largefile) unsigned-int
#!+mips unsigned-long
(st-gid gid-t)
(st-rdev #!-(or mips largefile) unsigned-int
#!+mips unsigned-long
- #!+largefile dev-t)
+ #!+(and largefile (not mips)) dev-t)
(st-size #!-(or darwin mips largefile) unsigned-int
#!+(or darwin mips largefile) off-t)
#!+(and darwin)
(st-size #!-(or darwin mips largefile) unsigned-int
#!+(or darwin mips largefile) off-t)
#!+(and darwin)