From: Joe Marshall <edu/mit/csail/zurich/jrm>
Date: Thu, 31 Mar 1988 21:23:18 +0000 (+0000)
Subject: allocate_string was allocating a word too many.
X-Git-Tag: 20090517-FFI~12841
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e9ba968e4e0c9f1a8f2d848c0baf8dfc60ee8427;p=mit-scheme.git

allocate_string was allocating a word too many.
---

diff --git a/v7/src/microcode/string.c b/v7/src/microcode/string.c
index c959a80d1..6f007daf2 100644
--- a/v7/src/microcode/string.c
+++ b/v7/src/microcode/string.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/string.c,v 9.29 1987/11/23 05:08:56 cph Rel $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/string.c,v 9.30 1988/03/31 21:23:18 jrm Rel $ */
 
 /* String primitives. */
 
@@ -49,7 +49,7 @@ allocate_string (nbytes)
   /* Add 1 to nbytes to account for '\0' at end of string.
      Add 1 to count to account for string header words. */
 
-  count = ((BYTES_TO_POINTERS (nbytes + 1)) + 2);
+  count = ((BYTES_TO_POINTERS (nbytes + 1)) + 1);
   result = (allocate_non_marked_vector (TC_CHARACTER_STRING, count, true));
   set_string_length (result, nbytes);
   return (result);