diff --git a/crossbuild-runner/backends/sparc/stuff-groveled-from-headers.lisp b/crossbuild-runner/backends/sparc/stuff-groveled-from-headers.lisp index 4d96c2e81..7dd8b41e0 100644 --- a/crossbuild-runner/backends/sparc/stuff-groveled-from-headers.lisp +++ b/crossbuild-runner/backends/sparc/stuff-groveled-from-headers.lisp @@ -7,6 +7,7 @@ (defconstant rtld-lazy 1) ; #x1 (defconstant rtld-now 2) ; #x2 (defconstant rtld-global 256) ; #x100 + (in-package "SB-UNIX") ;;; select() @@ -19,17 +20,16 @@ (defconstant pollnval 32) ; #x20 (defconstant pollerr 8) ; #x8 (define-alien-type nfds-t (unsigned 32)) -;;; langinfo -(defconstant codeset 14) ; #xe ;;; types, types, types (define-alien-type clock-t (signed 32)) -(define-alien-type dev-t (unsigned 64)) +(define-alien-type dev-t (unsigned 32)) (define-alien-type gid-t (unsigned 32)) (define-alien-type ino-t (unsigned 32)) (define-alien-type mode-t (unsigned 32)) (define-alien-type nlink-t (unsigned 32)) (define-alien-type off-t (signed 32)) (define-alien-type size-t (unsigned 32)) +(define-alien-type ssize-t (signed 32)) (define-alien-type time-t (signed 32)) (define-alien-type suseconds-t (signed 32)) (define-alien-type uid-t (unsigned 32)) @@ -37,7 +37,7 @@ ;; Don't use these types for anything other than the stat wrapper. (define-alien-type wst-ino-t (unsigned 32)) (define-alien-type wst-dev-t (unsigned 32)) -(define-alien-type wst-off-t (unsigned 32)) +(define-alien-type wst-off-t (signed 32)) (define-alien-type wst-blksize-t (signed 32)) (define-alien-type wst-blkcnt-t (signed 32)) (define-alien-type wst-nlink-t (unsigned 32)) @@ -54,11 +54,11 @@ (defconstant o_rdonly 0) ; #x0 (defconstant o_wronly 1) ; #x1 (defconstant o_rdwr 2) ; #x2 -(defconstant o_accmode 3) ; #x3 -(defconstant o_creat 512) ; #x200 -(defconstant o_excl 2048) ; #x800 -(defconstant o_noctty 32768) ; #x8000 -(defconstant o_trunc 1024) ; #x400 +(defconstant o_accmode 6291459) ; #x600003 +(defconstant o_creat 256) ; #x100 +(defconstant o_excl 1024) ; #x400 +(defconstant o_noctty 2048) ; #x800 +(defconstant o_trunc 512) ; #x200 (defconstant o_append 8) ; #x8 ;;; (defconstant s-ifmt 61440) ; #xf000 @@ -78,51 +78,54 @@ (defconstant eagain 11) ; #xb (defconstant eio 5) ; #x5 (defconstant eexist 17) ; #x11 -(defconstant eloop 62) ; #x3e -(defconstant espipe 29) ; #x1d +(defconstant eloop 90) ; #x5a (defconstant epipe 32) ; #x20 +(defconstant espipe 29) ; #x1d (defconstant ewouldblock 11) ; #xb +(defconstant sc-nprocessors-onln 15) ; #xf ;;; for waitpid() in run-program.lisp -(defconstant wnohang 1) ; #x1 -(defconstant wuntraced 2) ; #x2 +(defconstant wcontinued 8) ; #x8 +(defconstant wnohang 64) ; #x40 +(defconstant wuntraced 4) ; #x4 ;;; various ioctl(2) flags -(defconstant tiocgpgrp 1074033795) ; #x40047483 +(defconstant tiocgpgrp 29716) ; #x7414 ;;; signals -(defconstant sizeof-sigset_t 128) ; #x80 -(defconstant sig_setmask 2) ; #x2 +(defconstant sizeof-sigset_t 16) ; #x10 +(defconstant sig_block 1) ; #x1 (defconstant sig_unblock 2) ; #x2 +(defconstant sig_setmask 3) ; #x3 (defconstant sigalrm 14) ; #xe (defconstant sigbus 10) ; #xa -(defconstant sigchld 20) ; #x14 -(defconstant sigcont 19) ; #x13 +(defconstant sigchld 18) ; #x12 +(defconstant sigcont 25) ; #x19 (defconstant sigemt 7) ; #x7 (defconstant sigfpe 8) ; #x8 (defconstant sighup 1) ; #x1 (defconstant sigill 4) ; #x4 (defconstant sigint 2) ; #x2 -(defconstant sigio 23) ; #x17 +(defconstant sigio 22) ; #x16 (defconstant sigkill 9) ; #x9 (defconstant sigpipe 13) ; #xd -(defconstant sigprof 27) ; #x1b +(defconstant sigprof 29) ; #x1d (defconstant sigquit 3) ; #x3 (defconstant sigsegv 11) ; #xb -(defconstant sigstop 17) ; #x11 +(defconstant sigstop 23) ; #x17 (defconstant sigsys 12) ; #xc (defconstant sigterm 15) ; #xf (defconstant sigtrap 5) ; #x5 -(defconstant sigtstp 18) ; #x12 -(defconstant sigttin 21) ; #x15 -(defconstant sigttou 22) ; #x16 -(defconstant sigurg 16) ; #x10 -(defconstant sigusr1 30) ; #x1e -(defconstant sigusr2 31) ; #x1f -(defconstant sigvtalrm 26) ; #x1a -(defconstant sigwinch 28) ; #x1c -(defconstant sigxcpu 24) ; #x18 -(defconstant sigxfsz 25) ; #x19 +(defconstant sigtstp 24) ; #x18 +(defconstant sigttin 26) ; #x1a +(defconstant sigttou 27) ; #x1b +(defconstant sigurg 21) ; #x15 +(defconstant sigusr1 16) ; #x10 +(defconstant sigusr2 17) ; #x11 +(defconstant sigvtalrm 28) ; #x1c +(defconstant sigwinch 20) ; #x14 +(defconstant sigxcpu 30) ; #x1e +(defconstant sigxfsz 31) ; #x1f (defconstant fpe-intovf 2) ; #x2 (defconstant fpe-intdiv 1) ; #x1 (defconstant fpe-fltdiv 3) ; #x3 @@ -132,10 +135,9 @@ (defconstant fpe-fltinv 7) ; #x7 (defconstant fpe-fltsub 8) ; #x8 -(defconstant clock-process-cputime-id 2) ; #x2 -(defconstant clock-monotonic-coarse 6) ; #x6 -(defconstant clock-thread-cputime-id 3) ; #x3 - +(defconstant clock-realtime 3) ; #x3 +(defconstant clock-monotonic 4) ; #x4 +(defconstant clock-process-cputime-id 5) ; #x5 ;;; structures (define-alien-type nil (struct timeval @@ -154,4 +156,3 @@ ;;; Our runtime types (define-alien-type os-vm-size-t (unsigned 32)) - diff --git a/crossbuild-runner/build-all.sh b/crossbuild-runner/build-all.sh index b1d6dfa9c..2d38153c4 100755 --- a/crossbuild-runner/build-all.sh +++ b/crossbuild-runner/build-all.sh @@ -25,11 +25,14 @@ do echo '(lambda (features) (union features (list :os-provides-dlopen ' > $ltf echo ":$arch" >> $ltf # x86 and x86-64 are tested as if #+win32. Unix is otherwise plenty tested. - if [ $arch = x86 -o $arch = x86-64 ]; then - echo ':win32 :sb-thread :sb-safepoint' >> $ltf - else - echo ':unix :linux :elf' >> $ltf - fi + case $arch in + x86 | x86-64) + echo ':win32 :sb-thread :sb-safepoint' >> $ltf ;; + sparc) + echo ':unix :sunos :elf' >> $ltf ;; + *) + echo ':unix :linux :elf' >> $ltf ;; + esac cat crossbuild-runner/backends/$arch/features >> $ltf cat crossbuild-runner/backends/$arch/local-target-features >> $ltf echo ')))' >> $ltf diff --git a/float-math.lisp-expr b/float-math.lisp-expr index a26f8e270..d67239678 100644 --- a/float-math.lisp-expr +++ b/float-math.lisp-expr @@ -1924,6 +1924,7 @@ (= (#x4A #.(MAKE-DOUBLE-FLOAT #x40528000 #x0)) T) (= (#x4E #.(MAKE-DOUBLE-FLOAT #x40538000 #x0)) T) (= (#x51 #.(MAKE-DOUBLE-FLOAT #x40544000 #x0)) T) +(= (#x5A #.(MAKE-DOUBLE-FLOAT #x40568000 #x0)) T) (= (#x60 #.(MAKE-DOUBLE-FLOAT #x40580000 #x0)) T) (= (#x70 #.(MAKE-DOUBLE-FLOAT #x405C0000 #x0)) T) (= (#x80 #.(MAKE-DOUBLE-FLOAT #x40600000 #x0)) T) @@ -3974,6 +3975,7 @@ (COERCE (#x4A DOUBLE-FLOAT) #.(MAKE-DOUBLE-FLOAT #x40528000 #x0)) (COERCE (#x4E DOUBLE-FLOAT) #.(MAKE-DOUBLE-FLOAT #x40538000 #x0)) (COERCE (#x51 DOUBLE-FLOAT) #.(MAKE-DOUBLE-FLOAT #x40544000 #x0)) +(COERCE (#x5A DOUBLE-FLOAT) #.(MAKE-DOUBLE-FLOAT #x40568000 #x0)) (COERCE (#x60 DOUBLE-FLOAT) #.(MAKE-DOUBLE-FLOAT #x40580000 #x0)) (COERCE (#x70 DOUBLE-FLOAT) #.(MAKE-DOUBLE-FLOAT #x405C0000 #x0)) (COERCE (#x80 DOUBLE-FLOAT) #.(MAKE-DOUBLE-FLOAT #x40600000 #x0))