From: David Lichteblau <david@lichteblau.com>
Date: Wed, 31 Oct 2012 15:20:11 +0000 (+0100)
Subject: Linux/MIPS uses "unsigned long" instead of dev_t in struct stat
X-Git-Url: http://repo.macrolet.net/gitweb/?p=sbcl.git;a=commitdiff_plain;h=5311c55dde4deee4b21fb09f9d7b97572083a7d9

Linux/MIPS uses "unsigned long" instead of dev_t in struct stat

Handle rdev the same way as dev.
---

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index 0b66705..789cb91 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -318,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")