X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Ftr%2Ftpop.c;h=046b355096f1fa97d298bf2cc866ad5861f7f3f2;hb=4e3fd9fecccfd54df03b342bd20e1ecd2d5c940f;hp=2e0717d986a70103f755c2f220b1be64b3e8bbf6;hpb=e3e22fa6f927847099c0bff62457003aa81f2518;p=libfirm

diff --git a/ir/tr/tpop.c b/ir/tr/tpop.c
index 2e0717d98..046b35509 100644
--- a/ir/tr/tpop.c
+++ b/ir/tr/tpop.c
@@ -1,28 +1,35 @@
-/* Copyright (C) 2001 by Universitaet Karlsruhe
-** All rights reserved.
-**
-** Authors: Goetz Lindenmaier
-**
-*/
+/*
+ * Project:     libFIRM
+ * File name:   ir/tr/tpop.c
+ * Purpose:     Opcode of types.
+ * Author:      Goetz Lindenmaier
+ * Modified by:
+ * Created:
+ * CVS-ID:      $Id$
+ * Copyright:   (c) 2001-2003 Universität Karlsruhe
+ * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
+ */
 
-/* $Id$ */
 
 #ifdef HAVE_CONFIG_H
 # include <config.h>
 #endif
 
+# include "xmalloc.h"
 # include "tpop_t.h"
 # include "type_t.h"
 
-tp_op *type_class;
-tp_op *type_struct;
-tp_op *type_method;
-tp_op *type_union;
-tp_op *type_array;
-tp_op *type_enumeration;
-tp_op *type_pointer;
-tp_op *type_primitive;
-tp_op *type_id;
+tp_op *type_class;         tp_op *get_tpop_class      (void) { return type_class;       }
+tp_op *type_struct;        tp_op *get_tpop_struct     (void) { return type_struct;      }
+tp_op *type_method;        tp_op *get_tpop_method     (void) { return type_method;      }
+tp_op *type_union;         tp_op *get_tpop_union      (void) { return type_union;       }
+tp_op *type_array;         tp_op *get_tpop_array      (void) { return type_array;       }
+tp_op *type_enumeration;   tp_op *get_tpop_enumeration(void) { return type_enumeration; }
+tp_op *type_pointer;       tp_op *get_tpop_pointer    (void) { return type_pointer;     }
+tp_op *type_primitive;     tp_op *get_tpop_primitive  (void) { return type_primitive;   }
+tp_op *type_id;            tp_op *get_tpop_id         (void) { return type_id;          }
+tp_op *tpop_none;          tp_op *get_tpop_none       (void) { return tpop_none;        }
+tp_op *tpop_unknown;       tp_op *get_tpop_unknown    (void) { return tpop_unknown;     }
 
 tp_op *
 new_tpop (tp_opcode code, ident *name, size_t attr_size)
@@ -36,23 +43,46 @@ 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);
+  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("tpop_none"   , 9), /* sizeof (non_attr) */ 0);
+  tpop_unknown     = new_tpop (tpo_unknown    , id_from_str("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. */
 const char  *get_tpop_name      (tp_op *op) {
-  return id_to_str(op->name);
+  return get_id_str(op->name);
 }
 
 tp_opcode get_tpop_code (tp_op *op){