From d1d688184071294047c6bca1d3216a1b7d08d444 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 3 Jan 2017 15:26:29 -0500
Subject: [PATCH] Implement tagged-object type, a combination of a tag and an
 object.

---
 src/microcode/gcloop.c | 2 +-
 src/microcode/types.h  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index d7153a725..14166156a 100644
--- 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 f74222cea..e5dc4b5a9 100644
--- 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",			\
-- 
2.25.1