From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 20 Jan 2016 16:31:38 +0000 (-0700)
Subject: src/microcode/gcloop.c (gc_type_map): Undefine obsolete types.
X-Git-Tag: mit-scheme-pucked-9.2.12~371^2~15
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8d67cbeed2fc88505707c34d628ce5f84b2c0b47;p=mit-scheme.git

src/microcode/gcloop.c (gc_type_map): Undefine obsolete types.
---

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index 691892ca3..9c2a2190c 100644
--- a/src/microcode/gcloop.c
+++ b/src/microcode/gcloop.c
@@ -1245,15 +1245,15 @@ gc_type_t gc_type_map [N_TYPE_CODES] =
   GC_PAIR,			/* TC_LIST */
   GC_NON_POINTER,		/* TC_CHARACTER */
   GC_PAIR,		   	/* TC_SCODE_QUOTE */
-  GC_TRIPLE,		        /* TC_PCOMB2 */
+  GC_UNDEFINED,		        /* was TC_PCOMB2 */
   GC_PAIR,			/* TC_UNINTERNED_SYMBOL */
   GC_VECTOR,			/* TC_BIG_FLONUM */
-  GC_PAIR,			/* TC_COMBINATION_1 */
+  GC_UNDEFINED,			/* was TC_COMBINATION_1 */
   GC_NON_POINTER,		/* TC_CONSTANT */
   GC_PAIR,			/* TC_EXTENDED_PROCEDURE */
   GC_VECTOR,			/* TC_VECTOR */
   GC_NON_POINTER,		/* TC_RETURN_CODE */
-  GC_TRIPLE,			/* TC_COMBINATION_2 */
+  GC_UNDEFINED,			/* was TC_COMBINATION_2 */
   GC_SPECIAL,			/* TC_MANIFEST_CLOSURE */
   GC_VECTOR,			/* TC_BIG_FIXNUM */
   GC_PAIR,			/* TC_PROCEDURE */
@@ -1268,7 +1268,7 @@ gc_type_t gc_type_map [N_TYPE_CODES] =
   GC_NON_POINTER,		/* TC_PRIMITIVE */
   GC_PAIR,			/* TC_SEQUENCE */
   GC_NON_POINTER,		/* TC_FIXNUM */
-  GC_PAIR,			/* TC_PCOMB1 */
+  GC_UNDEFINED,			/* was TC_PCOMB1 */
   GC_VECTOR,			/* TC_CONTROL_POINT */
   GC_PAIR,			/* TC_INTERNED_SYMBOL */
   GC_VECTOR,			/* TC_CHARACTER_STRING,TC_VECTOR_8B */
@@ -1283,13 +1283,13 @@ gc_type_t gc_type_map [N_TYPE_CODES] =
   GC_SPECIAL,			/* TC_MANIFEST_NM_VECTOR */
   GC_COMPILED,			/* TC_COMPILED_ENTRY */
   GC_PAIR,			/* TC_LEXPR */
-  GC_VECTOR,			/* TC_PCOMB3 */
+  GC_UNDEFINED,			/* was TC_PCOMB3 */
   GC_VECTOR,			/* TC_EPHEMERON */
   GC_TRIPLE,			/* TC_VARIABLE */
   GC_NON_POINTER,		/* TC_THE_ENVIRONMENT */
   GC_PAIR,			/* TC_SYNTAX_ERROR */
   GC_VECTOR,			/* TC_VECTOR_1B,TC_BIT_STRING */
-  GC_NON_POINTER,		/* TC_PCOMB0 */
+  GC_UNDEFINED,			/* was TC_PCOMB0 */
   GC_VECTOR,			/* TC_VECTOR_16B */
   GC_SPECIAL,			/* TC_REFERENCE_TRAP */
   GC_UNDEFINED,			/* 0x33 */