From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 Nov 1993 20:38:25 +0000 (+0000)
Subject: Add new slot to fixed objects vector, which contains a list of files
X-Git-Tag: 20090517-FFI~7582
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=722f64b0fd25b508df487afb1d1a3a18f13dba8f;p=mit-scheme.git

Add new slot to fixed objects vector, which contains a list of files
to be deleted when the microcode exits.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 001f1bf06..78a22159c 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.86 1993/10/26 03:04:06 jawilson Exp $
+$Id: boot.c,v 9.87 1993/11/08 20:38:25 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -221,6 +221,7 @@ DEFUN_VOID (make_fixed_objects_vector)
   FAST_VECTOR_SET (fixed_objects_vector, State_Space_Tag, SHARP_T);
   FAST_VECTOR_SET (fixed_objects_vector, Bignum_One, (long_to_bignum (1)));
   FAST_VECTOR_SET (fixed_objects_vector, FIXOBJ_EDWIN_AUTO_SAVE, EMPTY_LIST);
+  FAST_VECTOR_SET (fixed_objects_vector, FIXOBJ_FILES_TO_DELETE, EMPTY_LIST);
 
   (*Free++) = EMPTY_LIST;
   (*Free++) = EMPTY_LIST;
diff --git a/v7/src/microcode/fixobj.h b/v7/src/microcode/fixobj.h
index 8c282ad83..a06bc4332 100644
--- a/v7/src/microcode/fixobj.h
+++ b/v7/src/microcode/fixobj.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fixobj.h,v 9.35 1993/09/11 02:45:53 gjr Exp $
+$Id: fixobj.h,v 9.36 1993/11/08 20:38:05 cph Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -55,8 +55,7 @@ MIT in each case. */
 #define FIXOBJ_EDWIN_AUTO_SAVE	0x0D	/* Files to save if fatal error. */
 #define Stepper_State		0x0E	/* UNUSED in CScheme. */
 #define Fixed_Objects_Slots	0x0F	/* Names of these slots. */
-/* UNUSED slot			0x10 used to be
-   External_Primitives			   Names of external prims. */
+#define FIXOBJ_FILES_TO_DELETE	0x10	/* Temporary files to delete. */
 #define State_Space_Tag		0x11	/* Tag for state spaces. */
 #define State_Point_Tag		0x12	/* Tag for state points. */
 #define Dummy_History		0x13	/* Empty history structure. */
diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 2d6a1ecff..c3af52ae8 100644
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: utabmd.scm,v 9.71 1993/09/11 02:45:59 gjr Exp $
+;;; $Id: utabmd.scm,v 9.72 1993/11/08 20:38:11 cph Exp $
 ;;;
 ;;;	Copyright (c) 1987-1993 Massachusetts Institute of Technology
 ;;;
@@ -73,7 +73,7 @@
 	       EDWIN-AUTO-SAVE				;0D
 	       STEPPER-STATE				;0E
 	       MICROCODE-FIXED-OBJECTS-SLOTS		;0F
-	       #F					;10
+	       FILES-TO-DELETE				;10
 	       STATE-SPACE-TAG				;11
 	       STATE-POINT-TAG				;12
 	       DUMMY-HISTORY				;13
@@ -715,4 +715,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Id: utabmd.scm,v 9.71 1993/09/11 02:45:59 gjr Exp $"
\ No newline at end of file
+"$Id: utabmd.scm,v 9.72 1993/11/08 20:38:11 cph Exp $"
\ No newline at end of file
diff --git a/v8/src/microcode/fixobj.h b/v8/src/microcode/fixobj.h
index 8c282ad83..a06bc4332 100644
--- a/v8/src/microcode/fixobj.h
+++ b/v8/src/microcode/fixobj.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fixobj.h,v 9.35 1993/09/11 02:45:53 gjr Exp $
+$Id: fixobj.h,v 9.36 1993/11/08 20:38:05 cph Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -55,8 +55,7 @@ MIT in each case. */
 #define FIXOBJ_EDWIN_AUTO_SAVE	0x0D	/* Files to save if fatal error. */
 #define Stepper_State		0x0E	/* UNUSED in CScheme. */
 #define Fixed_Objects_Slots	0x0F	/* Names of these slots. */
-/* UNUSED slot			0x10 used to be
-   External_Primitives			   Names of external prims. */
+#define FIXOBJ_FILES_TO_DELETE	0x10	/* Temporary files to delete. */
 #define State_Space_Tag		0x11	/* Tag for state spaces. */
 #define State_Point_Tag		0x12	/* Tag for state points. */
 #define Dummy_History		0x13	/* Empty history structure. */
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 2d6a1ecff..c3af52ae8 100644
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: utabmd.scm,v 9.71 1993/09/11 02:45:59 gjr Exp $
+;;; $Id: utabmd.scm,v 9.72 1993/11/08 20:38:11 cph Exp $
 ;;;
 ;;;	Copyright (c) 1987-1993 Massachusetts Institute of Technology
 ;;;
@@ -73,7 +73,7 @@
 	       EDWIN-AUTO-SAVE				;0D
 	       STEPPER-STATE				;0E
 	       MICROCODE-FIXED-OBJECTS-SLOTS		;0F
-	       #F					;10
+	       FILES-TO-DELETE				;10
 	       STATE-SPACE-TAG				;11
 	       STATE-POINT-TAG				;12
 	       DUMMY-HISTORY				;13
@@ -715,4 +715,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Id: utabmd.scm,v 9.71 1993/09/11 02:45:59 gjr Exp $"
\ No newline at end of file
+"$Id: utabmd.scm,v 9.72 1993/11/08 20:38:11 cph Exp $"
\ No newline at end of file