Commit 0bb2950b authored by Raymond Toy's avatar Raymond Toy
Browse files

Minor tweaks for solaris.

parent 088e156b
...@@ -215,9 +215,9 @@ ...@@ -215,9 +215,9 @@
(def-alien-type caddr-t (* char)) (def-alien-type caddr-t (* char))
(def-alien-type ino-t (def-alien-type ino-t
#+(or linux (and bsd (not netbsd))) unsigned-long
#+netbsd u-int64-t #+netbsd u-int64-t
#+alpha unsigned-int) #+alpha unsigned-int
#-(or alpha netbsd) unsigned-long)
(def-alien-type swblk-t long) (def-alien-type swblk-t long)
...@@ -2363,7 +2363,9 @@ ...@@ -2363,7 +2363,9 @@
returns NIL and the errno." returns NIL and the errno."
(with-alien ((tv (struct timeval)) (with-alien ((tv (struct timeval))
#-(or svr4 netbsd) (tz (struct timezone))) #-(or svr4 netbsd) (tz (struct timezone)))
(syscall* (#+netbsd #-netbsd "gettimeofday" "__gettimeofday50" (* (struct timeval)) #-svr4 (* (struct timezone))) (syscall* (#-netbsd "gettimeofday"
#+netbsd "__gettimeofday50"
(* (struct timeval)) #-svr4 (* (struct timezone)))
(values T (values T
(slot tv 'tv-sec) (slot tv 'tv-sec)
(slot tv 'tv-usec) (slot tv 'tv-usec)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment