factor/native/vector.h

22 lines
424 B
C
Raw Normal View History

2004-07-16 02:26:21 -04:00
typedef struct {
/* always tag_header(VECTOR_TYPE) */
CELL header;
2005-01-27 20:06:10 -05:00
/* tagged */
2004-07-16 02:26:21 -04:00
CELL top;
/* tagged */
CELL array;
} F_VECTOR;
2004-07-16 02:26:21 -04:00
INLINE F_VECTOR* untag_vector(CELL tagged)
2004-07-16 02:26:21 -04:00
{
type_check(VECTOR_TYPE,tagged);
return (F_VECTOR*)UNTAG(tagged);
2004-07-16 02:26:21 -04:00
}
F_VECTOR* vector(F_FIXNUM capacity);
2004-07-16 02:26:21 -04:00
void primitive_vector(void);
2004-12-24 02:52:02 -05:00
void primitive_to_vector(void);
void fixup_vector(F_VECTOR* vector);
void collect_vector(F_VECTOR* vector);