/[cmucl]/src/code/unix-glibc2.lisp
ViewVC logotype

Diff of /src/code/unix-glibc2.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by gerd, Sun Aug 31 10:50:15 2003 UTC revision 1.31 by cwang, Tue Jun 1 23:16:00 2004 UTC
# Line 398  Line 398 
398  (def-alien-type u-int64-t (unsigned 64))  (def-alien-type u-int64-t (unsigned 64))
399  (def-alien-type register-t #-alpha int #+alpha long)  (def-alien-type register-t #-alpha int #+alpha long)
400    
401  (def-alien-type dev-t uquad-t)  (def-alien-type dev-t #-amd64 uquad-t #+amd64 u-int64-t)
402  (def-alien-type uid-t unsigned-int)  (def-alien-type uid-t unsigned-int)
403  (def-alien-type gid-t unsigned-int)  (def-alien-type gid-t unsigned-int)
404  (def-alien-type ino-t u-int32-t)  (def-alien-type ino-t #-amd64 u-int32-t #+amd64 u-int64-t)
405  (def-alien-type ino64-t u-int64-t)  (def-alien-type ino64-t u-int64-t)
406  (def-alien-type mode-t u-int32-t)  (def-alien-type mode-t u-int32-t)
407  (def-alien-type nlink-t unsigned-int)  (def-alien-type nlink-t #-amd64 unsigned-int #+amd64 u-int64-t)
408  (def-alien-type off-t int64-t)  (def-alien-type off-t int64-t)
409  (def-alien-type blkcnt-t u-int64-t)  (def-alien-type blkcnt-t u-int64-t)
410  (def-alien-type fsblkcnt-t u-int64-t)  (def-alien-type fsblkcnt-t u-int64-t)
# Line 1492  length LEN and type TYPE." Line 1492  length LEN and type TYPE."
1492  (def-alien-type nil  (def-alien-type nil
1493    (struct stat    (struct stat
1494      (st-dev dev-t)      (st-dev dev-t)
1495      #-alpha (st-pad1 unsigned-short)      #-(or alpha amd64) (st-pad1 unsigned-short)
1496      (st-ino ino-t)      (st-ino ino-t)
1497      #+alpha (st-pad1 unsigned-int)      #+alpha (st-pad1 unsigned-int)
1498      (st-mode mode-t)      #-amd64 (st-mode mode-t)
1499      (st-nlink  nlink-t)      (st-nlink  nlink-t)
1500        #+amd64 (st-mode mode-t)
1501      (st-uid  uid-t)      (st-uid  uid-t)
1502      (st-gid  gid-t)      (st-gid  gid-t)
1503      (st-rdev dev-t)      (st-rdev dev-t)
# Line 2734  in at a time in poll.") Line 2735  in at a time in poll.")
2735    
2736  (defmacro extract-stat-results (buf)  (defmacro extract-stat-results (buf)
2737    `(values T    `(values T
2738             #+alpha             #+(or alpha amd64)
2739             (slot ,buf 'st-dev)             (slot ,buf 'st-dev)
2740             #-alpha             #-(or alpha amd64)
2741             (+ (deref (slot ,buf 'st-dev) 0)             (+ (deref (slot ,buf 'st-dev) 0)
2742                (* (+ +max-u-long+  1)                (* (+ +max-u-long+  1)
2743                   (deref (slot ,buf 'st-dev) 1)))   ;;; let's hope this works..                   (deref (slot ,buf 'st-dev) 1)))   ;;; let's hope this works..
# Line 2745  in at a time in poll.") Line 2746  in at a time in poll.")
2746             (slot ,buf 'st-nlink)             (slot ,buf 'st-nlink)
2747             (slot ,buf 'st-uid)             (slot ,buf 'st-uid)
2748             (slot ,buf 'st-gid)             (slot ,buf 'st-gid)
2749             #+alpha             #+(or alpha amd64)
2750             (slot ,buf 'st-rdev)             (slot ,buf 'st-rdev)
2751             #-alpha             #-(or alpha amd64)
2752             (+ (deref (slot ,buf 'st-rdev) 0)             (+ (deref (slot ,buf 'st-rdev) 0)
2753                (* (+ +max-u-long+  1)                (* (+ +max-u-long+  1)
2754                   (deref (slot ,buf 'st-rdev) 1)))   ;;; let's hope this works..                   (deref (slot ,buf 'st-rdev) 1)))   ;;; let's hope this works..

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

  ViewVC Help
Powered by ViewVC 1.1.5