[Git][cmucl/cmucl][issue-125-unix-stat-wrong] Remove stat from contrib unix

Raymond Toy (@rtoy) gitlab at common-lisp.net
Thu Aug 4 23:18:43 UTC 2022



Raymond Toy pushed to branch issue-125-unix-stat-wrong at cmucl / cmucl


Commits:
9c22aa80 by Raymond Toy at 2022-08-04T16:18:22-07:00
Remove stat from contrib unix

contrib/unix/unix.lisp still had definitions of the alien typestruct
stat.  Remove these since they're not used there anyway.

contrib/unix/unix.lisp and contrib/unix/unix-glibc2.lisp both had
exports for unix-stat, unix-fstat, and unix-lstat.  Remove these.

- - - - -


2 changed files:

- src/contrib/unix/unix-glibc2.lisp
- src/contrib/unix/unix.lisp


Changes:

=====================================
src/contrib/unix/unix-glibc2.lisp
=====================================
@@ -175,7 +175,7 @@
 	  TIOCSIGSEND
 
 	  KBDCGET KBDCSET KBDCRESET KBDCRST KBDCSSTD KBDSGET KBDGCLICK
-	  KBDSCLICK FIONREAD	  unix-exit unix-stat unix-lstat unix-fstat
+	  KBDSCLICK FIONREAD	  unix-exit 
 	  unix-getrusage unix-fast-getrusage rusage_self rusage_children
 	  unix-gettimeofday
 	  unix-utimes unix-sched-yield unix-setreuid


=====================================
src/contrib/unix/unix.lisp
=====================================
@@ -159,7 +159,7 @@
 
 	  KBDCGET KBDCSET KBDCRESET KBDCRST KBDCSSTD KBDSGET KBDGCLICK
 	  KBDSCLICK FIONREAD #+(or hpux bsd) siocspgrp
-	  unix-exit unix-stat unix-lstat unix-fstat
+	  unix-exit 
 	  unix-getrusage unix-fast-getrusage rusage_self rusage_children
 	  unix-gettimeofday
 	  #-hpux unix-utimes #-(or svr4 hpux) unix-setreuid
@@ -230,50 +230,6 @@
 ;;;
 
 
-;;; From sys/stat.h
-;; oh boy, in linux-> 2 stat(s)!!
-
-#-(or svr4 bsd linux)		; eg hpux and alpha
-(def-alien-type nil
-  (struct stat
-    (st-dev dev-t)
-    (st-ino ino-t)
-    (st-mode mode-t)
-    (st-nlink nlink-t)
-    (st-uid uid-t)
-    (st-gid gid-t)
-    (st-rdev dev-t)
-    (st-size off-t)
-    (st-atime time-t)
-    (st-spare1 int)
-    (st-mtime time-t)
-    (st-spare2 int)
-    (st-ctime time-t)
-    (st-spare3 int)
-    (st-blksize #-alpha long #+alpha unsigned-int)
-    (st-blocks #-alpha long #+alpha int)
-    (st-spare4 (array long 2))))
-
-#+netbsd
-(def-alien-type nil
-  (struct stat
-    (st-dev dev-t)
-    (st-mode mode-t)
-    (st-ino ino-t)
-    (st-nlink nlink-t)
-    (st-uid uid-t)
-    (st-gid gid-t)
-    (st-rdev dev-t)
-    (st-atime (struct timespec-t))
-    (st-mtime (struct timespec-t))
-    (st-ctime (struct timespec-t))
-    (st-birthtime (struct timespec-t))
-    (st-size off-t)
-    (st-blocks off-t)
-    (st-blksize long)
-    (st-flags   unsigned-long)
-    (st-gen     unsigned-long)
-    (st-spare (array unsigned-long 2))))
 
 ;;; From sys/resource.h
 



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9c22aa80d7969fdc518d8aa86aad85241405048c

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9c22aa80d7969fdc518d8aa86aad85241405048c
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20220804/8c6722cd/attachment-0001.html>


More information about the cmucl-cvs mailing list