Finish job of defining TC_RECORD type code.

diff --git a/v7/src/microcode/gccode.h b/v7/src/microcode/gccode.h
index faaabd81e98cd0106a0245679e144363882a5df4..d3751d9ffb3885751e0c202f6d4b7e8e93f58445 100644 (file)
--- a/v7/src/microcode/gccode.h
+++ b/v7/src/microcode/gccode.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gccode.h,v 9.45 1992/02/03 23:28:28 jinx Exp $
+$Id: gccode.h,v 9.46 1992/12/05 03:33:24 cph Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -133,6 +133,7 @@ MIT in each case. */
 #define case_simple_Vector                             \
  case TC_NON_MARKED_VECTOR:                            \
  case TC_VECTOR:                                       \
+ case TC_RECORD:                                       \
  case TC_CONTROL_POINT:                                        \
  case TC_COMBINATION:                                  \
  case TC_PCOMB3:                                       \

diff --git a/v7/src/microcode/gctype.c b/v7/src/microcode/gctype.c
index af9932c791526fe1eacb3a5f4f458792120041fa..30f78c4f749c3b4978f5bd82ec0ef7811456437f 100644 (file)
--- a/v7/src/microcode/gctype.c
+++ b/v7/src/microcode/gctype.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: gctype.c,v 9.31 1992/09/26 02:47:42 cph Exp $
+$Id: gctype.c,v 9.32 1992/12/05 03:33:18 cph Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -108,7 +108,7 @@ int GC_Type_Map[MAX_TYPE_CODE + 1] = {
     GC_Non_Pointer,            /* TC_STACK_ENVIRONMENT */
     GC_Pair,                   /* TC_COMPLEX */
     GC_Vector,                 /* TC_COMPILED_CODE_BLOCK */
-    GC_Undefined,                      /* 0x3E */
+    GC_Vector,                 /* TC_RECORD */
 
 #if (TYPE_CODE_LENGTH == 6)
 

diff --git a/v7/src/microcode/types.h b/v7/src/microcode/types.h
index b36bdc3a0e10a77f8f8ac62381af1540b44a0f0b..edf31455c792326dab4fc13a9fc6c3a36c32fcf5 100644 (file)
--- a/v7/src/microcode/types.h
+++ b/v7/src/microcode/types.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/types.h,v 9.32 1991/01/24 04:31:04 cph Exp $
+$Id: types.h,v 9.33 1992/12/05 03:33:01 cph Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -176,6 +176,7 @@ MIT in each case. */
   /* 0x3B */                   "STACK-ENVIRONMENT",                    \
   /* 0x3C */                   "COMPLEX",                              \
   /* 0x3D */                   "COMPILED-CODE-BLOCK"                   \
+  /* 0x3E */                   "RECORD"                                \
   }
 \f
 /* Flags and aliases */

diff --git a/v8/src/microcode/gctype.c b/v8/src/microcode/gctype.c
index af9932c791526fe1eacb3a5f4f458792120041fa..30f78c4f749c3b4978f5bd82ec0ef7811456437f 100644 (file)
--- a/v8/src/microcode/gctype.c
+++ b/v8/src/microcode/gctype.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: gctype.c,v 9.31 1992/09/26 02:47:42 cph Exp $
+$Id: gctype.c,v 9.32 1992/12/05 03:33:18 cph Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -108,7 +108,7 @@ int GC_Type_Map[MAX_TYPE_CODE + 1] = {
     GC_Non_Pointer,            /* TC_STACK_ENVIRONMENT */
     GC_Pair,                   /* TC_COMPLEX */
     GC_Vector,                 /* TC_COMPILED_CODE_BLOCK */
-    GC_Undefined,                      /* 0x3E */
+    GC_Vector,                 /* TC_RECORD */
 
 #if (TYPE_CODE_LENGTH == 6)
 

diff --git a/v8/src/microcode/types.h b/v8/src/microcode/types.h
index 59dc90c605ddff1645983f4d454bb4da0acaf425..edf31455c792326dab4fc13a9fc6c3a36c32fcf5 100644 (file)
--- a/v8/src/microcode/types.h
+++ b/v8/src/microcode/types.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/types.h,v 9.32 1991/01/24 04:31:04 cph Exp $
+$Id: types.h,v 9.33 1992/12/05 03:33:01 cph Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -176,6 +176,7 @@ MIT in each case. */
   /* 0x3B */                   "STACK-ENVIRONMENT",                    \
   /* 0x3C */                   "COMPLEX",                              \
   /* 0x3D */                   "COMPILED-CODE-BLOCK"                   \
+  /* 0x3E */                   "RECORD"                                \
   }
 \f
 /* Flags and aliases */