jl_struct_type_t *jl_new_struct_type(jl_sym_t *name, jl_tag_type_t *super,
jl_tuple_t *parameters,
jl_tuple_t *fnames, jl_tuple_t *ftypes)
{
jl_typename_t *tn = jl_new_typename(name);
JL_GC_PUSH(&tn);
jl_struct_type_t *t = jl_new_uninitialized_struct_type(fnames->length);
t->name = tn;
t->name->primary = (jl_value_t*)t;
t->super = super;
t->parameters = parameters;
t->names = fnames;
t->types = ftypes;
t->fptr = jl_f_ctor_trampoline;
t->env = (jl_value_t*)t;
t->linfo = NULL;
t->ctor_factory = (jl_value_t*)jl_null;
t->instance = NULL;
if (!jl_is_leaf_type((jl_value_t*)t)) {
t->uid = 0;
}
else {
t->uid = jl_assign_type_uid();
if (t->types != NULL)
jl_compute_struct_offsets(t);
}
JL_GC_POP();
return t;
}
static jl_value_t *jl_deserialize_tag_type(ios_t *s, jl_struct_type_t *kind, int pos)
{
if (kind == jl_struct_kind) {
uint16_t nf = read_uint16(s);
jl_struct_type_t *st = jl_new_uninitialized_struct_type(nf);
st->uid = read_int32(s);
st->size = read_int32(s);
st->alignment = read_int32(s);
ios_read(s, (char*)&st->fields[0], nf*sizeof(jl_fielddesc_t));
st->instance = NULL;
ptrhash_put(&backref_table, (void*)(ptrint_t)pos, st);
st->name = (jl_typename_t*)jl_deserialize_value(s);
st->parameters = (jl_tuple_t*)jl_deserialize_value(s);
st->super = (jl_tag_type_t*)jl_deserialize_value(s);
st->names = (jl_tuple_t*)jl_deserialize_value(s);
st->types = (jl_tuple_t*)jl_deserialize_value(s);
st->ctor_factory = jl_deserialize_value(s);
st->env = jl_deserialize_value(s);
st->linfo = (jl_lambda_info_t*)jl_deserialize_value(s);
st->fptr = jl_deserialize_fptr(s);
if (st->name == jl_array_type->name) {
// builtin types are not serialized, so their caches aren't
// explicitly saved. so we reconstruct the caches of builtin
// parametric types here.
jl_cell_1d_push(tagtype_list, (jl_value_t*)st);
}
return (jl_value_t*)st;
}
else if (kind == jl_bits_kind) {
int form = read_uint8(s);
jl_bits_type_t *bt;
if (form == 2)
bt = jl_int32_type;
else if (form == 3)
bt = jl_bool_type;
else if (form == 4)
bt = jl_int64_type;
else
bt = (jl_bits_type_t*)newobj((jl_type_t*)jl_bits_kind,
BITS_TYPE_NW);
ptrhash_put(&backref_table, (void*)(ptrint_t)pos, bt);
bt->name = (jl_typename_t*)jl_deserialize_value(s);
bt->parameters = (jl_tuple_t*)jl_deserialize_value(s);
size_t nbits = read_int32(s);
bt->nbits = nbits;
bt->fptr = NULL;
bt->env = NULL;
bt->linfo = NULL;
bt->super = (jl_tag_type_t*)jl_deserialize_value(s);
bt->uid = read_int32(s);
if (bt->name == jl_pointer_type->name) {
jl_cell_1d_push(tagtype_list, (jl_value_t*)bt);
}
return (jl_value_t*)bt;
}
else {
assert(kind == jl_tag_kind);
jl_tag_type_t *tt =
(jl_tag_type_t*)newobj((jl_type_t*)jl_tag_kind, TAG_TYPE_NW);
ptrhash_put(&backref_table, (void*)(ptrint_t)pos, tt);
tt->name = (jl_typename_t*)jl_deserialize_value(s);
tt->parameters = (jl_tuple_t*)jl_deserialize_value(s);
tt->super = (jl_tag_type_t*)jl_deserialize_value(s);
tt->fptr = NULL;
tt->env = NULL;
tt->linfo = NULL;
if (tt->name == jl_type_type->name || tt->name == jl_seq_type->name ||
tt->name == jl_abstractarray_type->name) {
jl_cell_1d_push(tagtype_list, (jl_value_t*)tt);
}
return (jl_value_t*)tt;
}
assert(0);
return NULL;
}
