26 lines
599 B
C
26 lines
599 B
C
typedef struct {
|
|
/* always tag_header(VECTOR_TYPE) */
|
|
CELL header;
|
|
/* untagged */
|
|
CELL top;
|
|
/* tagged */
|
|
CELL array;
|
|
} F_VECTOR;
|
|
|
|
INLINE F_VECTOR* untag_vector(CELL tagged)
|
|
{
|
|
type_check(VECTOR_TYPE,tagged);
|
|
return (F_VECTOR*)UNTAG(tagged);
|
|
}
|
|
|
|
F_VECTOR* vector(F_FIXNUM capacity);
|
|
|
|
void primitive_vector(void);
|
|
void primitive_vector_length(void);
|
|
void primitive_set_vector_length(void);
|
|
void primitive_vector_nth(void);
|
|
void vector_ensure_capacity(F_VECTOR* vector, CELL index);
|
|
void primitive_set_vector_nth(void);
|
|
void fixup_vector(F_VECTOR* vector);
|
|
void collect_vector(F_VECTOR* vector);
|