Commit 0ae8180d authored by Christophe Rhodes's avatar Christophe Rhodes
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.
parent 2a71a27c
Loading
Loading
Loading
Loading
+3 −0
Original line number Diff line number Diff line
@@ -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)
+2 −2
Original line number Diff line number Diff line
@@ -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
+9 −1
Original line number Diff line number Diff line
@@ -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))
+1 −1
Original line number Diff line number Diff line
@@ -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
+1 −1
Original line number Diff line number Diff line
@@ -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"