+
+static
+struct type *_sequence_type_new(struct type_class *type_class,
+ struct declaration_scope *parent_scope)
+{
+ struct type_class_sequence *sequence_class =
+ container_of(type_class, struct type_class_sequence, p);
+ struct type_sequence *sequence;
+
+ sequence = g_new(struct type_sequence, 1);
+ type_class_ref(&sequence_class->p);
+ sequence->p._class = sequence_class;
+ sequence->p.ref = 1;
+ sequence->scope = new_declaration_scope(parent_scope);
+ sequence->len.type =
+ sequence_class->len_class.p->type_new(&sequence_class->len_class.p,
+ parent_scope);
+ sequence->current_element.type =
+ sequence_class->elem.p->type_new(&sequence_class->elem.p,
+ parent_scope);
+ return &sequence->p;
+}
+
+static
+void _sequence_type_free(struct type *type)
+{
+ struct type_sequence *sequence =
+ container_of(type, struct type_sequence, p);
+ struct type *len_type = sequence->len.type;
+ struct type *elem_type = sequence->current_element.type;
+
+ len_type->p._class->type_free(len_type);
+ elem_type->p._class->type_free(elem_type);
+ free_declaration_scope(sequence->scope);
+ type_class_unref(sequence->p._class);
+ g_free(sequence);
+}