2 * Copyright (C) 1995-2007 University of Karlsruhe. All right reserved.
4 * This file is part of libFirm.
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.
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.
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
22 * @brief Register mapping for firm nodes. Stolen from bearch_firm :)
23 * @author Moritz Kroll, Jens Mueller
32 #include "ppc32_map_regs.h"
33 #include "ppc32_new_nodes.h"
35 /* Mapping to store registers in firm nodes */
37 struct ppc32_irn_reg_assoc {
39 const arch_register_t *reg;
42 int ppc32_cmp_irn_reg_assoc(const void *a, const void *b, size_t len) {
43 const struct ppc32_irn_reg_assoc *x = a;
44 const struct ppc32_irn_reg_assoc *y = b;
46 return x->irn != y->irn;
49 static struct ppc32_irn_reg_assoc *get_irn_reg_assoc(const ir_node *irn, set *reg_set) {
50 struct ppc32_irn_reg_assoc templ;
57 return set_insert(reg_set, &templ, sizeof(templ), hash);
60 void ppc32_set_firm_reg(ir_node *irn, const arch_register_t *reg, set *reg_set) {
61 struct ppc32_irn_reg_assoc *assoc = get_irn_reg_assoc(irn, reg_set);
65 const arch_register_t *ppc32_get_firm_reg(const ir_node *irn, set *reg_set) {
66 struct ppc32_irn_reg_assoc *assoc = get_irn_reg_assoc(irn, reg_set);
71 int is_ppc32_Load(const ir_node *n)
73 ir_op *op = get_irn_op(n);
74 if(op == op_ppc32_Lbz) return 1;
75 if(op == op_ppc32_Lhz) return 1;
76 if(op == op_ppc32_Lha) return 1;
77 if(op == op_ppc32_Lwz) return 1;
78 if(op == op_ppc32_Lfd) return 1;
79 if(op == op_ppc32_Lfs) return 1;
84 int is_ppc32_Store(const ir_node *n)
86 ir_op *op = get_irn_op(n);
87 if(op == op_ppc32_Stb) return 1;
88 if(op == op_ppc32_Sth) return 1;
89 if(op == op_ppc32_Stw) return 1;
90 if(op == op_ppc32_Stfd) return 1;
91 if(op == op_ppc32_Stfs) return 1;
98 * Translates the projnum into a "real" argument position for register
99 * requirements dependend on the predecessor.
101 long ppc32_translate_proj_pos(const ir_node *proj) {
102 ir_node *pred = get_Proj_pred(proj);
103 long nr = get_Proj_proj(proj);
106 if (is_ppc32_Load(pred)) {
107 if (nr == pn_Load_res)
109 assert(0 && "unsupported Proj(Load) number");
111 else if (is_ppc32_Store(pred)) {
114 else if (is_ppc32_fDiv(pred)) {
115 if (nr == pn_Quot_res)
118 assert(0 && "there should be no more Projs for a fDiv");
120 else if (is_ppc32_Divw(pred) || is_ppc32_Divwu(pred)) {
121 if (nr == pn_DivMod_res_div)
124 assert(0 && "there should be no more Projs for a ppc32_Divw or ppc32_Divwu");
127 else if(is_ppc32_Cmp(pred))
129 else if(is_ppc32_Cmpi(pred))
131 else if(is_ppc32_Cmpl(pred))
133 else if(is_ppc32_Cmpli(pred))
138 // assert(0 && "unsupported Proj(X)");