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 001f1bf06c731eef516ce21a4d7ea646771ba685..78a22159c963ef12e83d88fbf0f64638bd253e10 100644 (file)
--- 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 8c282ad83c1c522d25beec44fd6bbe2db41b2c4c..a06bc433252d99eb90a28db69b0be2e5d28f7b83 100644 (file)
--- 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 2d6a1ecff8860ef5dcaf233d8f08d70eab15ccbf..c3af52ae861fdaab2c892dc1587779128cb429bc 100644 (file)
--- 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 8c282ad83c1c522d25beec44fd6bbe2db41b2c4c..a06bc433252d99eb90a28db69b0be2e5d28f7b83 100644 (file)
--- 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 2d6a1ecff8860ef5dcaf233d8f08d70eab15ccbf..c3af52ae861fdaab2c892dc1587779128cb429bc 100644 (file)
--- 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