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