nsz Git - libfirm/blob - ir/ir/irop.c

   1 /* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
   2 ** All rights reserved.
   3 **
   4 ** Authors: Christian Schaefer
   5 **
   6 */
   7
   8 /* $Id$ */
   9
  10 #ifdef HAVE_CONFIG_H
  11 # include <config.h>
  12 #endif
  13
  14 # include "irop_t.h"
  15 # include "irnode_t.h"
  16 # include "misc.h"
  17
  18 ir_op *op_Block;
  19
  20 ir_op *op_Start;
  21 ir_op *op_End;
  22 ir_op *op_Jmp;
  23 ir_op *op_Cond;
  24 ir_op *op_Return;
  25 ir_op *op_Raise;
  26
  27 ir_op *op_Sel;
  28
  29 ir_op *op_Const;
  30 ir_op *op_SymConst;
  31
  32 ir_op *op_Call;
  33 ir_op *op_Add;
  34 ir_op *op_Sub;
  35 ir_op *op_Minus;
  36 ir_op *op_Mul;
  37 ir_op *op_Quot;
  38 ir_op *op_DivMod;
  39 ir_op *op_Div;
  40 ir_op *op_Mod;
  41 ir_op *op_Abs;
  42 ir_op *op_And;
  43 ir_op *op_Or;
  44 ir_op *op_Eor;
  45 ir_op *op_Not;
  46 ir_op *op_Cmp;
  47 ir_op *op_Shl;
  48 ir_op *op_Shr;
  49 ir_op *op_Shrs;
  50 ir_op *op_Rot;
  51 ir_op *op_Conv;
  52
  53 ir_op *op_Phi;
  54
  55 ir_op *op_Load;
  56 ir_op *op_Store;
  57 ir_op *op_Alloc;
  58 ir_op *op_Free;
  59 ir_op *op_Sync;
  60
  61 ir_op *op_Tuple;
  62 ir_op *op_Proj;
  63 ir_op *op_Id;
  64 ir_op *op_Bad;
  65
  66
  67 ir_op *
  68 new_ir_op (opcode code, ident *name, size_t attr_size, int labeled)
  69 {
  70   ir_op *res;
  71
  72   res = (ir_op *) xmalloc (sizeof (ir_op));
  73   res->code = code;
  74   res->name = name;
  75   res->attr_size = attr_size;
  76   res->labeled = labeled;   /* For vcg dumping.
  77                                Set labeled = 1 if the edges should be
  78                                enumarated in vcg output, otherwise set
  79                                labeled = 0. */
  80   return res;
  81 }
  82
  83
  84 void
  85 init_op(void)
  86 {
  87   op_Block = new_ir_op (iro_Block, id_from_str ("Block", 5), sizeof (block_attr), 1);
  88
  89   op_Start = new_ir_op (iro_Start, id_from_str ("Start", 5), sizeof (block_attr), 1);
  90   op_End = new_ir_op (iro_End, id_from_str ("End", 3), sizeof (block_attr), 1);
  91   op_Jmp    = new_ir_op (iro_Jmp, id_from_str ("Jmp", 3), 0, 0);
  92   op_Cond   = new_ir_op (iro_Cond, id_from_str ("Cond", 4), sizeof(cond_attr), 1);
  93   op_Return = new_ir_op (iro_Return, id_from_str ("Return", 6), 0, 1);
  94   op_Raise  = new_ir_op (iro_Raise, id_from_str ("Raise", 5), 0, 1);
  95
  96   op_Const = new_ir_op (iro_Const, id_from_str ("Const", 5), sizeof (struct tarval *), 0);
  97   op_SymConst = new_ir_op (iro_SymConst, id_from_str ("SymConst", 8),
  98                            sizeof (symconst_attr), 0);
  99
 100   op_Sel = new_ir_op (iro_Sel, id_from_str ("Sel", 3), sizeof (sel_attr), 1);
 101
 102   op_Call = new_ir_op (iro_Call, id_from_str ("Call", 4), sizeof (call_attr), 1);
 103   op_Add = new_ir_op (iro_Add, id_from_str ("Add", 3), 0, 0);
 104   op_Minus = new_ir_op (iro_Minus, id_from_str ("Minus", 5), 0, 0);
 105   op_Sub = new_ir_op (iro_Sub, id_from_str ("Sub", 3), 0, 1);
 106   op_Mul = new_ir_op (iro_Mul, id_from_str ("Mul", 3), 0, 0);
 107   op_Quot =   new_ir_op (iro_Quot,   id_from_str ("Quot", 4),   sizeof(struct irnode **), 1);
 108   op_DivMod = new_ir_op (iro_DivMod, id_from_str ("DivMod", 6), sizeof(struct irnode **), 1);
 109   op_Div =    new_ir_op (iro_Div,    id_from_str ("Div", 3),    sizeof(struct irnode **), 1);
 110   op_Mod =    new_ir_op (iro_Mod,    id_from_str ("Mod", 3),    sizeof(struct irnode **), 1);
 111   op_Abs = new_ir_op (iro_Abs, id_from_str ("Abs", 3), 0, 0);
 112   op_And = new_ir_op (iro_And, id_from_str ("And", 3), 0, 0);
 113   op_Or  = new_ir_op (iro_Or,  id_from_str ("Or", 2), 0, 0);
 114   op_Eor = new_ir_op (iro_Eor, id_from_str ("Eor", 3), 0, 0);
 115   op_Not = new_ir_op (iro_Not, id_from_str ("Not", 3), 0, 0);
 116   op_Cmp = new_ir_op (iro_Cmp, id_from_str ("Cmp", 3), 0, 1);
 117   op_Shl = new_ir_op (iro_Shl, id_from_str ("Shl", 3), 0, 1);
 118   op_Shr = new_ir_op (iro_Shr, id_from_str ("Shr", 3), 0, 1);
 119   op_Shrs  = new_ir_op (iro_Shrs, id_from_str ("Shrs", 3), 0, 0);
 120   op_Rot   = new_ir_op (iro_Rot, id_from_str ("Rot", 3), 0, 0);
 121   op_Conv  = new_ir_op (iro_Conv, id_from_str ("Conv", 4), 0, 1);
 122
 123   op_Phi   = new_ir_op (iro_Phi,   id_from_str ("Phi", 3),   sizeof (int), 1);
 124
 125   op_Load  = new_ir_op (iro_Load,  id_from_str ("Load", 4),  sizeof(struct irnode **), 1);
 126   op_Store = new_ir_op (iro_Store, id_from_str ("Store", 5), sizeof(struct irnode **), 1);
 127   op_Alloc = new_ir_op (iro_Alloc, id_from_str ("Alloc", 5), sizeof (alloc_attr), 1);
 128   op_Free  = new_ir_op (iro_Free,  id_from_str ("Free", 4),  sizeof (type *),     1);
 129   op_Sync  = new_ir_op (iro_Sync,  id_from_str ("Sync", 4),  0, 0);
 130
 131   op_Proj  = new_ir_op (iro_Proj,  id_from_str ("Proj", 4), sizeof (long), 1);
 132   op_Tuple = new_ir_op (iro_Tuple, id_from_str ("Tuple", 5), 0, 1);
 133   op_Id    = new_ir_op (iro_Id,    id_from_str ("Id", 2), 0, 0);
 134   op_Bad   = new_ir_op (iro_Bad,   id_from_str ("Bad", 3), 0, 0);
 135 }
 136
 137 /* Returns the string for the opcode. */
 138 const char  *get_op_name      (ir_op *op) {
 139   return id_to_str(op->name);
 140 }
 141
 142 opcode get_op_code (ir_op *op){
 143   return op->code;
 144 }
 145
 146 ident *get_op_ident(ir_op *op){
 147   return op->name;
 148 }
 149
 150 /* returns the attribute size of the operator. */
 151 int get_op_attr_size (ir_op *op) {
 152   return op->attr_size;
 153 }