From deafdd89250e06e47e9329de7e41b84ebb142794 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 2 Oct 1990 23:04:59 +0000 Subject: [PATCH] Added noise for the new header type, type_StructureHeader. For now, it is just like a type_SimpleVector. --- ldb/gc.c | 5 ++++- ldb/print.c | 11 +++++++++-- ldb/purify.c | 3 ++- 3 files changed, 15 insertions(+), 4 deletions(-) diff --git a/ldb/gc.c b/ldb/gc.c index a5d6145bb..e34e442b1 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.13 1990/09/26 15:11:32 wlott Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.14 1990/10/02 23:04:18 wlott Exp $ * * Written by Christopher Hoover. */ @@ -1714,6 +1714,7 @@ gc_init() scavtab[type_Sap] = scav_unboxed; scavtab[type_UnboundMarker] = scav_immediate; scavtab[type_WeakPointer] = scav_weak_pointer; + scavtab[type_StructureHeader] = scav_boxed; /* Transport Other Table */ @@ -1751,6 +1752,7 @@ gc_init() transother[type_Sap] = trans_unboxed; transother[type_UnboundMarker] = trans_immediate; transother[type_WeakPointer] = trans_weak_pointer; + transother[type_StructureHeader] = trans_vector; /* Size table */ @@ -1802,4 +1804,5 @@ gc_init() sizetab[type_Sap] = size_unboxed; sizetab[type_UnboundMarker] = size_immediate; sizetab[type_WeakPointer] = size_weak_pointer; + sizetab[type_StructureHeader] = size_vector; } diff --git a/ldb/print.c b/ldb/print.c index cc47e2cd0..abb0e8065 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.12 1990/09/21 06:04:12 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.13 1990/10/02 23:04:52 wlott Exp $ */ #include <stdio.h> #include "ldb.h" @@ -64,7 +64,8 @@ char *subtype_Names[] = { "character", "SAP", "unbound marker", - "weak pointer" + "weak pointer", + "structure header" }; static void indent(in) @@ -417,6 +418,7 @@ lispobj obj; break; case type_SimpleVector: + case type_StructureHeader: NEWLINE; printf("length = %d", length); ptr++; @@ -473,6 +475,11 @@ lispobj obj; NEWLINE; printf("pointer to an immediate?"); break; + + default: + NEWLINE; + printf("Unknown header object?"); + break; } } } diff --git a/ldb/purify.c b/ldb/purify.c index bd7f49f0d..46ecc2962 100644 --- a/ldb/purify.c +++ b/ldb/purify.c @@ -1,6 +1,6 @@ /* Purify. */ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.6 1990/09/27 06:33:57 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.7 1990/10/02 23:04:59 wlott Exp $ */ #include <mach.h> @@ -414,6 +414,7 @@ static lispobj ptrans_otherptr(thing, header, constant) return ptrans_vector(thing, 1, 0, FALSE, constant); case type_SimpleVector: + case type_StructureHeader: return ptrans_vector(thing, 32, 0, TRUE, constant); case type_SimpleArrayUnsignedByte2: -- GitLab