flag for strength reduction verbosity

[libfirm] / ir / tr / tpop.c

diff --git a/ir/tr/tpop.c b/ir/tr/tpop.c
index 0112caa..b95a07a 100644 (file)
--- a/ir/tr/tpop.c
+++ b/ir/tr/tpop.c
@@ -43,20 +43,41 @@ new_tpop (tp_opcode code, ident *name, size_t attr_size)
   return res;
 }
 
+INLINE void
+free_tpop(tp_op* tpop) {
+  free(tpop);
+}
+
 void
 init_tpop(void)
 {
-  type_class       = new_tpop (tpo_class      , id_from_str("class"       , 5), sizeof (cls_attr));
-  type_struct      = new_tpop (tpo_struct     , id_from_str("struct"      , 6), sizeof (stc_attr));
-  type_method      = new_tpop (tpo_method     , id_from_str("method"      , 6), sizeof (mtd_attr));
-  type_union       = new_tpop (tpo_union      , id_from_str("union"       , 5), sizeof (uni_attr));
-  type_array       = new_tpop (tpo_array      , id_from_str("array"       , 5), sizeof (arr_attr));
-  type_enumeration = new_tpop (tpo_enumeration, id_from_str("enumeration" ,11), sizeof (enm_attr));
-  type_pointer     = new_tpop (tpo_pointer    , id_from_str("pointer"     , 7), sizeof (ptr_attr));
-  type_primitive   = new_tpop (tpo_primitive  , id_from_str("primitive"   , 9), /* sizeof (pri_attr) */ 0);
-  type_id          = new_tpop (tpo_id         , id_from_str("type_id"     , 7), /* sizeof (id_attr)  */ 0);
-  tpop_none        = new_tpop (tpo_none       , id_from_str("type_none"   , 9), /* sizeof (non_attr) */ 0);
-  tpop_unknown     = new_tpop (tpo_unknown    , id_from_str("type_unknown",12), /* sizeof (ukn_attr) */ 0);
+  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);
+}
+
+/* Finalize the topo module.
+ * Frees all type opcodes.  */
+void finish_tpop(void) {
+  free_tpop(type_class      ); type_class       = NULL;
+  free_tpop(type_struct     ); type_struct      = NULL;
+  free_tpop(type_method     ); type_method      = NULL;
+  free_tpop(type_union      ); type_union       = NULL;
+  free_tpop(type_array      ); type_array       = NULL;
+  free_tpop(type_enumeration); type_enumeration = NULL;
+  free_tpop(type_pointer    ); type_pointer     = NULL;
+  free_tpop(type_primitive  ); type_primitive   = NULL;
+  free_tpop(type_id         ); type_id          = NULL;
+  free_tpop(tpop_none       ); tpop_none        = NULL;
+  free_tpop(tpop_unknown    ); tpop_unknown     = NULL;
 }
 
 /* Returns the string for the tp_opcode. */
@@ -64,15 +85,15 @@ const char  *get_tpop_name      (tp_op *op) {
   return get_id_str(op->name);
 }
 
-tp_opcode get_tpop_code (tp_op *op){
-  return op->code;
+tp_opcode (get_tpop_code)(tp_op *op){
+  return __get_tpop_code(op);
 }
 
-ident *get_tpop_ident(tp_op *op){
-  return op->name;
+ident *(get_tpop_ident)(tp_op *op){
+  return __get_tpop_ident(op);
 }
 
 /* returns the attribute size of the operator. */
-int get_tpop_attr_size (tp_op *op) {
-  return op->attr_size;
+int (get_tpop_attr_size)(tp_op *op) {
+  return __get_tpop_attr_size(op);
 }