X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=contrib%2Fsb-posix%2Fconstants.lisp;h=789cb915ba6cfdcaf1921fc862039bdc870112a1;hb=HEAD;hp=48660fabd0caafa65c998854bbc3113c39c37891;hpb=f7de89dcaba119117767ac899620b0a649b60799;p=sbcl.git

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index 48660fa..789cb91 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -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-anon "MAP_ANON" "mmap: anonymous mapping not associated with any file" t)
 
  ;; msync()
  (:integer ms-async "MS_ASYNC" "msync: return immediately" t)
@@ -317,8 +318,11 @@
               ((unsigned 32) dev "dev_t" "st_dev")
               (nlink-t nlink "nlink_t" "st_nlink")
               (uid-t uid "uid_t" "st_uid")
+              ;; Linux/MIPS uses unsigned long instead of dev_t here.
               #-mips
               (dev-t rdev "dev_t" "st_rdev")
+              #+mips
+              ((unsigned 32) 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")