From 2433cad2bd3c8bd7a89c1682ae25c4846b138f9e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 5 Dec 1992 03:33:24 +0000
Subject: [PATCH] Finish job of defining TC_RECORD type code.

---
 v7/src/microcode/gccode.h | 3 ++-
 v7/src/microcode/gctype.c | 4 ++--
 v7/src/microcode/types.h  | 5 +++--
 v8/src/microcode/gctype.c | 4 ++--
 v8/src/microcode/types.h  | 5 +++--
 5 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/v7/src/microcode/gccode.h b/v7/src/microcode/gccode.h
index faaabd81e..d3751d9ff 100644
--- 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 af9932c79..30f78c4f7 100644
--- 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 b36bdc3a0..edf31455c 100644
--- 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"				\
   }
 
 /* Flags and aliases */
diff --git a/v8/src/microcode/gctype.c b/v8/src/microcode/gctype.c
index af9932c79..30f78c4f7 100644
--- 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 59dc90c60..edf31455c 100644
--- 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"				\
   }
 
 /* Flags and aliases */
-- 
2.25.1