projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Micro-optimize DOUBLE-FLOAT-LOW-BITS on x68-64.
[sbcl.git]
/
contrib
/
sb-posix
/
constants.lisp
diff --git
a/contrib/sb-posix/constants.lisp
b/contrib/sb-posix/constants.lisp
index
c00a7bf
..
0b66705
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")
@@
-255,6
+255,7
@@
(:integer map-shared "MAP_SHARED" "mmap: shared memory" t)
(:integer map-private "MAP_PRIVATE" "mmap: private mapping" t)
(:integer map-fixed "MAP_FIXED" "mmap: map at given location" t)
(:integer map-shared "MAP_SHARED" "mmap: shared memory" t)
(:integer map-private "MAP_PRIVATE" "mmap: private mapping" t)
(:integer map-fixed "MAP_FIXED" "mmap: map at given location" t)
+ (:integer map-anon "MAP_ANON" "mmap: anonymous mapping not associated with any file" t)
;; msync()
(:integer ms-async "MS_ASYNC" "msync: return immediately" t)
;; msync()
(:integer ms-async "MS_ASYNC" "msync: return immediately" t)
@@
-272,7
+273,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
+318,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")