nsz Git - libfirm/blob - ir/tr/tpop.c

   1 /* Copyright (C) 2001 by Universitaet Karlsruhe
   2 ** All rights reserved.
   3 **
   4 ** Authors: Goetz Lindenmaier
   5 **
   6 */
   7
   8 /* $Id$ */
   9
  10 #ifdef HAVE_CONFIG_H
  11 # include <config.h>
  12 #endif
  13
  14 # include "misc.h"
  15 # include "tpop_t.h"
  16 # include "type_t.h"
  17
  18 tp_op *type_class;
  19 tp_op *type_struct;
  20 tp_op *type_method;
  21 tp_op *type_union;
  22 tp_op *type_array;
  23 tp_op *type_enumeration;
  24 tp_op *type_pointer;
  25 tp_op *type_primitive;
  26 tp_op *type_id;
  27
  28 tp_op *
  29 new_tpop (tp_opcode code, ident *name, size_t attr_size)
  30 {
  31   tp_op *res;
  32
  33   res = (tp_op *) xmalloc (sizeof (tp_op));
  34   res->code = code;
  35   res->name = name;
  36   res->attr_size = attr_size;
  37   return res;
  38 }
  39
  40 void
  41 init_tpop(void)
  42 {
  43   type_class       = new_tpop (tpo_class      , id_from_str("class"      , 5), sizeof (cls_attr));
  44   type_struct      = new_tpop (tpo_struct     , id_from_str("struct"     , 6), sizeof (stc_attr));
  45   type_method      = new_tpop (tpo_method     , id_from_str("method"     , 6), sizeof (mtd_attr));
  46   type_union       = new_tpop (tpo_union      , id_from_str("union"      , 5), sizeof (uni_attr));
  47   type_array       = new_tpop (tpo_array      , id_from_str("array"      , 5), sizeof (arr_attr));
  48   type_enumeration = new_tpop (tpo_enumeration, id_from_str("enumeration",11), sizeof (enm_attr));
  49   type_pointer     = new_tpop (tpo_pointer    , id_from_str("pointer"    , 7), sizeof (ptr_attr));
  50   type_primitive   = new_tpop (tpo_primitive  , id_from_str("primitive"  , 9), /* sizeof (pri_attr) */ 0);
  51   type_id          = new_tpop (tpo_id         , id_from_str("type_id"    , 7), /* sizeof (id_attr)  */ 0);
  52 }
  53
  54 /* Returns the string for the tp_opcode. */
  55 const char  *get_tpop_name      (tp_op *op) {
  56   return id_to_str(op->name);
  57 }
  58
  59 tp_opcode get_tpop_code (tp_op *op){
  60   return op->code;
  61 }
  62
  63 ident *get_tpop_ident(tp_op *op){
  64   return op->name;
  65 }
  66
  67 /* returns the attribute size of the operator. */
  68 int get_tpop_attr_size (tp_op *op) {
  69   return op->attr_size;
  70 }