From: Alastair Bridgewater Date: Thu, 24 Mar 2011 19:33:04 +0000 (+0000) Subject: 1.0.46.44: room: Fix map-stack-references for stack-grows-upward systems. X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d077b28e3d745afe9e4593cac1851f9c62c6f16f;p=sbcl.git 1.0.46.44: room: Fix map-stack-references for stack-grows-upward systems. * SAP+ is (function (system-area-pointer integer) (values system-area-pointer)). * SAP- is (function (system-area-pointer system-area-pointer) (values integer)). * When negating the delta in a SAP+ operation, don't use SAP-. Instead, negate the offset. Otherwise, you get a WARNING for passing an integer where a system-area-pointer is expected. --- diff --git a/src/code/room.lisp b/src/code/room.lisp index 4e12042..ec6888e 100644 --- a/src/code/room.lisp +++ b/src/code/room.lisp @@ -802,7 +802,7 @@ (push obj seen)))) (setf sp #!+stack-grows-downward-not-upward (sap+ sp n-word-bytes) - #!-stack-grows-downward-not-upward (sap- sp n-word-bytes))))) + #!-stack-grows-downward-not-upward (sap+ sp (- n-word-bytes)))))) (defun map-referencing-objects (fun space object) (declare (type spaces space) (inline map-allocated-objects)) diff --git a/version.lisp-expr b/version.lisp-expr index ce4ca5d..4c80acd 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -20,4 +20,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".) -"1.0.46.43" +"1.0.46.44"