Implement tagged-object type, a combination of a tag and an object.

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index d7153a725c393d3eec40bb3114cc181c2ac37d5b..14166156ae93c06950f04d3f1660ee6adca7bbf6 100644 (file)
--- a/src/microcode/gcloop.c
+++ b/src/microcode/gcloop.c
@@ -1288,7 +1288,7 @@ gc_type_t gc_type_map [N_TYPE_CODES] =
   GC_SPECIAL,                  /* TC_BROKEN_HEART */
   GC_PAIR,                     /* TC_ASSIGNMENT */
   GC_TRIPLE,                   /* TC_HUNK3_B */
-  GC_UNDEFINED,                        /* unused */
+  GC_PAIR,                     /* TC_TAGGED_OBJECT */
   GC_VECTOR,                   /* TC_COMBINATION */
   GC_SPECIAL,                  /* TC_MANIFEST_NM_VECTOR */
   GC_COMPILED,                 /* TC_COMPILED_ENTRY */

diff --git a/src/microcode/types.h b/src/microcode/types.h
index f74222ceaea8ce5594f030cb37beb6c3b9dffc61..e5dc4b5a98d99c2741c4bb930c15aa9b05986665 100644 (file)
--- a/src/microcode/types.h
+++ b/src/microcode/types.h
@@ -63,7 +63,7 @@ USA.
 #define TC_BROKEN_HEART                        0x22
 #define TC_ASSIGNMENT                  0x23
 #define TC_HUNK3_B                     0x24
-/* #define TC_UNUSED_25                        0x25 */
+#define TC_TAGGED_OBJECT               0x25
 #define TC_COMBINATION                 0x26
 #define TC_MANIFEST_NM_VECTOR          0x27
 #define TC_COMPILED_ENTRY              0x28
@@ -141,7 +141,7 @@ USA.
   /* 0x22 */                   "broken-heart",                         \
   /* 0x23 */                   "assignment",                           \
   /* 0x24 */                   "triple",                               \
-  /* 0x25 */                   0,                                      \
+  /* 0x25 */                   "tagged-object",                        \
   /* 0x26 */                   "combination",                          \
   /* 0x27 */                   "manifest-nm-vector",                   \
   /* 0x28 */                   "compiled-entry",                       \