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