From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sat, 14 Apr 2007 11:16:53 +0000 (+0000)
Subject: 1.0.4.86: correct type declaration for SAP+
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=9bcca76789d8bd2d2fcecacf47493fb846195afd;p=sbcl.git

1.0.4.86: correct type declaration for SAP+

 * The OFFSET argument is a (SIGNED-BYTE #.N-WORD-BITS), not a FIXNUM.
---

diff --git a/src/code/target-sap.lisp b/src/code/target-sap.lisp
index 13b5037..ae48346 100644
--- a/src/code/target-sap.lisp
+++ b/src/code/target-sap.lisp
@@ -41,7 +41,7 @@
 ;;; Return a new SAP, OFFSET bytes from SAP.
 (defun sap+ (sap offset)
   (declare (type system-area-pointer sap)
-           (fixnum offset))
+           (type (signed-byte #.sb!vm:n-word-bits) offset))
   (sap+ sap offset))
 
 ;;; Return the byte offset between SAP1 and SAP2.
diff --git a/version.lisp-expr b/version.lisp-expr
index 6a8d3a3..3106642 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".)
-"1.0.4.85"
+"1.0.4.86"