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
2 changed files:
Changes:
| ... | ... | @@ -175,7 +175,7 @@ |
| 175 | 175 | TIOCSIGSEND
|
| 176 | 176 | |
| 177 | 177 | KBDCGET KBDCSET KBDCRESET KBDCRST KBDCSSTD KBDSGET KBDGCLICK
|
| 178 | - KBDSCLICK FIONREAD unix-exit unix-stat unix-lstat unix-fstat
|
|
| 178 | + KBDSCLICK FIONREAD unix-exit
|
|
| 179 | 179 | unix-getrusage unix-fast-getrusage rusage_self rusage_children
|
| 180 | 180 | unix-gettimeofday
|
| 181 | 181 | unix-utimes unix-sched-yield unix-setreuid
|
| ... | ... | @@ -159,7 +159,7 @@ |
| 159 | 159 | |
| 160 | 160 | KBDCGET KBDCSET KBDCRESET KBDCRST KBDCSSTD KBDSGET KBDGCLICK
|
| 161 | 161 | KBDSCLICK FIONREAD #+(or hpux bsd) siocspgrp
|
| 162 | - unix-exit unix-stat unix-lstat unix-fstat
|
|
| 162 | + unix-exit
|
|
| 163 | 163 | unix-getrusage unix-fast-getrusage rusage_self rusage_children
|
| 164 | 164 | unix-gettimeofday
|
| 165 | 165 | #-hpux unix-utimes #-(or svr4 hpux) unix-setreuid
|
| ... | ... | @@ -230,50 +230,6 @@ |
| 230 | 230 | ;;;
|
| 231 | 231 | |
| 232 | 232 | |
| 233 | -;;; From sys/stat.h
|
|
| 234 | -;; oh boy, in linux-> 2 stat(s)!!
|
|
| 235 | - |
|
| 236 | -#-(or svr4 bsd linux) ; eg hpux and alpha
|
|
| 237 | -(def-alien-type nil
|
|
| 238 | - (struct stat
|
|
| 239 | - (st-dev dev-t)
|
|
| 240 | - (st-ino ino-t)
|
|
| 241 | - (st-mode mode-t)
|
|
| 242 | - (st-nlink nlink-t)
|
|
| 243 | - (st-uid uid-t)
|
|
| 244 | - (st-gid gid-t)
|
|
| 245 | - (st-rdev dev-t)
|
|
| 246 | - (st-size off-t)
|
|
| 247 | - (st-atime time-t)
|
|
| 248 | - (st-spare1 int)
|
|
| 249 | - (st-mtime time-t)
|
|
| 250 | - (st-spare2 int)
|
|
| 251 | - (st-ctime time-t)
|
|
| 252 | - (st-spare3 int)
|
|
| 253 | - (st-blksize #-alpha long #+alpha unsigned-int)
|
|
| 254 | - (st-blocks #-alpha long #+alpha int)
|
|
| 255 | - (st-spare4 (array long 2))))
|
|
| 256 | - |
|
| 257 | -#+netbsd
|
|
| 258 | -(def-alien-type nil
|
|
| 259 | - (struct stat
|
|
| 260 | - (st-dev dev-t)
|
|
| 261 | - (st-mode mode-t)
|
|
| 262 | - (st-ino ino-t)
|
|
| 263 | - (st-nlink nlink-t)
|
|
| 264 | - (st-uid uid-t)
|
|
| 265 | - (st-gid gid-t)
|
|
| 266 | - (st-rdev dev-t)
|
|
| 267 | - (st-atime (struct timespec-t))
|
|
| 268 | - (st-mtime (struct timespec-t))
|
|
| 269 | - (st-ctime (struct timespec-t))
|
|
| 270 | - (st-birthtime (struct timespec-t))
|
|
| 271 | - (st-size off-t)
|
|
| 272 | - (st-blocks off-t)
|
|
| 273 | - (st-blksize long)
|
|
| 274 | - (st-flags unsigned-long)
|
|
| 275 | - (st-gen unsigned-long)
|
|
| 276 | - (st-spare (array unsigned-long 2))))
|
|
| 277 | 233 | |
| 278 | 234 | ;;; From sys/resource.h
|
| 279 | 235 |