From: Brian Downing Date: Tue, 12 Apr 2005 20:14:48 +0000 (+0000) Subject: 0.8.21.35: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=125b7b337701dbac929da65013865a642652f21c;p=sbcl.git 0.8.21.35: PPC allocate-vector fix, plus OpenMCL buildability ... ... write a 0 at the end of the allocated vector to ensure all of its pages are unprotected. Otherwise if one is passed off to C (by READ-N-BYTES for example) the GC trigger can be hit in foreign code. (Compare to SPARC) ... revert "#+cmu #+cmu a b" back to "#+cmu a #+cmu b", as OpenMCL and ACL's readers have buggy implementations of CLHS 2.4.8.17. --- diff --git a/src/assembly/ppc/array.lisp b/src/assembly/ppc/array.lisp index 4b68ace..bfb2958 100644 --- a/src/assembly/ppc/array.lisp +++ b/src/assembly/ppc/array.lisp @@ -34,4 +34,7 @@ (inst srwi ndescr type sb!vm:word-shift) (storew ndescr vector 0 sb!vm:other-pointer-lowtag) (storew length vector sb!vm:vector-length-slot sb!vm:other-pointer-lowtag)) + ;; This makes sure the zero byte at the end of a string is paged in so + ;; the kernel doesn't bitch if we pass it the string. + (storew zero-tn alloc-tn 0) (move result vector)) diff --git a/src/code/cross-type.lisp b/src/code/cross-type.lisp index 0f34ee9..47fc196 100644 --- a/src/code/cross-type.lisp +++ b/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 #+cmu :initarg :message ; (to stop bogus non-STYLE WARNING) + #+cmu :initarg #+cmu :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 #+cmu :reader #.(gensym) ; (to stop bogus non-STYLE WARNING) + #+cmu :reader #+cmu #.(gensym) ; (to stop bogus non-STYLE WARNING) ))) ;;; This warning refers to the flexibility in the ANSI spec with diff --git a/version.lisp-expr b/version.lisp-expr index 562064b..bc53dd6 100644 --- a/version.lisp-expr +++ b/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.34" +"0.8.21.35"