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

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index 691892ca36ad7bb0310d9d09f144d7ab45533b45..9c2a2190c94bd81f4898a56acff42359ab3b4c01 100644 (file)
--- 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 */