X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Firopt.c;h=8460b8ef136fb84b3034c0ed1e9a7322560e7f70;hb=31ef53136fdb86d4a98919c2148c95cadea4ea81;hp=2f3346c856d8dddb68f95ab4ead4c85ba9bc62b8;hpb=cc0a92acd7d9630f1817fca63037caee876300da;p=libfirm

diff --git a/ir/ir/iropt.c b/ir/ir/iropt.c
index 2f3346c85..8460b8ef1 100644
--- a/ir/ir/iropt.c
+++ b/ir/ir/iropt.c
@@ -48,7 +48,7 @@
 #include "opt_confirms.h"
 #include "opt_polymorphy.h"
 #include "irtools.h"
-#include "xmalloc.h"
+#include "array_t.h"
 
 /* Make types visible to allow most efficient access */
 #include "entity_t.h"
@@ -1253,14 +1253,13 @@ restart:
 					n = b; /* Convb(Conv*(xxxb(...))) == xxxb(...) */
 					DBG_OPT_ALGSIM1(oldn, a, b, n, FS_OPT_CONV);
 				} else if (get_mode_arithmetic(n_mode) == get_mode_arithmetic(a_mode)) {
-					if (smaller_mode(b_mode, a_mode)) {
+					if (values_in_mode(b_mode, a_mode)) {
 						n = b;        /* ConvS(ConvL(xxxS(...))) == xxxS(...) */
 						DBG_OPT_ALGSIM1(oldn, a, b, n, FS_OPT_CONV);
 					}
 				}
 			}
-			if (get_mode_arithmetic(n_mode) == irma_twos_complement &&
-			    get_mode_arithmetic(a_mode) == irma_ieee754) {
+			if (mode_is_int(n_mode) && get_mode_arithmetic(a_mode) == irma_ieee754) {
 				/* ConvI(ConvF(I)) -> I, iff float mantissa >= int mode */
 				unsigned int_mantissa   = get_mode_size_bits(n_mode) - (mode_is_signed(n_mode) ? 1 : 0);
 				unsigned float_mantissa = tarval_ieee754_get_mantissa_size(a_mode);
@@ -1863,10 +1862,11 @@ static int is_const_Phi(ir_node *n) {
 
 	if (! is_Phi(n) || get_irn_arity(n) == 0)
 		return 0;
-	for (i = get_irn_arity(n) - 1; i >= 0; --i)
+	for (i = get_irn_arity(n) - 1; i >= 0; --i) {
 		if (! is_Const(get_irn_n(n, i)))
 			return 0;
-		return 1;
+	}
+	return 1;
 }  /* is_const_Phi */
 
 typedef tarval *(*tarval_sub_type)(tarval *a, tarval *b, ir_mode *mode);
@@ -4341,7 +4341,7 @@ static ir_node *transform_node_Proj_Cmp(ir_node *proj) {
 				else if (proj_nr == pn_Cmp_Le || proj_nr == pn_Cmp_Lt) {
 					if (tv != tarval_bad) {
 						/* c >= 0 : Abs(a) <= c  ==>  (unsigned)(a + c) <= 2*c */
-						if (get_irn_op(left) == op_Abs) { // TODO something is missing here
+						if (is_Abs(left)) { // TODO something is missing here
 						}
 					}
 				}
@@ -5278,10 +5278,15 @@ static ir_node *transform_node_Rotl(ir_node *n) {
  */
 static ir_node *transform_node_Conv(ir_node *n) {
 	ir_node *c, *oldn = n;
-	ir_node *a = get_Conv_op(n);
+	ir_mode *mode = get_irn_mode(n);
+	ir_node *a    = get_Conv_op(n);
 
-	if (is_const_Phi(a)) {
-		c = apply_conv_on_phi(a, get_irn_mode(n));
+	if (mode != mode_b && is_const_Phi(a)) {
+		/* Do NOT optimize mode_b Conv's, this leads to remaining
+		 * Phib nodes later, because the conv_b_lower operation
+		 * is instantly reverted, when it tries to insert a Convb.
+		 */
+		c = apply_conv_on_phi(a, mode);
 		if (c) {
 			DBG_OPT_ALGSIM0(oldn, c, FS_OPT_CONST_PHI);
 			return c;
@@ -5289,10 +5294,34 @@ static ir_node *transform_node_Conv(ir_node *n) {
 	}
 
 	if (is_Unknown(a)) { /* Conv_A(Unknown_B) -> Unknown_A */
-		ir_mode *mode = get_irn_mode(n);
 		return new_r_Unknown(current_ir_graph, mode);
 	}
 
+	if (mode_is_reference(mode) &&
+	        get_mode_size_bits(mode) == get_mode_size_bits(get_irn_mode(a)) &&
+	        is_Add(a)) {
+		ir_node *l = get_Add_left(a);
+		ir_node *r = get_Add_right(a);
+		dbg_info *dbgi = get_irn_dbg_info(a);
+		ir_node *block = get_nodes_block(n);
+		if(is_Conv(l)) {
+			ir_node *lop = get_Conv_op(l);
+			if(get_irn_mode(lop) == mode) {
+				/* ConvP(AddI(ConvI(P), x)) -> AddP(P, x) */
+				n = new_rd_Add(dbgi, current_ir_graph, block, lop, r, mode);
+				return n;
+			}
+		}
+		if(is_Conv(r)) {
+			ir_node *rop = get_Conv_op(r);
+			if(get_irn_mode(rop) == mode) {
+				/* ConvP(AddI(x, ConvI(P))) -> AddP(x, P) */
+				n = new_rd_Add(dbgi, current_ir_graph, block, l, rop, mode);
+				return n;
+			}
+		}
+	}
+
 	return n;
 }  /* transform_node_Conv */
 
@@ -5315,10 +5344,11 @@ static ir_node *transform_node_End(ir_node *n) {
 			continue;
 		} else if (is_irn_pinned_in_irg(ka) && is_Block_dead(get_nodes_block(ka))) {
 			continue;
+		} else if (is_Bad(ka)) {
+			/* no need to keep Bad */
+			continue;
 		}
-		/* FIXME: beabi need to keep a Proj(M) */
-		if (is_Phi(ka) || is_irn_keep(ka) || is_Proj(ka))
-			in[j++] = ka;
+		in[j++] = ka;
 	}
 	if (j != n_keepalives)
 		set_End_keepalives(n, j, in);