From 730a043033736d98a8c5f518dd9ad947f6b171ba Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Sun, 13 Apr 1997 21:04:51 +0000
Subject: [PATCH] cgc.c with :signed-array support.

---
 lisp/cgc.c | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/lisp/cgc.c b/lisp/cgc.c
index 7760b25ce..06b2d7585 100644
--- a/lisp/cgc.c
+++ b/lisp/cgc.c
@@ -1,5 +1,5 @@
 /* cgc.c -*- Mode: C; comment-column: 40; -*-
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/cgc.c,v 1.3 1997/02/27 21:06:26 pw Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/cgc.c,v 1.4 1997/04/13 21:04:51 pw Exp $
  *
  * Conservative Garbage Collector for CMUCL x86.
  *
@@ -782,6 +782,18 @@ static void init_osc()
   SETSCT(type_SimpleArrayUnsignedByte8	,SC_VECTOR,3);
   SETSCT(type_SimpleArrayUnsignedByte16	,SC_VECTOR,4);
   SETSCT(type_SimpleArrayUnsignedByte32	,SC_VECTOR,5);
+#if defined type_SimpleArraySignedByte8
+  SETSCT(type_SimpleArraySignedByte8	,SC_VECTOR,3);
+#endif
+#if defined type_SimpleArraySignedByte16
+  SETSCT(type_SimpleArraySignedByte16	,SC_VECTOR,4);
+#endif
+#if defined type_SimpleArraySignedByte30
+  SETSCT(type_SimpleArraySignedByte30	,SC_VECTOR,5);
+#endif
+#if defined type_SimpleArraySignedByte32
+  SETSCT(type_SimpleArraySignedByte32	,SC_VECTOR,5);
+#endif
   SETSCT(type_SimpleArraySingleFloat	,SC_VECTOR,5);
   SETSCT(type_SimpleArrayDoubleFloat	,SC_VECTOR,6);
   SETSCT(type_ComplexString		,SC_ISBOXED,0);
-- 
GitLab