projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More efficient integer division by multiplication
[sbcl.git]
/
contrib
/
sb-posix
/
constants.lisp
diff --git
a/contrib/sb-posix/constants.lisp
b/contrib/sb-posix/constants.lisp
index
c00a7bf
..
48660fa
100644
(file)
--- a/
contrib/sb-posix/constants.lisp
+++ b/
contrib/sb-posix/constants.lisp
@@
-210,8
+210,8
@@
#-sunos (:errno emediumtype "EMEDIUMTYPE" nil t)
;; wait
#-sunos (:errno emediumtype "EMEDIUMTYPE" nil t)
;; wait
- (:integer wnohang "WNOHANG")
- (:integer wuntraced "WUNTRACED")
+ (:integer wnohang "WNOHANG" nil t)
+ (:integer wuntraced "WUNTRACED" nil t)
;; mode_t
(:type mode-t "mode_t")
;; mode_t
(:type mode-t "mode_t")
@@
-272,7
+272,9
@@
#-(and linux largefile) "struct dirent"
#-win32 (:ino-t ino "ino_t" "d_ino")
(:c-string name "char *" "d_name"
#-(and linux largefile) "struct dirent"
#-win32 (:ino-t ino "ino_t" "d_ino")
(:c-string name "char *" "d_name"
- :distrust-length #+sunos t #-sunos nil)) t)
+ ;; FIXME: sunos should really have :distrust-length
+ ;; t, but this is currently broken. -- Jim Wise 2010-08-31
+ :distrust-length nil)) t)
;; password database
#-win32
;; password database
#-win32
@@
-315,6
+317,8
@@
((unsigned 32) dev "dev_t" "st_dev")
(nlink-t nlink "nlink_t" "st_nlink")
(uid-t uid "uid_t" "st_uid")
((unsigned 32) dev "dev_t" "st_dev")
(nlink-t nlink "nlink_t" "st_nlink")
(uid-t uid "uid_t" "st_uid")
+ #-mips
+ (dev-t rdev "dev_t" "st_rdev")
(gid-t gid "gid_t" "st_gid")
(off-t size "off_t" "st_size")
(time-t atime "time_t" "st_atime")
(gid-t gid "gid_t" "st_gid")
(off-t size "off_t" "st_size")
(time-t atime "time_t" "st_atime")