- type_class = new_tpop (tpo_class , new_id_from_chars("class" , 5), sizeof (cls_attr));
- type_struct = new_tpop (tpo_struct , new_id_from_chars("struct" , 6), sizeof (stc_attr));
- type_method = new_tpop (tpo_method , new_id_from_chars("method" , 6), sizeof (mtd_attr));
- type_union = new_tpop (tpo_union , new_id_from_chars("union" , 5), sizeof (uni_attr));
- type_array = new_tpop (tpo_array , new_id_from_chars("array" , 5), sizeof (arr_attr));
- type_enumeration = new_tpop (tpo_enumeration, new_id_from_chars("enumeration" ,11), sizeof (enm_attr));
- type_pointer = new_tpop (tpo_pointer , new_id_from_chars("pointer" , 7), sizeof (ptr_attr));
- type_primitive = new_tpop (tpo_primitive , new_id_from_chars("primitive" , 9), /* sizeof (pri_attr) */ 0);
- type_id = new_tpop (tpo_id , new_id_from_chars("type_id" , 7), /* sizeof (id_attr) */ 0);
- tpop_none = new_tpop (tpo_none , new_id_from_chars("tpop_none" , 9), /* sizeof (non_attr) */ 0);
- tpop_unknown = new_tpop (tpo_unknown , new_id_from_chars("tpop_unknown",12), /* sizeof (ukn_attr) */ 0);
+#define ID(s) new_id_from_chars(s, sizeof(s) - 1)
+ type_class = new_tpop(tpo_class , ID("class"), TP_OP_FLAG_COMPOUND, sizeof(cls_attr), &class_ops);
+ type_struct = new_tpop(tpo_struct , ID("struct"), TP_OP_FLAG_COMPOUND, sizeof(stc_attr), &struct_ops);
+ type_method = new_tpop(tpo_method , ID("method"), 0, sizeof(mtd_attr), &method_ops);
+ type_union = new_tpop(tpo_union , ID("union"), TP_OP_FLAG_COMPOUND, sizeof(uni_attr), &union_ops);
+ type_array = new_tpop(tpo_array , ID("array"), 0, sizeof(arr_attr), &array_ops);
+ type_enumeration = new_tpop(tpo_enumeration, ID("enumeration"), 0, sizeof(enm_attr), &enum_ops);
+ type_pointer = new_tpop(tpo_pointer , ID("pointer"), 0, sizeof(ptr_attr), &pointer_ops);
+ type_primitive = new_tpop(tpo_primitive , ID("primitive"), 0, sizeof(pri_attr), &null_ops);
+ tpop_code = new_tpop(tpo_code , ID("code"), 0, 0, &null_ops);
+ tpop_none = new_tpop(tpo_none , ID("None"), 0, 0, &pseudo_ops);
+ tpop_unknown = new_tpop(tpo_unknown , ID("Unknown"), 0, 0, &pseudo_ops);
+#undef ID