From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 29 Apr 1987 15:39:14 +0000 (+0000)
Subject: Cause generated fixed objects vector to have some extra slots for
X-Git-Tag: 20090517-FFI~13569
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=135bb38d7f50e45370d955887a8b69a03603056b;p=mit-scheme.git

Cause generated fixed objects vector to have some extra slots for
expansion and debugging purposes.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 0b31f4761..33a8ff7b7 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.30 1987/04/16 02:08:53 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.31 1987/04/29 15:39:14 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -262,8 +262,9 @@ main(argc, argv)
 									\
 	/* Now make the fixed objects vector */				\
   Fixed_Objects = Make_Pointer(TC_VECTOR, Free);			\
-  *Free++ = Make_Non_Pointer(TC_MANIFEST_VECTOR, NFixed_Objects);	\
-  for (i=1; i <= NFixed_Objects; i++) *Free++ = NIL;			\
+  /* Create the vector with 4 extra slots for expansion and debugging. */ \
+  *Free++ = Make_Non_Pointer(TC_MANIFEST_VECTOR, (NFixed_Objects + 4));	\
+  for (i=1; i <= (NFixed_Objects + 4); i++) *Free++ = NIL;		\
   User_Vector_Set(Fixed_Objects, Non_Object, Bad_Object);		\
   User_Vector_Set(Fixed_Objects, System_Interrupt_Vector, Int_Vec);	\
   User_Vector_Set(Fixed_Objects, System_Error_Vector, Error);		\