diff --git a/ldb/gc.c b/ldb/gc.c index 046851a139a6c2b11c76d9f0c1a54767e2eacf2c..4a92c5ebebed41bd424d5ba0da262adb900f43ad 100644 --- a/ldb/gc.c +++ b/ldb/gc.c @@ -1,7 +1,7 @@ /* * Stop and Copy GC based on Cheney's algorithm. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.30 1991/10/22 18:37:56 wlott Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.31 1991/11/10 22:32:46 wlott Exp $ * * Written by Christopher Hoover. */ @@ -1790,7 +1790,7 @@ gc_init() #else scavtab[type_SymbolHeader] = scav_boxed; #endif - scavtab[type_BaseCharacter] = scav_immediate; + scavtab[type_BaseChar] = scav_immediate; scavtab[type_Sap] = scav_unboxed; scavtab[type_UnboundMarker] = scav_immediate; scavtab[type_WeakPointer] = scav_weak_pointer; @@ -1829,7 +1829,7 @@ gc_init() transother[type_FuncallableInstanceHeader] = trans_boxed; transother[type_ValueCellHeader] = trans_boxed; transother[type_SymbolHeader] = trans_boxed; - transother[type_BaseCharacter] = trans_immediate; + transother[type_BaseChar] = trans_immediate; transother[type_Sap] = trans_unboxed; transother[type_UnboundMarker] = trans_immediate; transother[type_WeakPointer] = trans_weak_pointer; @@ -1882,7 +1882,7 @@ gc_init() sizetab[type_FuncallableInstanceHeader] = size_boxed; sizetab[type_ValueCellHeader] = size_boxed; sizetab[type_SymbolHeader] = size_boxed; - sizetab[type_BaseCharacter] = size_immediate; + sizetab[type_BaseChar] = size_immediate; sizetab[type_Sap] = size_unboxed; sizetab[type_UnboundMarker] = size_immediate; sizetab[type_WeakPointer] = size_weak_pointer; diff --git a/ldb/print.c b/ldb/print.c index dadf98ff2cb2c91159305e03ca892f1e2e94c837..92efcf312c1ba1d0e21fb89fc8a0c2bb87102ec0 100644 --- a/ldb/print.c +++ b/ldb/print.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.15 1990/12/18 23:25:34 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.16 1991/11/10 22:32:59 wlott Exp $ */ #include <stdio.h> #include "ldb.h" @@ -142,7 +142,7 @@ lispobj obj; type = TypeOf(obj); switch (type) { - case type_BaseCharacter: + case type_BaseChar: c = (obj>>8)&0xff; switch (c) { case '\0': @@ -200,7 +200,7 @@ lispobj obj; printf(", unknown type (0x%0x)", type); switch (TypeOf(obj)) { - case type_BaseCharacter: + case type_BaseChar: printf(": "); brief_otherimm(obj); break; @@ -480,7 +480,7 @@ lispobj obj; print_slots(weak_pointer_slots, 1, ptr); break; - case type_BaseCharacter: + case type_BaseChar: case type_UnboundMarker: NEWLINE; printf("pointer to an immediate?");