From 8d67cbeed2fc88505707c34d628ce5f84b2c0b47 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 20 Jan 2016 09:31:38 -0700 Subject: [PATCH] src/microcode/gcloop.c (gc_type_map): Undefine obsolete types. --- src/microcode/gcloop.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c index 691892ca3..9c2a2190c 100644 --- 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 */ -- 2.25.1