Commit 6bbeced97cdb1047584ad41a08c127c144e0e72d
2018-06-29T12:11:55
fix stat on Linux please recompile glibc to export all symbols
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
diff --git a/grovel-stat.lisp b/grovel-stat.lisp
index 128b8a8..76665ef 100644
--- a/grovel-stat.lisp
+++ b/grovel-stat.lisp
@@ -20,7 +20,7 @@
(include "sys/types.h")
(include "sys/stat.h")
-(include "sys/unistd.h")
+(include "unistd.h")
(ctype blkcnt-t "blkcnt_t")
(ctype blksize-t "blksize_t")
@@ -40,23 +40,20 @@
(tv-nsec "tv_nsec" :type :long))
#+linux
-(constant (+stat-ver+ "_STAT_VER"))
-
-#+linux
(cstruct stat "struct stat"
- (st-mode "st_mode" :type mode-t)
(st-dev "st_dev" :type dev-t)
(st-ino "st_ino" :type ino-t)
+ (st-mode "st_mode" :type mode-t)
(st-nlink "st_nlink" :type nlink-t)
(st-uid "st_uid" :type uid-t)
(st-gid "st_gid" :type gid-t)
(st-rdev "st_rdev" :type dev-t)
- (st-atim "st_atim" :type (:struct timespec))
- (st-mtim "st_mtim" :type (:struct timespec))
- (st-ctim "st_ctim" :type (:struct timespec))
(st-size "st_size" :type off-t)
+ (st-blksize "st_blksize" :type blksize-t)
(st-blocks "st_blocks" :type blkcnt-t)
- (st-blksize "st_blksize" :type blksize-t))
+ (st-atim "st_atim" :type (:struct timespec))
+ (st-mtim "st_mtim" :type (:struct timespec))
+ (st-ctim "st_ctim" :type (:struct timespec)))
#+openbsd
(cstruct stat "struct stat"