Revert this commit when the release can build without it.

These last vestiges of TC_COMBINATION_1, TC_COMBINATION_2, TC_PCOMB0,
TC_PCOMB1, and TC_PCOMB2 remain only to allow building directly from
release 9.1.

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index 557be8d24a1eb23b664764ed7d9eda06c8ce3daa..518e32508a882a7507854796d8739c7b1b838fbd 100644 (file)
--- a/src/microcode/gcloop.c
+++ b/src/microcode/gcloop.c
@@ -1251,15 +1251,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_UNDEFINED,                        /* TC_PCOMB2 */
+  GC_TRIPLE,                   /* TC_PCOMB2 */
   GC_PAIR,                     /* TC_UNINTERNED_SYMBOL */
   GC_VECTOR,                   /* TC_BIG_FLONUM */
-  GC_UNDEFINED,                        /* TC_COMBINATION_1 */
+  GC_PAIR,                     /* TC_COMBINATION_1 */
   GC_NON_POINTER,              /* TC_CONSTANT */
   GC_PAIR,                     /* TC_EXTENDED_PROCEDURE */
   GC_VECTOR,                   /* TC_VECTOR */
   GC_NON_POINTER,              /* TC_RETURN_CODE */
-  GC_UNDEFINED,                        /* TC_COMBINATION_2 */
+  GC_TRIPLE,                   /* TC_COMBINATION_2 */
   GC_SPECIAL,                  /* TC_MANIFEST_CLOSURE */
   GC_VECTOR,                   /* TC_BIG_FIXNUM */
   GC_PAIR,                     /* TC_PROCEDURE */
@@ -1274,7 +1274,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_UNDEFINED,                        /* TC_PCOMB1 */
+  GC_PAIR,                     /* TC_PCOMB1 */
   GC_VECTOR,                   /* TC_CONTROL_POINT */
   GC_PAIR,                     /* TC_INTERNED_SYMBOL */
   GC_VECTOR,                   /* TC_CHARACTER_STRING,TC_VECTOR_8B */
@@ -1289,13 +1289,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_UNDEFINED,                        /* TC_PCOMB3 */
+  GC_VECTOR,                   /* 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_UNDEFINED,                        /* TC_PCOMB0 */
+  GC_NON_POINTER,              /* TC_PCOMB0 */
   GC_VECTOR,                   /* TC_VECTOR_16B */
   GC_SPECIAL,                  /* TC_REFERENCE_TRAP */
   GC_UNDEFINED,                        /* 0x33 */