From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 17 Apr 2013 16:04:28 +0000 (-0700)
Subject: Revert this commit when the release can build without it.
X-Git-Tag: release-9.2.0~190
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2133f052857d39b8d0c55f095bb0f32d7fe36c7b;p=mit-scheme.git

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 557be8d24..518e32508 100644
--- 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 */