From: Juho S. <js...@us...> - 2008-01-01 14:50:29
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv11234/src/code Modified Files: run-program.lisp Log Message: 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 Index: run-program.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/run-program.lisp,v retrieving revision 1.70 retrieving revision 1.71 diff -u -d -r1.70 -r1.71 --- run-program.lisp 21 Dec 2007 00:42:23 -0000 1.70 +++ run-program.lisp 1 Jan 2008 14:49:49 -0000 1.71 @@ -489,7 +489,7 @@ ;; 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)) |