projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.4.23: sb-grovel x86-64/darwin fix
[sbcl.git]
/
contrib
/
sb-posix
/
constants.lisp
diff --git
a/contrib/sb-posix/constants.lisp
b/contrib/sb-posix/constants.lisp
index
6e05505
..
3e24e0e
100644
(file)
--- a/
contrib/sb-posix/constants.lisp
+++ b/
contrib/sb-posix/constants.lisp
@@
-298,6
+298,12
@@
(time-t mtime "time_t" "st_mtime")
(time-t ctime "time_t" "st_ctime")))
(time-t mtime "time_t" "st_mtime")
(time-t ctime "time_t" "st_ctime")))
+ #+darwin
+ (:structure alien-timespec
+ ("struct timespec"
+ (time-t tv-sec "time_t" "tv_sec")
+ (long tv-nsec "long" "tv_nsec")))
+
;; open()
(:integer o-rdonly "O_RDONLY" nil t)
(:integer o-wronly "O_WRONLY" nil t)
;; open()
(:integer o-rdonly "O_RDONLY" nil t)
(:integer o-wronly "O_WRONLY" nil t)
@@
-354,6
+360,11
@@
;; utime(), utimes()
#-win32
;; utime(), utimes()
#-win32
+ (:type suseconds-t ; OAOOM warning: similar kludge in tools-for-build
+ #-(and darwin ppc) "suseconds_t"
+ #+(and darwin ppc) "int")
+
+ #-win32
(:structure alien-utimbuf
("struct utimbuf"
(time-t actime "time_t" "actime")
(:structure alien-utimbuf
("struct utimbuf"
(time-t actime "time_t" "actime")
@@
-361,8
+372,8
@@
#-win32
(:structure alien-timeval
("struct timeval"
#-win32
(:structure alien-timeval
("struct timeval"
- (long sec "long" "tv_sec")
- (long usec "long" "tv_usec")))
+ (time-t sec "time_t" "tv_sec")
+ (suseconds-t usec "suseconds_t" "tv_usec")))
(:integer veof "VEOF" nil t)
(:integer veol "VEOL" nil t)
(:integer veof "VEOF" nil t)
(:integer veol "VEOL" nil t)
@@
-579,7
+590,7
@@
(:integer
log-warning "LOG_WARNING" "Log severity level denoting a warning." t)
#-win32
(:integer
log-warning "LOG_WARNING" "Log severity level denoting a warning." t)
#-win32
- (:integer
+ (:integer
log-notice "LOG_NOTICE" "Log severity level denoting non-errors that may require special handling." t)
#-win32
(:integer
log-notice "LOG_NOTICE" "Log severity level denoting non-errors that may require special handling." t)
#-win32
(:integer
@@
-587,5
+598,5
@@
#-win32
(:integer
log-debug "LOG_DEBUG" "Log severity level denoting debugging information ." t)
#-win32
(:integer
log-debug "LOG_DEBUG" "Log severity level denoting debugging information ." t)
-
+
)
)