/*
- * 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.
+ * This file is part of libFirm.
+ * Copyright (C) 2012 University of Karlsruhe.
*/
-#ifdef HAVE_CONFIG_H
-# include "config.h"
-#endif
-# include "xmalloc.h"
-# include "tpop_t.h"
-# include "type_t.h"
+/**
+ * @file
+ * @brief Opcode of types.
+ * @author Goetz Lindenmaier, Michael Beck
+ */
+#include "config.h"
+
+#include "xmalloc.h"
+#include "tpop_t.h"
+#include "type_t.h"
+#include "ident.h"
-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; }
+const tp_op *type_class; const tp_op *get_tpop_class (void) { return type_class; }
+const tp_op *type_struct; const tp_op *get_tpop_struct (void) { return type_struct; }
+const tp_op *type_method; const tp_op *get_tpop_method (void) { return type_method; }
+const tp_op *type_union; const tp_op *get_tpop_union (void) { return type_union; }
+const tp_op *type_array; const tp_op *get_tpop_array (void) { return type_array; }
+const tp_op *type_enumeration; const tp_op *get_tpop_enumeration(void) { return type_enumeration; }
+const tp_op *type_pointer; const tp_op *get_tpop_pointer (void) { return type_pointer; }
+const tp_op *type_primitive; const tp_op *get_tpop_primitive (void) { return type_primitive; }
+const tp_op *tpop_code; const tp_op *get_tpop_code_type (void) { return tpop_code; }
+const tp_op *tpop_none; const tp_op *get_tpop_none (void) { return tpop_none; }
+const tp_op *tpop_unknown; const tp_op *get_tpop_unknown (void) { return tpop_unknown; }
-tp_op *
-new_tpop (tp_opcode code, ident *name, size_t attr_size)
+const tp_op *
+new_tpop(tp_opcode code, ident *name, unsigned flags, size_t attr_size, const tp_op_ops *ops)
{
- tp_op *res;
+ tp_op *res = XMALLOC(tp_op);
+ res->code = code;
+ res->name = name;
+ res->flags = flags;
+ res->attr_size = attr_size;
- res = xmalloc(sizeof(*res));
- res->code = code;
- res->name = name;
- res->attr_size = attr_size;
- return res;
-}
+ if (ops)
+ res->ops = *ops;
+ else
+ memset(&res->ops, 0, sizeof(res->ops));
-INLINE void
-free_tpop(tp_op* tpop) {
- free(tpop);
+ return res;
}
-void
-init_tpop(void)
+void free_tpop(const tp_op *tpop)
{
- 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);
+ xfree((void *)tpop);
}
-/* 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;
-}
+static const tp_op_ops
+ /** tpop operations for class types */
+ class_ops = {
+ free_class_attrs,
+ free_class_entities,
+ NULL,
+ set_class_mode,
+ set_class_size,
+ get_class_n_members,
+ get_class_member,
+ get_class_member_index
+ },
+ /** tpop operations for struct types */
+ struct_ops = {
+ free_struct_attrs,
+ free_struct_entities,
+ NULL,
+ set_struct_mode,
+ set_struct_size,
+ get_struct_n_members,
+ get_struct_member,
+ get_struct_member_index
+ },
+ /** tpop operations for method types */
+ method_ops = {
+ free_method_attrs,
+ free_method_entities,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL
+ },
+ /** tpop operations for union types */
+ union_ops = {
+ free_union_attrs,
+ free_union_entities,
+ NULL,
+ NULL,
+ set_union_size,
+ get_union_n_members,
+ get_union_member,
+ get_union_member_index
+ },
+ /** tpop operations for array types */
+ array_ops = {
+ free_array_attrs,
+ free_array_entities,
+ free_array_automatic_entities,
+ NULL,
+ set_array_size,
+ NULL,
+ NULL,
+ NULL
+ },
+ /** tpop operations for enumeration types */
+ enum_ops = {
+ free_enumeration_attrs,
+ free_enumeration_entities,
+ NULL,
+ set_enumeration_mode,
+ NULL,
+ NULL,
+ NULL,
+ NULL
+ },
+ /** tpop operations for pointer types */
+ pointer_ops = {
+ free_pointer_attrs,
+ free_pointer_entities,
+ NULL,
+ set_pointer_mode,
+ NULL,
+ NULL,
+ NULL,
+ NULL
+ },
+ /** tpop operations for pseudo types */
+ pseudo_ops = {
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ set_default_size,
+ NULL,
+ NULL,
+ NULL
+ },
+ /** tpop operations for primitive types */
+ null_ops = {
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ set_default_size,
+ NULL,
+ NULL,
+ NULL
+ };
-/* Returns the string for the tp_opcode. */
-const char *get_tpop_name (tp_op *op) {
- return get_id_str(op->name);
+void init_tpop(void)
+{
+#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
}
-tp_opcode (get_tpop_code)(tp_op *op){
- return __get_tpop_code(op);
+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(tpop_code ); tpop_code = NULL;
+ free_tpop(tpop_none ); tpop_none = NULL;
+ free_tpop(tpop_unknown ); tpop_unknown = NULL;
}
-ident *(get_tpop_ident)(tp_op *op){
- return __get_tpop_ident(op);
+const char *get_tpop_name(const tp_op *op)
+{
+ return get_id_str(op->name);
}
-/* returns the attribute size of the operator. */
-int (get_tpop_attr_size)(tp_op *op) {
- return __get_tpop_attr_size(op);
+tp_opcode (get_tpop_code)(const tp_op *op)
+{
+ return _get_tpop_code(op);
}
projects / libfirm / blobdiff