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 (file)
--- 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 (file)
--- 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"