Skip to content
This repository
Browse code

0.8.21.34:

	How to lose friends and alienate people...
	... actually make constant-folding failure a full warning in the
		cross-compiler (but not the target).
	... fix the problem this reveals on x86-64.
	Meanwhile, "uname -p"?  Change to -m.
  • Loading branch information...
commit 0ae8180db142282924d16e1b7d1c54c72ed0d23c 1 parent 2a71a27
Christophe Rhodes csrhodes authored
3  src/code/cross-misc.lisp
@@ -136,6 +136,9 @@
136 136 (assert (typep array '(simple-array * (*))))
137 137 (values array start end 0))
138 138
  139 +(defun sb!kernel:signed-byte-32-p (number)
  140 + (typep number '(signed-byte 32)))
  141 +
139 142 ;;; package locking nops for the cross-compiler
140 143
141 144 (defmacro without-package-locks (&body body)
4 src/code/cross-type.lisp
@@ -23,7 +23,7 @@
23 23 ((call :initarg :call
24 24 :reader cross-type-style-warning-call)
25 25 (message :reader cross-type-style-warning-message
26   - #+cmu :initarg #+cmu :message ; (to stop bogus non-STYLE WARNING)
  26 + #+cmu #+cmu :initarg :message ; (to stop bogus non-STYLE WARNING)
27 27 ))
28 28 (:report (lambda (c s)
29 29 (format
@@ -38,7 +38,7 @@
38 38 (define-condition cross-type-giving-up-conservatively
39 39 (cross-type-style-warning)
40 40 ((message :initform "giving up conservatively"
41   - #+cmu :reader #+cmu #.(gensym) ; (to stop bogus non-STYLE WARNING)
  41 + #+cmu #+cmu :reader #.(gensym) ; (to stop bogus non-STYLE WARNING)
42 42 )))
43 43
44 44 ;;; This warning refers to the flexibility in the ANSI spec with
10 src/compiler/ir1opt.lisp
@@ -1126,7 +1126,15 @@
1126 1126 ;; COMPILER-WARNING (and thus return FAILURE-P=T
1127 1127 ;; from COMPILE-FILE) for legal code, so we we
1128 1128 ;; use a wimpier COMPILE-STYLE-WARNING instead.
1129   - #'compiler-style-warn
  1129 + #-sb-xc-host #'compiler-style-warn
  1130 + ;; On the other hand, for code we control, we
  1131 + ;; should be able to work around any bug
  1132 + ;; 173-related problems, and in particular we
  1133 + ;; want to be alerted to calls to our own
  1134 + ;; functions which aren't being folded away; a
  1135 + ;; COMPILER-WARNING is butch enough to stop the
  1136 + ;; SBCL build itself in its tracks.
  1137 + #+sb-xc-host #'compiler-warn
1130 1138 "constant folding")
1131 1139 (cond ((not win)
1132 1140 (setf (combination-kind call) :error))
2  tests/foreign.test.sh
@@ -27,7 +27,7 @@ testfilestem=${TMPDIR:-/tmp}/sbcl-foreign-test-$$
27 27
28 28 build_so() {
29 29 echo building $1.so
30   - if [ $(uname -p) = x86_64 ]; then
  30 + if [ $(uname -m) = x86_64 ]; then
31 31 CFLAGS="$CFLAGS -fPIC"
32 32 fi
33 33 if [ $(uname) = Darwin ]; then
2  version.lisp-expr
@@ -17,4 +17,4 @@
17 17 ;;; checkins which aren't released. (And occasionally for internal
18 18 ;;; versions, especially for internal versions off the main CVS
19 19 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
20   -"0.8.21.33"
  20 +"0.8.21.34"

0 comments on commit 0ae8180

Please sign in to comment.
Something went wrong with that request. Please try again.