Permalink
Browse files

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...
1 parent 2a71a27 commit 0ae8180db142282924d16e1b7d1c54c72ed0d23c @csrhodes csrhodes committed Apr 11, 2005
Showing with 16 additions and 5 deletions.
  1. +3 −0 src/code/cross-misc.lisp
  2. +2 −2 src/code/cross-type.lisp
  3. +9 −1 src/compiler/ir1opt.lisp
  4. +1 −1 tests/foreign.test.sh
  5. +1 −1 version.lisp-expr
View
3 src/code/cross-misc.lisp
@@ -136,6 +136,9 @@
(assert (typep array '(simple-array * (*))))
(values array start end 0))
+(defun sb!kernel:signed-byte-32-p (number)
+ (typep number '(signed-byte 32)))
+
;;; package locking nops for the cross-compiler
(defmacro without-package-locks (&body body)
View
4 src/code/cross-type.lisp
@@ -23,7 +23,7 @@
((call :initarg :call
:reader cross-type-style-warning-call)
(message :reader cross-type-style-warning-message
- #+cmu :initarg #+cmu :message ; (to stop bogus non-STYLE WARNING)
+ #+cmu #+cmu :initarg :message ; (to stop bogus non-STYLE WARNING)
))
(:report (lambda (c s)
(format
@@ -38,7 +38,7 @@
(define-condition cross-type-giving-up-conservatively
(cross-type-style-warning)
((message :initform "giving up conservatively"
- #+cmu :reader #+cmu #.(gensym) ; (to stop bogus non-STYLE WARNING)
+ #+cmu #+cmu :reader #.(gensym) ; (to stop bogus non-STYLE WARNING)
)))
;;; This warning refers to the flexibility in the ANSI spec with
View
10 src/compiler/ir1opt.lisp
@@ -1126,7 +1126,15 @@
;; COMPILER-WARNING (and thus return FAILURE-P=T
;; from COMPILE-FILE) for legal code, so we we
;; use a wimpier COMPILE-STYLE-WARNING instead.
- #'compiler-style-warn
+ #-sb-xc-host #'compiler-style-warn
+ ;; On the other hand, for code we control, we
+ ;; should be able to work around any bug
+ ;; 173-related problems, and in particular we
+ ;; want to be alerted to calls to our own
+ ;; functions which aren't being folded away; a
+ ;; COMPILER-WARNING is butch enough to stop the
+ ;; SBCL build itself in its tracks.
+ #+sb-xc-host #'compiler-warn
"constant folding")
(cond ((not win)
(setf (combination-kind call) :error))
View
2 tests/foreign.test.sh
@@ -27,7 +27,7 @@ testfilestem=${TMPDIR:-/tmp}/sbcl-foreign-test-$$
build_so() {
echo building $1.so
- if [ $(uname -p) = x86_64 ]; then
+ if [ $(uname -m) = x86_64 ]; then
CFLAGS="$CFLAGS -fPIC"
fi
if [ $(uname) = Darwin ]; then
View
2 version.lisp-expr
@@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.21.33"
+"0.8.21.34"

0 comments on commit 0ae8180

Please sign in to comment.