Skip to content
Snippets Groups Projects
Commit 1ce5fa7d authored by dtc's avatar dtc
Browse files

Complex-float support for cgc, untested.

parent cce2e149
No related branches found
No related tags found
No related merge requests found
/* cgc.c -*- Mode: C; comment-column: 40; -*- /* cgc.c -*- Mode: C; comment-column: 40; -*-
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/cgc.c,v 1.5 1997/09/24 15:48:08 dtc Exp $ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/cgc.c,v 1.6 1997/11/02 09:49:11 dtc Exp $
* *
* Conservative Garbage Collector for CMUCL x86. * Conservative Garbage Collector for CMUCL x86.
* *
...@@ -772,6 +772,12 @@ static void init_osc() ...@@ -772,6 +772,12 @@ static void init_osc()
SETSCT(type_Ratio ,SC_ISBOXED,0); SETSCT(type_Ratio ,SC_ISBOXED,0);
SETSCT(type_SingleFloat ,SC_UNBOXED,0); SETSCT(type_SingleFloat ,SC_UNBOXED,0);
SETSCT(type_DoubleFloat ,SC_UNBOXED,0); SETSCT(type_DoubleFloat ,SC_UNBOXED,0);
#if defined type_ComplexSingleFloat
SETSCT(type_ComplexSingleFloat ,SC_UNBOXED,0);
#endif
#if defined type_ComplexDoubleFloat
SETSCT(type_ComplexDoubleFloat ,SC_UNBOXED,0);
#endif
SETSCT(type_Complex ,SC_ISBOXED,0); SETSCT(type_Complex ,SC_ISBOXED,0);
SETSCT(type_SimpleArray ,SC_ISBOXED,0); SETSCT(type_SimpleArray ,SC_ISBOXED,0);
SETSCT(type_SimpleString ,SC_STRING,3); SETSCT(type_SimpleString ,SC_STRING,3);
...@@ -796,6 +802,12 @@ static void init_osc() ...@@ -796,6 +802,12 @@ static void init_osc()
#endif #endif
SETSCT(type_SimpleArraySingleFloat ,SC_VECTOR,5); SETSCT(type_SimpleArraySingleFloat ,SC_VECTOR,5);
SETSCT(type_SimpleArrayDoubleFloat ,SC_VECTOR,6); SETSCT(type_SimpleArrayDoubleFloat ,SC_VECTOR,6);
#if defined type_SimpleArrayComplexSingleFloat
SETSCT(type_SimpleArrayComplexSingleFloat ,SC_VECTOR,6);
#endif
#if defined type_SimpleArrayComplexDoubleFloat
SETSCT(type_SimpleArrayComplexDoubleFloat ,SC_VECTOR,7);
#endif
SETSCT(type_ComplexString ,SC_ISBOXED,0); SETSCT(type_ComplexString ,SC_ISBOXED,0);
SETSCT(type_ComplexBitVector ,SC_ISBOXED,0); SETSCT(type_ComplexBitVector ,SC_ISBOXED,0);
SETSCT(type_ComplexVector ,SC_ISBOXED,0); SETSCT(type_ComplexVector ,SC_ISBOXED,0);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment