+void free_type_attrs(type *tp) {
+ switch(get_type_tpop_code(tp)) {
+ case tpo_class: { free_class_attrs(tp); } break;
+ case tpo_struct: { free_struct_attrs(tp); } break;
+ case tpo_method: { free_method_attrs(tp); } break;
+ case tpo_union: { free_union_attrs(tp); } break;
+ case tpo_array: { free_array_attrs(tp); } break;
+ case tpo_enumeration: { free_enumeration_attrs(tp); } break;
+ case tpo_pointer: { free_pointer_attrs(tp); } break;
+ case tpo_primitive: { free_primitive_attrs(tp); } break;
+ default: break;
+ }
+}
+
+/* set/get the link field */
+void *get_type_link(type *tp)
+{
+ assert(tp);
+ return(tp -> link);
+}
+
+void set_type_link(type *tp, void *l)
+{
+ assert(tp);
+ tp -> link = l;
+}
+