nsz Git - libfirm/blob - ir/be/ppc32/ppc32_map_regs.c

   1 /*
   2  * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
   3  *
   4  * This file is part of libFirm.
   5  *
   6  * This file may be distributed and/or modified under the terms of the
   7  * GNU General Public License version 2 as published by the Free Software
   8  * Foundation and appearing in the file LICENSE.GPL included in the
   9  * packaging of this file.
  10  *
  11  * Licensees holding valid libFirm Professional Edition licenses may use
  12  * this file in accordance with the libFirm Commercial License.
  13  * Agreement provided with the Software.
  14  *
  15  * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
  16  * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17  * PURPOSE.
  18  */
  19
  20 /**
  21  * @file
  22  * @brief   Register mapping for firm nodes. Stolen from bearch_firm :)
  23  * @author  Moritz Kroll, Jens Mueller
  24  * @version $Id$
  25  */
  26 #include "config.h"
  27
  28 #include <stdlib.h>
  29
  30 #include "ppc32_map_regs.h"
  31 #include "ppc32_new_nodes.h"
  32
  33 /* Mapping to store registers in firm nodes */
  34
  35 struct ppc32_irn_reg_assoc {
  36         const ir_node *irn;
  37         const arch_register_t *reg;
  38 };
  39
  40 int ppc32_cmp_irn_reg_assoc(const void *a, const void *b, size_t len)
  41 {
  42         const struct ppc32_irn_reg_assoc *x = a;
  43         const struct ppc32_irn_reg_assoc *y = b;
  44         (void) len;
  45
  46         return x->irn != y->irn;
  47 }
  48
  49 static struct ppc32_irn_reg_assoc *get_irn_reg_assoc(const ir_node *irn, set *reg_set)
  50 {
  51         struct ppc32_irn_reg_assoc templ;
  52         unsigned int hash;
  53
  54         templ.irn = irn;
  55         templ.reg = NULL;
  56         hash = HASH_PTR(irn);
  57
  58         return set_insert(reg_set, &templ, sizeof(templ), hash);
  59 }
  60
  61 void ppc32_set_firm_reg(ir_node *irn, const arch_register_t *reg, set *reg_set)
  62 {
  63         struct ppc32_irn_reg_assoc *assoc = get_irn_reg_assoc(irn, reg_set);
  64         assoc->reg = reg;
  65 }
  66
  67 const arch_register_t *ppc32_get_firm_reg(const ir_node *irn, set *reg_set)
  68 {
  69         struct ppc32_irn_reg_assoc *assoc = get_irn_reg_assoc(irn, reg_set);
  70         return assoc->reg;
  71 }
  72
  73
  74 static int is_ppc32_Load(const ir_node *n)
  75 {
  76         ir_op *op = get_irn_op(n);
  77         if (op == op_ppc32_Lbz) return 1;
  78         if (op == op_ppc32_Lhz) return 1;
  79         if (op == op_ppc32_Lha) return 1;
  80         if (op == op_ppc32_Lwz) return 1;
  81         if (op == op_ppc32_Lfd) return 1;
  82         if (op == op_ppc32_Lfs) return 1;
  83
  84         return 0;
  85 }
  86
  87 static int is_ppc32_Store(const ir_node *n)
  88 {
  89         ir_op *op = get_irn_op(n);
  90         if (op == op_ppc32_Stb) return 1;
  91         if (op == op_ppc32_Sth) return 1;
  92         if (op == op_ppc32_Stw) return 1;
  93         if (op == op_ppc32_Stfd) return 1;
  94         if (op == op_ppc32_Stfs) return 1;
  95
  96         return 0;
  97 }
  98
  99
 100 /**
 101  * Translates the projnum into a "real" argument position for register
 102  * requirements dependend on the predecessor.
 103  */
 104 long ppc32_translate_proj_pos(const ir_node *proj)
 105 {
 106         ir_node *pred = get_Proj_pred(proj);
 107         long nr       = get_Proj_proj(proj);
 108
 109
 110         if (is_ppc32_Load(pred)) {
 111                 if (nr == pn_Load_res)
 112                         return 0;
 113                 assert(0 && "unsupported Proj(Load) number");
 114         }
 115         else if (is_ppc32_Store(pred)) {
 116                 return 0;
 117         }
 118         else if (is_ppc32_fDiv(pred)) {
 119                 if (nr == pn_Quot_res)
 120                         return 0;
 121                 else
 122                         assert(0 && "there should be no more Projs for a fDiv");
 123         }
 124         else if (is_ppc32_Divw(pred) || is_ppc32_Divwu(pred)) {
 125                 if (nr == pn_DivMod_res_div)
 126                         return 0;
 127                 else
 128                         assert(0 && "there should be no more Projs for a ppc32_Divw or ppc32_Divwu");
 129         }
 130
 131         else if (is_ppc32_Cmp(pred))
 132                 return 0;
 133         else if (is_ppc32_Cmpi(pred))
 134                 return 0;
 135         else if (is_ppc32_Cmpl(pred))
 136                 return 0;
 137         else if (is_ppc32_Cmpli(pred))
 138                 return 0;
 139
 140
 141
 142 //      assert(0 && "unsupported Proj(X)");
 143         return nr;
 144 }