/* Copyright (C) 2001 by Universitaet Karlsruhe
-** All rights reserved.
-**
-** Authors: Goetz Lindenmaier
-**
+* All rights reserved.
+*
+* Authors: Goetz Lindenmaier
+*
*/
+/* $Id$ */
+
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
+# include "misc.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_class; tp_op *get_type_class () { return type_class; }
+tp_op *type_struct; tp_op *get_type_struct () { return type_struct; }
+tp_op *type_method; tp_op *get_type_method () { return type_method; }
+tp_op *type_union; tp_op *get_type_union () { return type_union; }
+tp_op *type_array; tp_op *get_type_array () { return type_array; }
+tp_op *type_enumeration; tp_op *get_type_enumeration() { return type_enumeration; }
+tp_op *type_pointer; tp_op *get_type_pointer () { return type_pointer; }
+tp_op *type_primitive; tp_op *get_type_primitive () { return type_primitive; }
+tp_op *type_id; tp_op *get_type_id () { return type_id; }
tp_op *
new_tpop (tp_opcode code, ident *name, size_t attr_size)
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);
}
/* Returns the string for the tp_opcode. */