From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 5 Aug 1987 07:33:16 +0000 (+0000)
Subject: Fix bug in allocate_string which was making impurify die.
X-Git-Tag: 20090517-FFI~13191
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0172cc469bc6b0e0545c316d27215255895ab2b5;p=mit-scheme.git

Fix bug in allocate_string which was making impurify die.
---

diff --git a/v7/src/microcode/string.c b/v7/src/microcode/string.c
index 1ae78632a..b2c894fd7 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.26 1987/07/23 21:51:03 cph Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/string.c,v 9.27 1987/08/05 07:32:48 jinx Rel $ */
 
 /* String primitives. */
 
@@ -52,7 +52,6 @@ allocate_string (nbytes)
   count = ((BYTES_TO_POINTERS (nbytes + 1)) + 2);
   result = (allocate_non_marked_vector (TC_CHARACTER_STRING, count, true));
   set_string_length (result, nbytes);
-  Free += count;
   return (result);
 }
 
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 22cc4aded..24dbde900 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -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/Attic/version.h,v 9.91 1987/08/03 19:41:39 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.92 1987/08/05 07:33:16 jinx Exp $
 
 This file contains version information for the microcode. */
 
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION		9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	91
+#define SUBVERSION	92
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 0bac765bf..734da24d5 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -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/v8/src/microcode/version.h,v 9.91 1987/08/03 19:41:39 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.92 1987/08/05 07:33:16 jinx Exp $
 
 This file contains version information for the microcode. */
 
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION		9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	91
+#define SUBVERSION	92
 #endif
 
 #ifndef UCODE_TABLES_FILENAME