X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fconstants.lisp;h=c65dc5cea532de3976a4f57cf2e0c0bc0e150439;hb=d3392df09363005b7e8c19c8e07136fd2c13c1b5;hp=bae76f4ced63d3d0fa02ef066163c4891fcfffd4;hpb=2815ede476070aaebcf724e6e117f333a8e53b53;p=sbcl.git

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index bae76f4..c65dc5c 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -281,7 +281,6 @@
               #+nil
               (:integer fields "int" "pw_fields")))
 
- #-darwin
  (:structure alien-stat
              ("struct stat"
               (mode-t mode "mode_t" "st_mode")
@@ -304,23 +303,6 @@
              ("struct timespec"
               (time-t tv-sec "time_t" "tv_sec")
               (long tv-nsec "long" "tv_nsec")))
- #+darwin
- (:structure alien-stat
-             ("struct stat"
-              (mode-t mode "mode_t" "st_mode")
-              (ino-t ino "ino_t" "st_ino")
-              ;; Linux/MIPS uses unsigned long instead of dev_t here.
-              #-mips
-              (dev-t dev "dev_t" "st_dev")
-              #+mips
-              ((unsigned 32) dev "dev_t" "st_dev")
-              (nlink-t nlink "nlink_t" "st_nlink")
-              (uid-t uid "uid_t" "st_uid")
-              (gid-t gid "gid_t" "st_gid")
-              (off-t size "off_t" "st_size")
-              (alien-timespec atime "struct timespec" "st_atime")
-              (alien-timespec mtime "struct timespec" "st_mtime")
-              (alien-timespec ctime "struct timespec" "st_ctime")))
 
  ;; open()
  (:integer o-rdonly "O_RDONLY" nil t)
@@ -359,6 +341,12 @@
  (:integer f-getown "F_GETOWN" nil t)
  (:integer f-setown "F_SETOWN" nil t)
 
+ ;; lockf()
+ (:integer f-lock "F_LOCK" nil t)
+ (:integer f-tlock "F_TLOCK" nil t)
+ (:integer f-ulock "F_ULOCK" nil t)
+ (:integer f-test "F_TEST" nil t)
+
  ;; tcgetattr(), tcsetattr()
  #-win32
  (:type cc-t "cc_t")
@@ -378,7 +366,9 @@
 
  ;; utime(), utimes()
  #-win32
- (:type suseconds-t "suseconds_t")
+ (:type suseconds-t ; OAOOM warning: similar kludge in tools-for-build
+        #-(and darwin ppc) "suseconds_t"
+        #+(and darwin ppc) "int")
 
  #-win32
  (:structure alien-utimbuf