From: Juho Snellman <jsnell@iki.fi>
Date: Tue, 1 Jan 2008 14:49:49 +0000 (+0000)
Subject: 1.0.13.7: Fix off-by-one regression in STRING-LIST-TO-C-STRVEC
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=16bd0d14ffa377c9ebf2f6088d7d24d5f4583f61;p=sbcl.git

1.0.13.7: Fix off-by-one regression in STRING-LIST-TO-C-STRVEC

        * "Since 1.0.12.21, the size variable already includes the null byte."
        * Patch by David Lichteblau
---

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index e1ab659..5339eb1 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -489,7 +489,7 @@ status slot."
         ;; Put the pointer in the vector.
         (setf (sap-ref-sap vec-sap vec-index-offset) string-sap)
         ;; Advance string-sap for the next string.
-        (setf string-sap (sap+ string-sap (round-bytes-to-words (1+ size))))
+        (setf string-sap (sap+ string-sap (round-bytes-to-words size)))
         (incf vec-index-offset bytes-per-word)))
     ;; Final null pointer.
     (setf (sap-ref-sap vec-sap vec-index-offset) (int-sap 0))
diff --git a/version.lisp-expr b/version.lisp-expr
index 02fd538..9f414da 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.13.6"
+"1.0.13.7"