/*
- * Copyright (C) 1995-2007 University of Karlsruhe. All right reserved.
+ * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
*
* This file is part of libFirm.
*
* @author Moritz Kroll, Jens Mueller
* @version $Id$
*/
-#ifdef HAVE_CONFIG_H
#include "config.h"
-#endif
#include "irnode_t.h"
#include "irgraph_t.h"
#include "iropt_t.h"
#include "irprintf.h"
#include "debug.h"
+#include "error.h"
-#include "../benode_t.h"
+#include "../benode.h"
#include "bearch_ppc32_t.h"
#include "ppc32_nodes_attr.h"
-#include "archop.h"
#include "ppc32_transform.h"
#include "ppc32_new_nodes.h"
#include "ppc32_map_regs.h"
extern ir_op *get_op_Mulh(void);
-int is_direct_entity(ir_entity *ent);
-
ir_mode* ppc32_mode_Cond = NULL;
/**
* Returns the proj of a given node with the given proj number
*/
-static INLINE ir_node *get_succ_Proj(ir_node *node, long proj)
+static inline ir_node *get_succ_Proj(ir_node *node, long proj)
{
const ir_edge_t *edge;
foreach_out_edge(node, edge)
/**
* Returns a singleton condition mode
*/
-ir_mode *get_ppc32_mode_Cond(void) {
+static ir_mode *get_ppc32_mode_Cond(void)
+{
if (ppc32_mode_Cond)
return ppc32_mode_Cond;
else {
}
/**
- * Calculates the modecode with size, sort and signed attributes
+ * Calculates the ppc32_modecode with size, sort and signed attributes
*/
-modecode get_nice_modecode(ir_mode *irmode)
+ppc32_modecode get_nice_modecode(ir_mode *irmode)
{
- modecode mode = irm_max;
+ ppc32_modecode mode = irm_max;
int sign = mode_is_signed(irmode);
int bits = get_mode_size_bits(irmode);
- if(mode_is_int(irmode))
+ if (mode_is_int(irmode))
{
- switch(bits)
+ switch (bits)
{
case 8:
mode = sign ? irm_Bs : irm_Bu;
break;
}
}
- else if(mode_is_float(irmode))
+ else if (mode_is_float(irmode))
{
- switch(bits)
+ switch (bits)
{
case 32:
mode = irm_F;
break;
}
}
- else if(mode_is_reference(irmode))
+ else if (mode_is_reference(irmode))
{
- switch(bits)
+ switch (bits)
{
case 32:
mode = irm_P;
* Returns true, if the given node is a Const node and it's value fits into
* a signed 16-bit variable
*/
-int is_16bit_signed_const(ir_node *node)
+static int is_16bit_signed_const(ir_node *node)
{
tarval *tv_const;
- if(!is_ppc32_Const(node)) return 0;
+ if (!is_ppc32_Const(node)) return 0;
tv_const = get_ppc32_constant_tarval(node);
- switch(get_nice_modecode(get_irn_mode(node)))
+ switch (get_nice_modecode(get_irn_mode(node)))
{
case irm_Bu:
case irm_Bs:
{
unsigned char val2 = get_tarval_sub_bits(tv_const, 2);
unsigned char val3 = get_tarval_sub_bits(tv_const, 3);
- if(val2 || val3)
+ if (val2 || val3)
return 0;
// fall through
case irm_Hu:
{
unsigned char val1 = get_tarval_sub_bits(tv_const, 1);
- if(val1&0x80)
+ if (val1&0x80)
return 0;
return 1;
}
{
unsigned char val2 = get_tarval_sub_bits(tv_const, 2);
unsigned char val3 = get_tarval_sub_bits(tv_const, 3);
- if(val2==0 && val3==0)
+ if (val2==0 && val3==0)
{
unsigned char val1 = get_tarval_sub_bits(tv_const, 1);
- if(val1&0x80)
+ if (val1&0x80)
return 0;
return 1;
}
- if(!(val2==0xff && val3==0xff))
+ if (!(val2==0xff && val3==0xff))
{
unsigned char val1 = get_tarval_sub_bits(tv_const, 1);
- if(!(val1&0x80))
+ if (!(val1&0x80))
return 0;
return 1;
}
return 0;
}
default:
- fprintf(stderr, "is_16bit_signed_const(): Mode not supported: %s\n", get_mode_name(get_irn_mode(node)));
- assert(0);
- return 0;
+ panic("is_16bit_signed_const(): Mode not supported: %F", get_irn_mode(node));
}
}
* Returns true, if the given node is a Const node and it's value fits into
* a unsigned 16-bit variable
*/
-int is_16bit_unsigned_const(ir_node *node)
+static int is_16bit_unsigned_const(ir_node *node)
{
tarval *tv_const;
- if(!is_ppc32_Const(node)) return 0;
+ if (!is_ppc32_Const(node)) return 0;
tv_const = get_ppc32_constant_tarval(node);
- switch(get_nice_modecode(get_irn_mode(node)))
+ switch (get_nice_modecode(get_irn_mode(node)))
{
case irm_Bu:
case irm_Bs:
{
unsigned char val2 = get_tarval_sub_bits(tv_const, 2);
unsigned char val3 = get_tarval_sub_bits(tv_const, 3);
- if(val2 || val3)
+ if (val2 || val3)
return 0;
return 1;
}
default:
- fprintf(stderr, "is_16bit_unsigned_const(): Mode not supported: %s\n", get_mode_name(get_irn_mode(node)));
- assert(0);
- return 0;
+ panic("is_16bit_unsigned_const(): Mode not supported: %F", get_irn_mode(node));
}
}
* @param env The transformation environment
* @return the created ppc Add node
*/
-static ir_node *gen_Add(ppc32_transform_env_t *env) {
+static ir_node *gen_Add(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Add_left(env->irn);
ir_node *op2 = get_Add_right(env->irn);
- switch(get_nice_modecode(env->mode)){
+ switch (get_nice_modecode(env->mode)){
case irm_D:
- return new_rd_ppc32_fAdd(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_fAdd(env->dbg, env->block, op1, op2, env->mode);
case irm_F:
- return new_rd_ppc32_fAdds(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_fAdds(env->dbg, env->block, op1, op2, env->mode);
case irm_Is:
case irm_Iu:
case irm_Hs:
case irm_Bs:
case irm_Bu:
case irm_P:
- if(is_16bit_signed_const(op1))
+ if (is_16bit_signed_const(op1))
{
- ir_node *addnode = new_rd_ppc32_Addi(env->dbg, env->irg, env->block, op2, env->mode);
+ ir_node *addnode = new_bd_ppc32_Addi(env->dbg, env->block, op2, env->mode);
set_ppc32_constant_tarval(addnode, get_ppc32_constant_tarval(op1));
set_ppc32_offset_mode(addnode, ppc32_ao_None);
return addnode;
}
- if(is_16bit_signed_const(op2))
+ if (is_16bit_signed_const(op2))
{
- ir_node *addnode = new_rd_ppc32_Addi(env->dbg, env->irg, env->block, op1, env->mode);
+ ir_node *addnode = new_bd_ppc32_Addi(env->dbg, env->block, op1, env->mode);
set_ppc32_constant_tarval(addnode, get_ppc32_constant_tarval(op2));
set_ppc32_offset_mode(addnode, ppc32_ao_None);
return addnode;
}
- return new_rd_ppc32_Add(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Add(env->dbg, env->block, op1, op2, env->mode);
default:
- fprintf(stderr, "Mode for Add not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return NULL;
+ panic("Mode for Add not supported: %F", env->mode);
}
}
* @param env The transformation environment
* @return the created ppc Mul node
*/
-static ir_node *gen_Mul(ppc32_transform_env_t *env) {
+static ir_node *gen_Mul(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Mul_left(env->irn);
ir_node *op2 = get_Mul_right(env->irn);
- switch(get_nice_modecode(env->mode)){
+ switch (get_nice_modecode(env->mode)){
case irm_D:
- return new_rd_ppc32_fMul(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_fMul(env->dbg, env->block, op1, op2, env->mode);
case irm_F:
- return new_rd_ppc32_fMuls(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_fMuls(env->dbg, env->block, op1, op2, env->mode);
case irm_Is:
case irm_Iu:
case irm_Hs:
case irm_Hu:
case irm_Bs:
case irm_Bu:
- return new_rd_ppc32_Mullw(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Mullw(env->dbg, env->block, op1, op2, env->mode);
case irm_P:
default:
- fprintf(stderr, "Mode for Mul not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return NULL;
+ panic("Mode for Mul not supported: %F", env->mode);
}
}
* @param env The transformation environment
* @return the created ppc Mulh node
*/
-static ir_node *gen_Mulh(ppc32_transform_env_t *env) {
+static ir_node *gen_Mulh(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_irn_n(env->irn, 0);
ir_node *op2 = get_irn_n(env->irn, 1);
- switch(get_nice_modecode(env->mode)){
+ switch (get_nice_modecode(env->mode)){
case irm_Is:
case irm_Hs:
case irm_Bs:
- return new_rd_ppc32_Mulhw(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Mulhw(env->dbg, env->block, op1, op2, env->mode);
case irm_Iu:
case irm_Hu:
case irm_Bu:
- return new_rd_ppc32_Mulhwu(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Mulhwu(env->dbg, env->block, op1, op2, env->mode);
case irm_D:
case irm_F:
case irm_P:
default:
- fprintf(stderr, "Mode for Mulh not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return NULL;
+ panic("Mode for Mulh not supported: %F", env->mode);
}
}
* @param env The transformation environment
* @return the created ppc And node
*/
-static ir_node *gen_And(ppc32_transform_env_t *env) {
+static ir_node *gen_And(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_And_left(env->irn);
ir_node *op2 = get_And_right(env->irn);
- return new_rd_ppc32_And(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_And(env->dbg, env->block, op1, op2, env->mode);
}
/**
* @param env The transformation environment
* @return the created ppc Or node
*/
-static ir_node *gen_Or(ppc32_transform_env_t *env) {
+static ir_node *gen_Or(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Or_left(env->irn);
ir_node *op2 = get_Or_right(env->irn);
- return new_rd_ppc32_Or(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Or(env->dbg, env->block, op1, op2, env->mode);
}
/**
* @param env The transformation environment
* @return the created ppc Xor node
*/
-static ir_node *gen_Eor(ppc32_transform_env_t *env) {
+static ir_node *gen_Eor(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Eor_left(env->irn);
ir_node *op2 = get_Eor_right(env->irn);
- return new_rd_ppc32_Xor(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Xor(env->dbg, env->block, op1, op2, env->mode);
}
/**
* @param env The transformation environment
* @return the created ppc Sub node
*/
-static ir_node *gen_Sub(ppc32_transform_env_t *env) {
+static ir_node *gen_Sub(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Sub_left(env->irn);
ir_node *op2 = get_Sub_right(env->irn);
- switch(get_nice_modecode(env->mode)){
+ switch (get_nice_modecode(env->mode)){
case irm_D:
- return new_rd_ppc32_fSub(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_fSub(env->dbg, env->block, op1, op2, env->mode);
case irm_F:
- return new_rd_ppc32_fSubs(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_fSubs(env->dbg, env->block, op1, op2, env->mode);
case irm_Is:
case irm_Iu:
case irm_Hs:
case irm_Bs:
case irm_Bu:
case irm_P:
- return new_rd_ppc32_Sub(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Sub(env->dbg, env->block, op1, op2, env->mode);
default:
- fprintf(stderr, "Mode for Sub not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return NULL;
+ panic("Mode for Sub not supported: %F", env->mode);
}
}
* @param env The transformation environment
* @return the created ppc fDiv node
*/
-static ir_node *gen_Quot(ppc32_transform_env_t *env) {
+static ir_node *gen_Quot(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Quot_left(env->irn);
ir_node *op2 = get_Quot_right(env->irn);
- switch(get_nice_modecode(env->mode)){
+ switch (get_nice_modecode(env->mode)){
case irm_D:
- return new_rd_ppc32_fDiv(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_fDiv(env->dbg, env->block, op1, op2, env->mode);
case irm_F:
- return new_rd_ppc32_fDivs(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_fDivs(env->dbg, env->block, op1, op2, env->mode);
default:
- fprintf(stderr, "Mode for Quot not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return NULL;
+ panic("Mode for Quot not supported: %F", env->mode);
}
}
* @param env The transformation environment
* @return the created ppc Div node
*/
-static ir_node *gen_Div(ppc32_transform_env_t *env) {
+static ir_node *gen_Div(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Div_left(env->irn);
ir_node *op2 = get_Div_right(env->irn);
- switch(get_nice_modecode(get_irn_mode(op1))){
+ switch (get_nice_modecode(get_irn_mode(op1))){
case irm_Is:
case irm_Hs:
case irm_Bs:
- return new_rd_ppc32_Divw(env->dbg, env->irg, env->block, op1, op2, mode_T);
+ return new_bd_ppc32_Divw(env->dbg, env->block, op1, op2, mode_T);
case irm_Iu:
case irm_Hu:
case irm_Bu:
- return new_rd_ppc32_Divwu(env->dbg, env->irg, env->block, op1, op2, mode_T);
+ return new_bd_ppc32_Divwu(env->dbg, env->block, op1, op2, mode_T);
default:
- fprintf(stderr, "Mode for Div not supported: %s\n", get_mode_name(get_irn_mode(op1)));
- assert(0);
- return NULL;
+ panic("Mode for Div not supported: %F", get_irn_mode(op1));
}
}
* @param env The transformation environment
* @return the created ppc Div node
*/
-static ir_node *gen_DivMod(ppc32_transform_env_t *env) {
+static ir_node *gen_DivMod(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_DivMod_left(env->irn);
ir_node *op2 = get_DivMod_right(env->irn);
ir_node *proj_div = NULL, *proj_mod = NULL;
{
if (is_Proj(edge->src))
{
- switch(get_Proj_proj(edge->src)){
+ switch (get_Proj_proj(edge->src)){
case pn_DivMod_res_div:
proj_div = edge->src;
break;
res_mode = get_irn_mode(proj_div);
- switch(get_nice_modecode(res_mode))
+ switch (get_nice_modecode(res_mode))
{
case irm_Is:
case irm_Hs:
case irm_Bs:
- div_result = new_rd_ppc32_Divw(env->dbg, env->irg, env->block, op1, op2, mode_T);
+ div_result = new_bd_ppc32_Divw(env->dbg, env->block, op1, op2, mode_T);
break;
case irm_Iu:
case irm_Hu:
case irm_Bu:
- div_result = new_rd_ppc32_Divwu(env->dbg, env->irg, env->block, op1, op2, mode_T);
+ div_result = new_bd_ppc32_Divwu(env->dbg, env->block, op1, op2, mode_T);
break;
default:
- fprintf(stderr, "Mode for DivMod not supported: %s\n", get_mode_name(res_mode));
- assert(0);
- return 0;
-
+ panic("Mode for DivMod not supported: %F", res_mode);
}
if (proj_div == NULL)
- proj_div = new_rd_Proj(env->dbg, env->irg, env->block, div_result, get_irn_mode(proj_mod), pn_DivMod_res_div);
+ proj_div = new_rd_Proj(env->dbg, div_result, get_irn_mode(proj_mod), pn_DivMod_res_div);
if (proj_mod!=NULL){
ir_node *mul_result;
ir_node *mod_result;
- mul_result = new_rd_ppc32_Mullw(env->dbg, env->irg, env->block, proj_div, op2, res_mode);
- mod_result = new_rd_ppc32_Sub(env->dbg, env->irg, env->block, op1, mul_result, res_mode);
+ mul_result = new_bd_ppc32_Mullw(env->dbg, env->block, proj_div, op2, res_mode);
+ mod_result = new_bd_ppc32_Sub(env->dbg, env->block, op1, mul_result, res_mode);
exchange(proj_mod, mod_result);
}
* @param env The transformation environment
* @return the created ppc Mod result node
*/
-static ir_node *gen_Mod(ppc32_transform_env_t *env) {
+static ir_node *gen_Mod(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Mod_left(env->irn);
ir_node *op2 = get_Mod_right(env->irn);
ir_node *proj_div = NULL, *proj_mod = NULL;
assert(proj_mod != NULL);
res_mode = get_irn_mode(proj_mod);
- switch(get_nice_modecode(res_mode))
+ switch (get_nice_modecode(res_mode))
{
case irm_Is:
case irm_Hs:
case irm_Bs:
- div_result = new_rd_ppc32_Divw(env->dbg, env->irg, env->block, op1, op2, mode_T);
+ div_result = new_bd_ppc32_Divw(env->dbg, env->block, op1, op2, mode_T);
break;
case irm_Iu:
case irm_Hu:
case irm_Bu:
- div_result = new_rd_ppc32_Divwu(env->dbg, env->irg, env->block, op1, op2, mode_T);
+ div_result = new_bd_ppc32_Divwu(env->dbg, env->block, op1, op2, mode_T);
break;
default:
- fprintf(stderr, "Mode for Mod not supported: %s\n", get_mode_name(res_mode));
- assert(0);
- return NULL;
-
+ panic("Mode for Mod not supported: %s\n", get_mode_name(res_mode));
}
- proj_div = new_rd_Proj(env->dbg, env->irg, env->block, div_result, res_mode, pn_DivMod_res_div);
+ proj_div = new_rd_Proj(env->dbg, div_result, res_mode, pn_DivMod_res_div);
- mul_result = new_rd_ppc32_Mullw(env->dbg, env->irg, env->block, proj_div, op2, res_mode);
- mod_result = new_rd_ppc32_Sub(env->dbg, env->irg, env->block, op1, mul_result, res_mode);
+ mul_result = new_bd_ppc32_Mullw(env->dbg, env->block, proj_div, op2, res_mode);
+ mod_result = new_bd_ppc32_Sub(env->dbg, env->block, op1, mul_result, res_mode);
exchange(proj_mod, mod_result);
* @param env The transformation environment
* @return the created ppc Shl node
*/
-static ir_node *gen_Shl(ppc32_transform_env_t *env) {
+static ir_node *gen_Shl(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Shl_left(env->irn);
ir_node *op2 = get_Shl_right(env->irn);
- if(is_ppc32_Const(op2))
+ if (is_ppc32_Const(op2))
{
- ir_node *shift = new_rd_ppc32_Rlwinm(env->dbg, env->irg, env->block, op1, env->mode);
+ ir_node *shift = new_bd_ppc32_Rlwinm(env->dbg, env->block, op1, env->mode);
tarval *tv_const = get_ppc32_constant_tarval(op2);
int sh = get_tarval_long(tv_const);
assert(0<=sh && sh<=31);
set_ppc32_rlwimi_const(shift, sh, 0, 31-sh);
return shift;
}
- return new_rd_ppc32_Slw(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Slw(env->dbg, env->block, op1, op2, env->mode);
}
/**
* @param env The transformation environment
* @return the created ppc Shr node
*/
-static ir_node *gen_Shr(ppc32_transform_env_t *env) {
+static ir_node *gen_Shr(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Shr_left(env->irn);
ir_node *op2 = get_Shr_right(env->irn);
- if(is_ppc32_Const(op2))
+ if (is_ppc32_Const(op2))
{
- ir_node *shift = new_rd_ppc32_Rlwinm(env->dbg, env->irg, env->block, op1, env->mode);
+ ir_node *shift = new_bd_ppc32_Rlwinm(env->dbg, env->block, op1, env->mode);
tarval *tv_const = get_ppc32_constant_tarval(op2);
int sh = get_tarval_long(tv_const);
assert(0<=sh && sh<=31);
set_ppc32_rlwimi_const(shift, 32-sh, sh, 31);
return shift;
}
- return new_rd_ppc32_Srw(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Srw(env->dbg, env->block, op1, op2, env->mode);
}
/**
* @param env The transformation environment
* @return the created ppc Sraw node
*/
-static ir_node *gen_Shrs(ppc32_transform_env_t *env) {
+static ir_node *gen_Shrs(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Shrs_left(env->irn);
ir_node *op2 = get_Shrs_right(env->irn);
- if(is_ppc32_Const(op2))
+ if (is_ppc32_Const(op2))
{
- ir_node *shift = new_rd_ppc32_Srawi(env->dbg, env->irg, env->block, op1, env->mode);
+ ir_node *shift = new_bd_ppc32_Srawi(env->dbg, env->block, op1, env->mode);
tarval *tv_const = get_ppc32_constant_tarval(op2);
int sh = get_tarval_long(tv_const);
assert(0<=sh && sh<=31);
+ (void) sh;
set_ppc32_constant_tarval(shift, tv_const);
set_ppc32_offset_mode(shift, ppc32_ao_None);
return shift;
}
- return new_rd_ppc32_Sraw(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Sraw(env->dbg, env->block, op1, op2, env->mode);
}
/**
- * Creates an ppc RotL.
+ * Creates an ppc Rotl.
*
* @param env The transformation environment
- * @return the created ppc RotL node
+ * @return the created ppc Rotl node
*/
-static ir_node *gen_Rot(ppc32_transform_env_t *env) {
- ir_node *op1 = get_Rot_left(env->irn);
- ir_node *op2 = get_Rot_right(env->irn);
+static ir_node *gen_Rotl(ppc32_transform_env_t *env)
+{
+ ir_node *op1 = get_Rotl_left(env->irn);
+ ir_node *op2 = get_Rotl_right(env->irn);
- if(is_ppc32_Const(op2))
+ if (is_ppc32_Const(op2))
{
- ir_node *rot = new_rd_ppc32_Rlwinm(env->dbg, env->irg, env->block, op1, env->mode);
+ ir_node *rot = new_bd_ppc32_Rlwinm(env->dbg, env->block, op1, env->mode);
tarval *tv_const = get_ppc32_constant_tarval(op2);
int sh = get_tarval_long(tv_const);
assert(0<=sh && sh<=31);
set_ppc32_rlwimi_const(rot, sh, 0, 31);
return rot;
}
- return new_rd_ppc32_Rlwnm(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Rlwnm(env->dbg, env->block, op1, op2, env->mode);
}
/**
* @param env The transformation environment
* @return the created ppc Cmp node
*/
-static ir_node *gen_Cmp(ppc32_transform_env_t *env) {
+static ir_node *gen_Cmp(ppc32_transform_env_t *env)
+{
ir_node *op1 = get_Cmp_left(env->irn);
ir_node *op2 = get_Cmp_right(env->irn);
set_irn_mode(edge->src, get_ppc32_mode_Cond());
}
- if(mode_is_float(env->mode))
- return new_rd_ppc32_fCmpu(env->dbg, env->irg, env->block, op1, op2, env->mode);
- else if(mode_is_signed(env->mode))
+ if (mode_is_float(env->mode))
+ return new_bd_ppc32_fCmpu(env->dbg, env->block, op1, op2, env->mode);
+ else if (mode_is_signed(env->mode))
{
- if(is_16bit_signed_const(op2))
+ if (is_16bit_signed_const(op2))
{
- ir_node *cmp = new_rd_ppc32_Cmpi(env->dbg, env->irg, env->block, op1, env->mode);
+ ir_node *cmp = new_bd_ppc32_Cmpi(env->dbg, env->block, op1, env->mode);
tarval *tv_const = get_ppc32_constant_tarval(op2);
set_ppc32_constant_tarval(cmp, tv_const);
set_ppc32_offset_mode(cmp, ppc32_ao_None);
}
else
{
- return new_rd_ppc32_Cmp(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Cmp(env->dbg, env->block, op1, op2, env->mode);
}
}
else
{
- if(is_16bit_unsigned_const(op2))
+ if (is_16bit_unsigned_const(op2))
{
- ir_node *cmp = new_rd_ppc32_Cmpli(env->dbg, env->irg, env->block, op1, env->mode);
+ ir_node *cmp = new_bd_ppc32_Cmpli(env->dbg, env->block, op1, env->mode);
tarval *tv_const = get_ppc32_constant_tarval(op2);
set_ppc32_constant_tarval(cmp, tv_const);
set_ppc32_offset_mode(cmp, ppc32_ao_None);
}
else
{
- return new_rd_ppc32_Cmpl(env->dbg, env->irg, env->block, op1, op2, env->mode);
+ return new_bd_ppc32_Cmpl(env->dbg, env->block, op1, op2, env->mode);
}
}
}
* @param env The transformation environment
* @return the created ppc Minus node
*/
-static ir_node *gen_Minus(ppc32_transform_env_t *env) {
+static ir_node *gen_Minus(ppc32_transform_env_t *env)
+{
ir_node *op = get_Minus_op(env->irn);
- switch(get_nice_modecode(env->mode)){
+ switch (get_nice_modecode(env->mode)){
case irm_D:
case irm_F:
- return new_rd_ppc32_fNeg(env->dbg, env->irg, env->block, op, env->mode);
+ return new_bd_ppc32_fNeg(env->dbg, env->block, op, env->mode);
case irm_Is:
case irm_Iu:
case irm_Hs:
case irm_Bs:
case irm_Bu:
case irm_P:
- return new_rd_ppc32_Neg(env->dbg, env->irg, env->block, op, env->mode);
+ return new_bd_ppc32_Neg(env->dbg, env->block, op, env->mode);
default:
- fprintf(stderr, "Mode for Neg not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return NULL;
+ panic("Mode for Neg not supported: %F", env->mode);
}
}
* @param env The transformation environment
* @return the created ppc Not node
*/
-static ir_node *gen_Not(ppc32_transform_env_t *env) {
- return new_rd_ppc32_Not(env->dbg, env->irg, env->block, get_Not_op(env->irn), env->mode);
+static ir_node *gen_Not(ppc32_transform_env_t *env)
+{
+ return new_bd_ppc32_Not(env->dbg, env->block, get_Not_op(env->irn), env->mode);
}
static ir_node *own_gen_Andi_dot_lo16(ppc32_transform_env_t *env, ir_node *op, int mask)
{
- ir_node *andi = new_rd_ppc32_Andi_dot(env->dbg, env->irg, env->block, op, mode_T);
+ ir_node *andi = new_bd_ppc32_Andi_dot(env->dbg, env->block, op, mode_T);
ir_node* in[1];
set_ppc32_offset_mode(andi, ppc32_ao_Lo16);
set_ppc32_constant_tarval(andi, new_tarval_from_long(mask, mode_Is));
- in[0] = new_rd_Proj(env->dbg, env->irg, env->block, andi, env->mode,1);
- be_new_Keep(&ppc32_reg_classes[CLASS_ppc32_condition], env->irg, env->block, 1, in);
- return new_rd_Proj(env->dbg, env->irg, env->block, andi, env->mode,0);
+ in[0] = new_rd_Proj(env->dbg, andi, env->mode,1);
+ be_new_Keep(env->block, 1, in);
+ return new_rd_Proj(env->dbg, andi, env->mode,0);
}
/**
* @param env The transformation environment
* @return the created ppc Conv node
*/
-static ir_node *gen_Conv(ppc32_transform_env_t *env) {
+static ir_node *gen_Conv(ppc32_transform_env_t *env)
+{
ir_node *op = get_Conv_op(env->irn);
- modecode from_mode=get_nice_modecode(get_irn_mode(op));
- modecode to_mode=get_nice_modecode(env->mode);
+ ppc32_modecode from_mode=get_nice_modecode(get_irn_mode(op));
+ ppc32_modecode to_mode=get_nice_modecode(env->mode);
#define SKIP return op
- if(from_mode == to_mode) SKIP;
+ if (from_mode == to_mode) SKIP;
- switch(from_mode){
+ switch (from_mode){
case irm_F:
- switch(to_mode)
+ switch (to_mode)
{
case irm_D: SKIP;
default:
break;
case irm_D:
- switch(to_mode)
+ switch (to_mode)
{
case irm_F:
- return new_rd_ppc32_fRsp(env->dbg, env->irg, env->block, op, env->mode);
+ return new_bd_ppc32_fRsp(env->dbg, env->block, op, env->mode);
default:
break;
}
case irm_Is:
case irm_Iu:
- switch(to_mode)
+ switch (to_mode)
{
case irm_Hs:
- return new_rd_ppc32_Extsh(env->dbg, env->irg, env->block, op, env->mode);
+ return new_bd_ppc32_Extsh(env->dbg, env->block, op, env->mode);
case irm_Hu:
return own_gen_Andi_dot_lo16(env, op, 0xffff);
case irm_Bs:
- return new_rd_ppc32_Extsb(env->dbg, env->irg, env->block, op, env->mode);
+ return new_bd_ppc32_Extsb(env->dbg, env->block, op, env->mode);
case irm_Bu:
return own_gen_Andi_dot_lo16(env, op, 0xff);
case irm_Is:
case irm_Hs:
case irm_Hu:
- switch(to_mode)
+ switch (to_mode)
{
case irm_Iu:
- if(from_mode==irm_Hu)
+ if (from_mode==irm_Hu)
case irm_Hu:
return own_gen_Andi_dot_lo16(env, op, 0xffff);
case irm_Is:
SKIP;
case irm_Bs:
- return new_rd_ppc32_Extsb(env->dbg, env->irg, env->block, op, env->mode);
+ return new_bd_ppc32_Extsb(env->dbg, env->block, op, env->mode);
case irm_Bu:
return own_gen_Andi_dot_lo16(env, op, 0xff);
case irm_Hs:
- return new_rd_ppc32_Extsh(env->dbg, env->irg, env->block, op, env->mode);
+ return new_bd_ppc32_Extsh(env->dbg, env->block, op, env->mode);
default:
break;
}
case irm_Bs:
case irm_Bu:
- switch(to_mode)
+ switch (to_mode)
{
case irm_Iu:
case irm_Hu:
- if(from_mode==irm_Bs)
+ if (from_mode==irm_Bs)
case irm_Bu:
return own_gen_Andi_dot_lo16(env, op, 0xff);
case irm_Is:
case irm_Hs:
SKIP;
case irm_Bs:
- return new_rd_ppc32_Extsb(env->dbg, env->irg, env->block, op, env->mode);
+ return new_bd_ppc32_Extsb(env->dbg, env->block, op, env->mode);
default:
break;
}
break;
case irm_P:
- if(to_mode==irm_Is || to_mode==irm_Iu) SKIP;
+ if (to_mode==irm_Is || to_mode==irm_Iu) SKIP;
break;
default:
break;
}
- fprintf(stderr, "Mode for Conv not supported: %s -> %s\n",
- get_mode_name(get_irn_mode(get_irn_n(env->irn,0))),get_mode_name(env->mode));
- assert(0);
- return NULL;
-
+ panic("Mode for Conv not supported: %F -> %F", get_irn_mode(op), env->mode);
#undef SKIP
}
* @param env The transformation environment
* @return the ppc node generating the absolute value
*/
-static ir_node *gen_Abs(ppc32_transform_env_t *env) {
+static ir_node *gen_Abs(ppc32_transform_env_t *env)
+{
ir_node *op = get_Abs_op(env->irn);
int shift = 7;
ir_node *n1,*n2;
- switch(get_nice_modecode(env->mode))
+ switch (get_nice_modecode(env->mode))
{
case irm_F:
case irm_D:
- return new_rd_ppc32_fAbs(env->dbg, env->irg, env->block, op, env->mode);
+ return new_bd_ppc32_fAbs(env->dbg, env->block, op, env->mode);
case irm_Is:
shift += 16;
case irm_Hs:
shift += 8;
case irm_Bs:
- n1 = new_rd_ppc32_Srawi(env->dbg, env->irg, env->block, op, env->mode);
+ n1 = new_bd_ppc32_Srawi(env->dbg, env->block, op, env->mode);
set_ppc32_constant_tarval(n1, new_tarval_from_long(shift, mode_Is));
set_ppc32_offset_mode(n1, ppc32_ao_None);
- n2 = new_rd_ppc32_Add(env->dbg, env->irg, env->block, op, n1, env->mode);
- return new_rd_ppc32_Xor(env->dbg, env->irg, env->block, n2, n1, env->mode);
+ n2 = new_bd_ppc32_Add(env->dbg, env->block, op, n1, env->mode);
+ return new_bd_ppc32_Xor(env->dbg, env->block, n2, n1, env->mode);
default:
break;
}
- fprintf(stderr, "Mode for Abs not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return NULL;
+ panic("Mode for Abs not supported: %F", env->mode);
}
/**
* @param env The transformation environment
* @return a ppc branch node
*/
-static ir_node *gen_Cond(ppc32_transform_env_t *env) {
+static ir_node *gen_Cond(ppc32_transform_env_t *env)
+{
ir_node *selector = get_Cond_selector(env->irn);
ir_mode *projmode = get_irn_mode(selector);
- if(is_Proj(selector) && projmode==get_ppc32_mode_Cond())
+ if (is_Proj(selector) && projmode==get_ppc32_mode_Cond())
{
int projnum = get_Proj_proj(selector);
- ir_node *branch = new_rd_ppc32_Branch(env->dbg, env->irg, env->block, selector, env->mode);
+ ir_node *branch = new_bd_ppc32_Branch(env->dbg, env->block, selector, env->mode);
set_ppc32_proj_nr(branch, projnum);
return branch;
}
else
{
- ir_node *unknown_gpr = new_rd_ppc32_Unknown(env->dbg, env->irg, env->block, mode_Is);
- ir_node *unknown_cond = new_rd_ppc32_cUnknown(env->dbg, env->irg, env->block, get_ppc32_mode_Cond());
+ ir_node *unknown_gpr = new_bd_ppc32_Unknown(env->dbg, env->block, mode_Is);
+ ir_node *unknown_cond = new_bd_ppc32_cUnknown(env->dbg, env->block, get_ppc32_mode_Cond());
- ir_node *switch_node = new_rd_ppc32_Switch(env->dbg, env->irg, env->block, selector,
+ ir_node *switch_node = new_bd_ppc32_Switch(env->dbg, env->block, selector,
unknown_gpr, unknown_cond, env->mode);
- set_ppc32_proj_nr(switch_node, get_Cond_defaultProj(env->irn));
+ set_ppc32_proj_nr(switch_node, get_Cond_default_proj(env->irn));
return switch_node;
}
* @param env The transformation environment
* @return a ppc Unknown node
*/
-static ir_node *gen_Unknown(ppc32_transform_env_t *env) {
- if(mode_is_float(env->mode))
- return new_rd_ppc32_fUnknown(env->dbg, env->irg, env->block, env->mode);
+static ir_node *gen_Unknown(ppc32_transform_env_t *env)
+{
+ if (mode_is_float(env->mode))
+ return new_bd_ppc32_fUnknown(env->dbg, env->block, env->mode);
else if (mode_is_int(env->mode))
- return new_rd_ppc32_Unknown(env->dbg, env->irg, env->block, env->mode);
+ return new_bd_ppc32_Unknown(env->dbg, env->block, env->mode);
else
- {
- fprintf(stderr, "Mode %s for unknown value not supported.\n", get_mode_name(env->mode));
- assert(0);
- return 0;
- }
+ panic("Mode %F for unknown value not supported.", env->mode);
}
-static ir_node *ldst_insert_const(ir_node *ptr, tarval **ptv, ident **pid, ppc32_transform_env_t *env) {
+static ir_node *ldst_insert_const(ir_node *ptr, tarval **ptv, ident **pid, ppc32_transform_env_t *env)
+{
tarval *tv_const = NULL;
ident *id_symconst = NULL;
- if(is_ppc32_Const(ptr))
+ if (is_ppc32_Const(ptr))
{
tv_const = get_ppc32_constant_tarval(ptr);
- ptr = new_rd_ppc32_Addis_zero(env->dbg, env->irg, env->block, mode_P, ppc32_ao_Ha16, tv_const, NULL);
+ ptr = new_bd_ppc32_Addis_zero(env->dbg, env->block, mode_P, ppc32_ao_Ha16, tv_const, NULL);
}
- else if(is_ppc32_SymConst(ptr))
+ else if (is_ppc32_SymConst(ptr))
{
+#if 0
ir_entity *ent = get_ppc32_frame_entity(ptr);
- if(is_direct_entity(ent))
+ if (is_direct_entity(ent))
{
id_symconst = get_entity_ident(ent);
- ptr = new_rd_ppc32_Addis_zero(env->dbg, env->irg, env->block, mode_P, ppc32_ao_Ha16, NULL, id_symconst);
+ ptr = new_bd_ppc32_Addis_zero(env->dbg, env->block, mode_P, ppc32_ao_Ha16, NULL, id_symconst);
}
+#endif
}
*ptv = tv_const;
*pid = id_symconst;
* @param env The transformation environment
* @return the created ppc Load node
*/
-static ir_node *gen_Load(ppc32_transform_env_t *env) {
+static ir_node *gen_Load(ppc32_transform_env_t *env)
+{
ir_node *node = env->irn;
ir_node *loadptr = get_Load_ptr(node);
ir_node *load;
ident *id_symconst = NULL;
loadptr = ldst_insert_const(loadptr, &tv_const, &id_symconst, env);
- switch(get_nice_modecode(mode)){
+ switch (get_nice_modecode(mode)){
case irm_Bu:
- load = new_rd_ppc32_Lbz(env->dbg, env->irg, env->block, loadptr, get_Load_mem(node));
+ load = new_bd_ppc32_Lbz(env->dbg, env->block, loadptr, get_Load_mem(node));
break;
case irm_Bs:
{
ir_node *proj_load, *extsb_node;
- load = new_rd_ppc32_Lbz(env->dbg, env->irg, env->block, loadptr, get_Load_mem(node));
- proj_load = new_rd_Proj(env->dbg, env->irg, env->block, load, mode, pn_Load_res);
- extsb_node = new_rd_ppc32_Extsb(env->dbg, env->irg, env->block, proj_load, mode);
+ load = new_bd_ppc32_Lbz(env->dbg, env->block, loadptr, get_Load_mem(node));
+ proj_load = new_rd_Proj(env->dbg, load, mode, pn_Load_res);
+ extsb_node = new_bd_ppc32_Extsb(env->dbg, env->block, proj_load, mode);
exchange(get_succ_Proj(env->irn, pn_Load_res), extsb_node);
break;
}
case irm_Hu:
- load = new_rd_ppc32_Lhz(env->dbg, env->irg, env->block, loadptr, get_Load_mem(node));
+ load = new_bd_ppc32_Lhz(env->dbg, env->block, loadptr, get_Load_mem(node));
break;
case irm_Hs:
- load =new_rd_ppc32_Lha(env->dbg, env->irg, env->block, loadptr, get_Load_mem(node));
+ load =new_bd_ppc32_Lha(env->dbg, env->block, loadptr, get_Load_mem(node));
break;
case irm_Is:
case irm_Iu:
case irm_P:
- load = new_rd_ppc32_Lwz(env->dbg, env->irg, env->block, loadptr, get_Load_mem(node));
+ load = new_bd_ppc32_Lwz(env->dbg, env->block, loadptr, get_Load_mem(node));
break;
case irm_D:
- load = new_rd_ppc32_Lfd(env->dbg, env->irg, env->block, loadptr, get_Load_mem(node));
+ load = new_bd_ppc32_Lfd(env->dbg, env->block, loadptr, get_Load_mem(node));
break;
case irm_F:
- load = new_rd_ppc32_Lfs(env->dbg, env->irg, env->block, loadptr, get_Load_mem(node));
+ load = new_bd_ppc32_Lfs(env->dbg, env->block, loadptr, get_Load_mem(node));
break;
default:
- fprintf(stderr, "Mode for Load not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return 0;
+ panic("Mode for Load not supported: %F", env->mode);
}
- if(tv_const)
+ if (tv_const)
{
set_ppc32_offset_mode(load, ppc32_ao_Lo16);
set_ppc32_constant_tarval(load, tv_const);
}
- else if(id_symconst)
+ else if (id_symconst)
{
set_ppc32_offset_mode(load, ppc32_ao_Lo16);
set_ppc32_symconst_ident(load, id_symconst);
* @param env The transformation environment
* @return the created ppc Store node
*/
-static ir_node *gen_Store(ppc32_transform_env_t *env) {
+static ir_node *gen_Store(ppc32_transform_env_t *env)
+{
ir_node *node = env->irn;
ir_node *storeptr = get_Store_ptr(node);
ir_node *valuenode = get_Store_value(node);
storeptr = ldst_insert_const(storeptr, &tv_const, &id_symconst, env);
- switch(get_nice_modecode(mode)){
+ switch (get_nice_modecode(mode)){
case irm_Bu:
case irm_Bs:
- store = new_rd_ppc32_Stb(env->dbg, env->irg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
+ store = new_bd_ppc32_Stb(env->dbg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
break;
case irm_Hu:
case irm_Hs:
- store = new_rd_ppc32_Sth(env->dbg, env->irg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
+ store = new_bd_ppc32_Sth(env->dbg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
break;
case irm_Is:
case irm_Iu:
case irm_P:
- store = new_rd_ppc32_Stw(env->dbg, env->irg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
+ store = new_bd_ppc32_Stw(env->dbg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
break;
case irm_D:
- store = new_rd_ppc32_Stfd(env->dbg, env->irg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
+ store = new_bd_ppc32_Stfd(env->dbg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
break;
case irm_F:
- store = new_rd_ppc32_Stfs(env->dbg, env->irg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
+ store = new_bd_ppc32_Stfs(env->dbg, env->block, storeptr, get_Store_value(node), get_Store_mem(node));
break;
default:
- fprintf(stderr, "Mode for Store not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return 0;
+ panic("Mode for Store not supported: %F", env->mode);
}
- if(tv_const)
+ if (tv_const)
{
set_ppc32_offset_mode(store, ppc32_ao_Lo16);
set_ppc32_constant_tarval(store, tv_const);
}
- else if(id_symconst)
+ else if (id_symconst)
{
set_ppc32_offset_mode(store, ppc32_ao_Lo16);
set_ppc32_symconst_ident(store, id_symconst);
* @param env The transformation environment
* @return the created ppc CopyB node
*/
-static ir_node *gen_CopyB(ppc32_transform_env_t *env) {
+static ir_node *gen_CopyB(ppc32_transform_env_t *env)
+{
ir_node *mem = get_CopyB_mem(env->irn);
ir_node *src = get_CopyB_src(env->irn);
ir_node *dest = get_CopyB_dst(env->irn);
ir_node *load, *store = NULL;
- if(size/4 >= 1)
+ if (size/4 >= 1)
{
ir_node *res;
tarval *offset0 = new_tarval_from_long(0, mode_Is);
tarval *offset4 = new_tarval_from_long(4, mode_Is);
- load = new_rd_ppc32_Lwz(env->dbg, env->irg, env->block, src, mem);
+ load = new_bd_ppc32_Lwz(env->dbg, env->block, src, mem);
set_ppc32_constant_tarval(load, offset0);
set_ppc32_offset_mode(load, ppc32_ao_None);
- mem = new_rd_Proj(env->dbg, env->irg, env->block, load, mode_M, pn_Load_M);
- res = new_rd_Proj(env->dbg, env->irg, env->block, load, mode_Is, pn_Load_res);
+ mem = new_rd_Proj(env->dbg, load, mode_M, pn_Load_M);
+ res = new_rd_Proj(env->dbg, load, mode_Is, pn_Load_res);
- store = new_rd_ppc32_Stw(env->dbg, env->irg, env->block, dest, res, mem);
+ store = new_bd_ppc32_Stw(env->dbg, env->block, dest, res, mem);
set_ppc32_constant_tarval(store, offset0);
set_ppc32_offset_mode(store, ppc32_ao_None);
- mem = new_rd_Proj(env->dbg, env->irg, env->block, store, mode_M, pn_Store_M);
+ mem = new_rd_Proj(env->dbg, store, mode_M, pn_Store_M);
- if(size/4==2)
+ if (size/4==2)
{
- load = new_rd_ppc32_Lwz(env->dbg, env->irg, env->block, src, mem);
+ load = new_bd_ppc32_Lwz(env->dbg, env->block, src, mem);
set_ppc32_constant_tarval(load, offset4);
set_ppc32_offset_mode(load, ppc32_ao_None);
- mem = new_rd_Proj(env->dbg, env->irg, env->block, load, mode_M, pn_Load_M);
- res = new_rd_Proj(env->dbg, env->irg, env->block, load, mode_Is, pn_Load_res);
+ mem = new_rd_Proj(env->dbg, load, mode_M, pn_Load_M);
+ res = new_rd_Proj(env->dbg, load, mode_Is, pn_Load_res);
- store = new_rd_ppc32_Stw(env->dbg, env->irg, env->block, dest, res, mem);
+ store = new_bd_ppc32_Stw(env->dbg, env->block, dest, res, mem);
set_ppc32_constant_tarval(store, offset4);
set_ppc32_offset_mode(store, ppc32_ao_None);
- mem = new_rd_Proj(env->dbg, env->irg, env->block, store, mode_M, pn_Store_M);
+ mem = new_rd_Proj(env->dbg, store, mode_M, pn_Store_M);
offset = 8;
}
ir_node *ornode, *mtctrnode;
ir_node* in[3];
assert(size/4-1<=0xffff);
- if(size/4-1<0x8000)
+ if (size/4-1<0x8000)
{
- ornode = new_rd_ppc32_Addi_zero(env->dbg, env->irg, env->block, mode_Is);
+ ornode = new_bd_ppc32_Addi_zero(env->dbg, env->block, mode_Is);
set_ppc32_offset_mode(ornode, ppc32_ao_None);
}
else
{
- ir_node *zeroreg = new_rd_ppc32_Addi_zero(env->dbg, env->irg, env->block, mode_Is);
+ ir_node *zeroreg = new_bd_ppc32_Addi_zero(env->dbg, env->block, mode_Is);
set_ppc32_offset_mode(zeroreg, ppc32_ao_None);
set_ppc32_constant_tarval(zeroreg, new_tarval_from_long(0, mode_Is));
- ornode = new_rd_ppc32_Ori(env->dbg, env->irg, env->block, zeroreg, mode_Is);
+ ornode = new_bd_ppc32_Ori(env->dbg, env->block, zeroreg, mode_Is);
set_ppc32_offset_mode(ornode, ppc32_ao_Lo16);
}
set_ppc32_constant_tarval(ornode, new_tarval_from_long(size/4-1, mode_Is));
- mtctrnode = new_rd_ppc32_Mtctr(env->dbg, env->irg, env->block, ornode, mode_Is);
- store = new_rd_ppc32_LoopCopy(env->dbg, env->irg, env->block, src, dest, mtctrnode, mem, mode_T);
+ mtctrnode = new_bd_ppc32_Mtctr(env->dbg, env->block, ornode, mode_Is);
+ store = new_bd_ppc32_LoopCopy(env->dbg, env->block, src, dest, mtctrnode, mem, mode_T);
- in[0] = new_rd_Proj(env->dbg, env->irg, env->block, store, mode_Is, 1); // src
- in[1] = new_rd_Proj(env->dbg, env->irg, env->block, store, mode_Is, 2); // dest
- in[2] = new_rd_Proj(env->dbg, env->irg, env->block, store, mode_Is, 4); // temp
- be_new_Keep(&ppc32_reg_classes[CLASS_ppc32_gp], env->irg, env->block, 3, in);
- in[0] = new_rd_Proj(env->dbg, env->irg, env->block, store, mode_Is, 3); // ctr
- be_new_Keep(&ppc32_reg_classes[CLASS_ppc32_count], env->irg, env->block, 1, in);
+ in[0] = new_rd_Proj(env->dbg, store, mode_Is, 1); // src
+ in[1] = new_rd_Proj(env->dbg, store, mode_Is, 2); // dest
+ in[2] = new_rd_Proj(env->dbg, store, mode_Is, 4); // temp
+ be_new_Keep(env->block, 3, in);
+ in[0] = new_rd_Proj(env->dbg, store, mode_Is, 3); // ctr
+ be_new_Keep(env->block, 1, in);
- mem = new_rd_Proj(env->dbg, env->irg, env->block, store, mode_M, 0);
+ mem = new_rd_Proj(env->dbg, store, mode_M, 0);
offset = 4;
}
}
- if(size & 2)
+ if (size & 2)
{
ir_node *res;
tarval* offset_tarval = new_tarval_from_long(offset, mode_Is);
- load = new_rd_ppc32_Lhz(env->dbg, env->irg, env->block, src, mem);
+ load = new_bd_ppc32_Lhz(env->dbg, env->block, src, mem);
set_ppc32_constant_tarval(load, offset_tarval);
set_ppc32_offset_mode(load, ppc32_ao_None);
- mem = new_rd_Proj(env->dbg, env->irg, env->block, load, mode_M, pn_Load_M);
- res = new_rd_Proj(env->dbg, env->irg, env->block, load, mode_Is, pn_Load_res);
+ mem = new_rd_Proj(env->dbg, load, mode_M, pn_Load_M);
+ res = new_rd_Proj(env->dbg, load, mode_Is, pn_Load_res);
- store = new_rd_ppc32_Sth(env->dbg, env->irg, env->block, dest, res, mem);
+ store = new_bd_ppc32_Sth(env->dbg, env->block, dest, res, mem);
set_ppc32_constant_tarval(store, offset_tarval);
set_ppc32_offset_mode(store, ppc32_ao_None);
- mem = new_rd_Proj(env->dbg, env->irg, env->block, store, mode_M, pn_Store_M);
+ mem = new_rd_Proj(env->dbg, store, mode_M, pn_Store_M);
offset += 2;
}
- if(size & 1)
+ if (size & 1)
{
ir_node *res;
tarval* offset_tarval = new_tarval_from_long(offset, mode_Is);
- load = new_rd_ppc32_Lbz(env->dbg, env->irg, env->block, src, mem);
+ load = new_bd_ppc32_Lbz(env->dbg, env->block, src, mem);
set_ppc32_constant_tarval(load, offset_tarval);
set_ppc32_offset_mode(load, ppc32_ao_None);
- mem = new_rd_Proj(env->dbg, env->irg, env->block, load, mode_M, pn_Load_M);
- res = new_rd_Proj(env->dbg, env->irg, env->block, load, mode_Is, pn_Load_res);
+ mem = new_rd_Proj(env->dbg, load, mode_M, pn_Load_M);
+ res = new_rd_Proj(env->dbg, load, mode_Is, pn_Load_res);
- store = new_rd_ppc32_Stb(env->dbg, env->irg, env->block, dest, res, mem);
+ store = new_bd_ppc32_Stb(env->dbg, env->block, dest, res, mem);
set_ppc32_constant_tarval(store, offset_tarval);
set_ppc32_offset_mode(store, ppc32_ao_None);
- // mem = new_rd_Proj(env->dbg, env->irg, env->block, store, mode_M, pn_Store_M);
+ // mem = new_rd_Proj(env->dbg, env->irg, store, mode_M, pn_Store_M);
}
return store;
*
* @param env The transformation environment
*/
-static ir_node *gen_be_FrameAddr(ppc32_transform_env_t *env) {
+static ir_node *gen_be_FrameAddr(ppc32_transform_env_t *env)
+{
ir_node *op = get_irn_n(env->irn, 0);
- ir_node *add = new_rd_ppc32_Addi(env->dbg, env->irg, env->block, op, mode_P);
+ ir_node *add = new_bd_ppc32_Addi(env->dbg, env->block, op, mode_P);
set_ppc32_frame_entity(add, be_get_frame_entity(env->irn));
return add;
}
-/**
- * Transforms a StackParam into a ppc Load
- *
- * @param env The transformation environment
- */
-static ir_node *gen_be_StackParam(ppc32_transform_env_t *env) {
- ir_node *load = new_rd_ppc32_Lwz(env->dbg, env->irg, env->block, get_irn_n(env->irn, 0), new_NoMem());
- ir_node *proj = new_rd_Proj(env->dbg, env->irg, env->block, load, env->mode, pn_Load_res);
- set_ppc32_frame_entity(load, be_get_frame_entity(env->irn));
- return proj;
-}
-
/*********************************************************
* _ _ _
/**
* the BAD transformer.
*/
-static ir_node *bad_transform(ppc32_transform_env_t *env) {
- ir_fprintf(stderr, "Not implemented: %+F\n", env->irn);
- assert(0);
- return NULL;
+static ir_node *bad_transform(ppc32_transform_env_t *env)
+{
+ panic("Transformation not implemented: %+F\n", env->irn);
}
/**
* Enters all transform functions into the generic pointer
*/
-void ppc32_register_transformers(void) {
- ir_op *op_Max, *op_Min, *op_Mulh;
-
+void ppc32_register_transformers(void)
+{
/* first clear the generic function pointer for all ops */
clear_irp_opcodes_generic_func();
FIRM_OP(Add);
FIRM_OP(Mul);
+ FIRM_OP(Mulh);
FIRM_OP(And);
FIRM_OP(Or);
FIRM_OP(Eor);
FIRM_OP(Shl);
FIRM_OP(Shr);
FIRM_OP(Shrs);
- FIRM_OP(Rot);
+ FIRM_OP(Rotl);
FIRM_OP(Quot);
FIRM_OP(Div);
FIRM_OP(DivMod);
BAD(Free);
BAD(Tuple);
BAD(Id);
- BAD(Bad);
+ //BAD(Bad);
BAD(Confirm);
BAD(Filter);
BAD(CallBegin);
BAD(EndReg);
BAD(EndExcept);
+ /* handle builtins */
+ BAD(Builtin);
+
+ /* handle generic backend nodes */
FIRM_OP(be_FrameAddr);
- FIRM_OP(be_StackParam);
- op_Mulh = get_op_Mulh();
- if (op_Mulh)
- FIRM_OP(Mulh);
- op_Max = get_op_Max();
- if (op_Max)
- BAD(Max);
- op_Min = get_op_Min();
- if (op_Min)
- BAD(Min);
}
typedef ir_node *(transform_func)(ppc32_transform_env_t *env);
* @param node the firm node
* @param env the debug module
*/
-void ppc32_transform_node(ir_node *node, void *env) {
+void ppc32_transform_node(ir_node *node, void *env)
+{
ppc32_code_gen_t *cg = (ppc32_code_gen_t *)env;
ir_op *op = get_irn_op(node);
ir_node *asm_node = NULL;
+ (void) cg;
if (op == op_Block)
return;
};
/** Compares two (entity, tarval) combinations */
-static int cmp_tv_ent(const void *a, const void *b, size_t len) {
+static int cmp_tv_ent(const void *a, const void *b, size_t len)
+{
const struct tv_ent *e1 = a;
const struct tv_ent *e2 = b;
(void) len;
}
/** Generates a SymConst node for a known FP const */
-static ir_node *gen_fp_known_symconst(ppc32_transform_env_t *env, tarval *known_const) {
+static ir_node *gen_fp_known_symconst(ppc32_transform_env_t *env,
+ tarval *known_const)
+{
static set *const_set = NULL;
static ir_type *tp = NULL;
struct tv_ent key;
ir_graph *rem;
ir_entity *ent = NULL;
- if(!const_set)
+ if (!const_set)
const_set = new_set(cmp_tv_ent, 10);
- if(!tp)
- tp = new_type_primitive(new_id_from_str("const_double_t"), env->mode);
+ if (!tp)
+ tp = new_type_primitive(env->mode);
key.tv = known_const;
key.ent = NULL;
entry = set_insert(const_set, &key, sizeof(key), HASH_PTR(key.tv));
- if(!entry->ent) {
+ if (!entry->ent) {
char buf[80];
sprintf(buf, "const_%ld", get_irn_node_nr(env->irn));
ent = new_entity(get_glob_type(), new_id_from_str(buf), tp);
set_entity_ld_ident(ent, get_entity_ident(ent));
- set_entity_visibility(ent, visibility_local);
- set_entity_variability(ent, variability_constant);
- set_entity_allocation(ent, allocation_static);
+ set_entity_visibility(ent, ir_visibility_local);
+ add_entity_linkage(ent, IR_LINKAGE_CONSTANT);
/* we create a new entity here: It's initialization must resist on the
const code irg */
rem = current_ir_graph;
current_ir_graph = get_const_code_irg();
- cnst = new_Const(env->mode, key.tv);
+ cnst = new_Const(key.tv);
current_ir_graph = rem;
set_atomic_ent_value(ent, cnst);
entry->ent = ent;
} // TODO: Wird nicht richtig in global type gesteckt, ppc32_gen_decls.c findet ihn nicht
- symcnst = new_rd_ppc32_SymConst(env->dbg, env->irg, env->block, env->mode);
+ symcnst = new_bd_ppc32_SymConst(env->dbg, env->block, env->mode);
set_ppc32_frame_entity(symcnst, ent);
return symcnst;
}
* @param mode node mode
* @return the created ppc Load immediate node
*/
-static ir_node *gen_ppc32_Const(ppc32_transform_env_t *env) {
+static ir_node *gen_ppc32_Const(ppc32_transform_env_t *env)
+{
tarval *tv_const = get_ppc32_constant_tarval(env->irn);
ir_node *node;
- switch(get_nice_modecode(env->mode)){
+ switch (get_nice_modecode(env->mode)){
case irm_Hu:
{
unsigned char val1 = get_tarval_sub_bits(tv_const, 1);
- if(val1&0x80)
+ if (val1&0x80)
{
- ir_node *zeroreg = new_rd_ppc32_Addi_zero(env->dbg, env->irg, env->block, mode_Is);
+ ir_node *zeroreg = new_bd_ppc32_Addi_zero(env->dbg, env->block, mode_Is);
set_ppc32_constant_tarval(zeroreg, new_tarval_from_long(0, mode_Is));
set_ppc32_offset_mode(zeroreg, ppc32_ao_None);
- node = new_rd_ppc32_Ori(env->dbg, env->irg, env->block, zeroreg, mode_Is);
+ node = new_bd_ppc32_Ori(env->dbg, env->block, zeroreg, mode_Is);
set_ppc32_offset_mode(node, ppc32_ao_Lo16);
break;
}
case irm_Bu:
case irm_Bs:
case irm_Hs:
- node = new_rd_ppc32_Addi_zero(env->dbg, env->irg, env->block, env->mode);
+ node = new_bd_ppc32_Addi_zero(env->dbg, env->block, env->mode);
set_ppc32_offset_mode(node, ppc32_ao_None);
break;
case irm_Is:
{
unsigned char val2 = get_tarval_sub_bits(tv_const,2);
unsigned char val3 = get_tarval_sub_bits(tv_const,3);
- if(!val2 && !val3)
+ if (!val2 && !val3)
{
unsigned char val1 = get_tarval_sub_bits(tv_const, 1);
- if(val1&0x80)
+ if (val1&0x80)
{
- ir_node *zeroreg = new_rd_ppc32_Addi_zero(env->dbg, env->irg, env->block, mode_Is);
+ ir_node *zeroreg = new_bd_ppc32_Addi_zero(env->dbg, env->block, mode_Is);
set_ppc32_constant_tarval(zeroreg, new_tarval_from_long(0, mode_Is));
set_ppc32_offset_mode(zeroreg, ppc32_ao_None);
- node = new_rd_ppc32_Ori(env->dbg, env->irg, env->block, zeroreg, mode_Is);
+ node = new_bd_ppc32_Ori(env->dbg, env->block, zeroreg, mode_Is);
set_ppc32_offset_mode(node, ppc32_ao_Lo16);
}
else
{
- node = new_rd_ppc32_Addi_zero(env->dbg, env->irg, env->block, env->mode);
+ node = new_bd_ppc32_Addi_zero(env->dbg, env->block, env->mode);
set_ppc32_offset_mode(node, ppc32_ao_None);
}
}
{
unsigned char val0 = get_tarval_sub_bits(tv_const,0);
unsigned char val1 = get_tarval_sub_bits(tv_const,1);
- node = new_rd_ppc32_Addis_zero(env->dbg, env->irg, env->block, env->mode, ppc32_ao_Hi16, tv_const, NULL);
- if(val0 || val1)
+ node = new_bd_ppc32_Addis_zero(env->dbg, env->block, env->mode, ppc32_ao_Hi16, tv_const, NULL);
+ if (val0 || val1)
{
set_ppc32_constant_tarval(node, tv_const);
- node = new_rd_ppc32_Ori(env->dbg, env->irg, env->block, node, env->mode);
+ node = new_bd_ppc32_Ori(env->dbg, env->block, node, env->mode);
set_ppc32_offset_mode(node, ppc32_ao_Lo16);
}
}
}
default:
- fprintf(stderr, "Mode for Const not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return 0;
+ panic("Mode for Const not supported: %F", env->mode);
}
set_ppc32_constant_tarval(node, tv_const);
return node;
* @param mode node mode
* @return the created ppc float Load node
*/
-static ir_node *gen_ppc32_fConst(ppc32_transform_env_t *env) {
+static ir_node *gen_ppc32_fConst(ppc32_transform_env_t *env)
+{
tarval *tv_const = get_ppc32_constant_tarval(env->irn);
- switch(get_nice_modecode(env->mode)){
+ switch (get_nice_modecode(env->mode)){
case irm_D:
case irm_F:
{
env->irn = gen_fp_known_symconst(env, tv_const);
env->mode = mode_P;
ent = get_ppc32_frame_entity(env->irn);
- if(is_direct_entity(ent))
+#if 0
+ if (is_direct_entity(ent))
{
ident *id_symconst = get_entity_ident(ent);
- ir_node *node_addis = new_rd_ppc32_Addis_zero(env->dbg, env->irg, env->block, env->mode, ppc32_ao_Ha16, NULL, id_symconst);
+ ir_node *node_addis = new_bd_ppc32_Addis_zero(env->dbg, env->block, env->mode, ppc32_ao_Ha16, NULL, id_symconst);
- if(mode==mode_D)
- load = new_rd_ppc32_Lfd(env->dbg, env->irg, env->block, node_addis, new_NoMem());
+ if (mode==mode_D)
+ load = new_bd_ppc32_Lfd(env->dbg, env->block, node_addis, new_NoMem());
else // mode_F
- load = new_rd_ppc32_Lfs(env->dbg, env->irg, env->block, node_addis, new_NoMem());
+ load = new_bd_ppc32_Lfs(env->dbg, env->block, node_addis, new_NoMem());
set_ppc32_symconst_ident(load, id_symconst);
set_ppc32_offset_mode(load, ppc32_ao_Lo16);
}
else
{
+#endif
addr = gen_ppc32_SymConst (env);
- if(mode==mode_D)
- load = new_rd_ppc32_Lfd(env->dbg, env->irg, env->block, addr, new_NoMem());
+ if (mode==mode_D)
+ load = new_bd_ppc32_Lfd(env->dbg, env->block, addr, new_NoMem());
else // mode_F
- load = new_rd_ppc32_Lfs(env->dbg, env->irg, env->block, addr, new_NoMem());
+ load = new_bd_ppc32_Lfs(env->dbg, env->block, addr, new_NoMem());
+#if 0
}
- return new_rd_Proj(env->dbg, env->irg, env->block, load, mode, pn_Load_res);
+#endif
+ return new_rd_Proj(env->dbg, load, mode, pn_Load_res);
}
default:
- fprintf(stderr, "Mode for fConst not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return 0;
+ panic("Mode for fConst not supported: %F", env->mode);
}
- assert(0 && "Dead end!");
-}
-
-
-/**
- * Returns true, if the entity can be accessed directly,
- * or false, if the address must be loaded first
- */
-int is_direct_entity(ir_entity *ent) {
- return get_entity_visibility(ent) != visibility_external_allocated;
-/* visibility vis = get_entity_visibility(ent);
- if(is_Method_type(get_entity_type(ent)))
- {
- return (vis!=visibility_external_allocated);
- }
- else
- {
- return (vis==visibility_local);
- }*/
}
/**
* @param mode node mode
* @return the created ppc Load immediate node
*/
-static ir_node *gen_ppc32_SymConst(ppc32_transform_env_t *env) {
+static ir_node *gen_ppc32_SymConst(ppc32_transform_env_t *env)
+{
ir_entity *ent = get_ppc32_frame_entity(env->irn);
ident *id_symconst = get_entity_ident(ent);
ir_node *node;
- switch(get_nice_modecode(env->mode)){
+ switch (get_nice_modecode(env->mode)){
case irm_P:
{
+ /*
if (is_direct_entity(ent))
{
- ir_node *node_addis = new_rd_ppc32_Addis_zero(env->dbg, env->irg, env->block, env->mode, ppc32_ao_Hi16, NULL, id_symconst);
- node = new_rd_ppc32_Ori(env->dbg, env->irg, env->block, node_addis, env->mode);
+ */
+ ir_node *node_addis = new_bd_ppc32_Addis_zero(env->dbg, env->block, env->mode, ppc32_ao_Hi16, NULL, id_symconst);
+ node = new_bd_ppc32_Ori(env->dbg, env->block, node_addis, env->mode);
set_ppc32_symconst_ident(node, id_symconst);
set_ppc32_offset_mode(node, ppc32_ao_Lo16);
+#if 0
}
else
{
- ir_node *node_addis = new_rd_ppc32_Addis_zero(env->dbg, env->irg, env->block, env->mode, ppc32_ao_Ha16, NULL, id_symconst);
- node = new_rd_ppc32_Lwz(env->dbg, env->irg, env->block, node_addis, new_NoMem());
+ ir_node *node_addis = new_bd_ppc32_Addis_zero(env->dbg, env->block, env->mode, ppc32_ao_Ha16, NULL, id_symconst);
+ node = new_bd_ppc32_Lwz(env->dbg, env->block, node_addis, new_NoMem());
set_ppc32_symconst_ident(node, id_symconst);
set_ppc32_offset_mode(node, ppc32_ao_Lo16);
- node = new_rd_Proj(env->dbg, env->irg, env->block, node, env->mode, pn_Load_res);
+ node = new_rd_Proj(env->dbg, node, env->mode, pn_Load_res);
}
+#endif
break;
}
default:
- fprintf(stderr, "Mode for SymConst not supported: %s\n", get_mode_name(env->mode));
- assert(0);
- return 0;
+ panic("Mode for SymConst not supported: %F", env->mode);
}
return node;
}
* @param node the firm node
* @param env the debug module
*/
-void ppc32_transform_const(ir_node *node, void *env) {
+void ppc32_transform_const(ir_node *node, void *env)
+{
ppc32_code_gen_t *cgenv = (ppc32_code_gen_t *)env;
ir_node *asm_node = NULL;
ppc32_transform_env_t tenv;
+ (void) cgenv;
if (is_Block(node))
return;