besched: Change sched_foreach_reverse_from(sched_prev(x), y) to sched_foreach_reverse...

[libfirm] / ir / be / ia32 / ia32_intrinsics.c

diff --git a/ir/be/ia32/ia32_intrinsics.c b/ir/be/ia32/ia32_intrinsics.c
index 9eb8507..8df4aeb 100644 (file)
--- a/ir/be/ia32/ia32_intrinsics.c
+++ b/ir/be/ia32/ia32_intrinsics.c
@@ -1,20 +1,6 @@
 /*
- * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
- *
  * This file is part of libFirm.
- *
- * This file may be distributed and/or modified under the terms of the
- * GNU General Public License version 2 as published by the Free Software
- * Foundation and appearing in the file LICENSE.GPL included in the
- * packaging of this file.
- *
- * Licensees holding valid libFirm Professional Edition licenses may use
- * this file in accordance with the libFirm Commercial License.
- * Agreement provided with the Software.
- *
- * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
- * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
- * PURPOSE.
+ * Copyright (C) 2012 University of Karlsruhe.
  */
 
 /**
@@ -35,6 +21,7 @@
 #include "lower_dw.h"
 #include "array.h"
 #include "error.h"
+#include "util.h"
 
 #include "ia32_new_nodes.h"
 #include "bearch_ia32_t.h"
@@ -162,11 +149,13 @@ static void resolve_call(ir_node *call, ir_node *l_res, ir_node *h_res, ir_graph
                jmp = new_r_Jmp(block);
                set_opt_cse(old_cse);
 
-               turn_into_tuple(call, pn_Call_max+1);
-               set_Tuple_pred(call, pn_Call_M,         nomem);
-               set_Tuple_pred(call, pn_Call_X_regular, jmp);
-               set_Tuple_pred(call, pn_Call_X_except,  new_r_Bad(irg, mode_X));
-               set_Tuple_pred(call, pn_Call_T_result,  res);
+               ir_node *const in[] = {
+                       [pn_Call_M]         = nomem,
+                       [pn_Call_T_result]  = res,
+                       [pn_Call_X_regular] = jmp,
+                       [pn_Call_X_except]  = new_r_Bad(irg, mode_X),
+               };
+               turn_into_tuple(call, ARRAY_SIZE(in), in);
        }
 }
 
@@ -350,58 +339,6 @@ static int map_Minus(ir_node *call, void *ctx)
        return 1;
 }
 
-#if 0
-/**
- * Map a Abs (a_l, a_h)
- */
-static int map_Abs(ir_node *call, void *ctx)
-{
-       dbg_info *dbg        = get_irn_dbg_info(call);
-       ir_node  *block      = get_nodes_block(call);
-       ir_node  **params    = get_Call_param_arr(call);
-       ir_type  *method     = get_Call_type(call);
-       ir_node  *a_l        = params[BINOP_Left_Low];
-       ir_node  *a_h        = params[BINOP_Left_High];
-       ir_mode  *l_mode     = get_type_mode(get_method_res_type(method, 0));
-       ir_mode  *h_mode     = get_type_mode(get_method_res_type(method, 1));
-       ir_mode  *mode_flags = ia32_reg_classes[CLASS_ia32_flags].mode;
-       ir_node  *l_res, *h_res, *sign, *sub_l, *sub_h;
-       ir_node  *sign_l;
-       ir_node  *l_sub;
-       ir_node  *flags;
-       (void) ctx;
-
-       /*
-               Code inspired by gcc output :) (although gcc doubles the
-               operation for t1 as t2 and uses t1 for operations with low part
-               and t2 for operations with high part which is actually unnecessary
-               because t1 and t2 represent the same value)
-
-               t1    = SHRS a_h, 31
-               t2    = a_l ^ t1
-               t3    = a_h ^ t1
-               l_res = t2 - t1
-               h_res = t3 - t1 - carry
-
-       */
-
-       /* TODO: give a hint to the backend somehow to not create a cltd here... */
-       sign   = new_rd_Shrs(dbg, block, a_h, new_r_Const_long(irg, l_mode, 31), h_mode);
-       sign_l = new_rd_Conv(dbg, block, sign, l_mode);
-       sub_l  = new_rd_Eor(dbg, block, a_l, sign_l, l_mode);
-       sub_h  = new_rd_Eor(dbg, block, a_h, sign,   h_mode);
-
-       l_sub  = new_bd_ia32_l_Sub(dbg, block, sub_l, sign_l, mode_T);
-       l_res  = new_r_Proj(l_sub, l_mode,     pn_ia32_res);
-       flags  = new_r_Proj(l_sub, mode_flags, pn_ia32_flags);
-       h_res  = new_bd_ia32_l_Sbb(dbg, block, sub_h, sign, flags, h_mode);
-
-       resolve_call(call, l_res, h_res, current_ir_graph, block);
-
-       return 1;
-}
-#endif
-
 #define ID(x) new_id_from_chars(x, sizeof(x)-1)
 
 /**
@@ -642,9 +579,7 @@ ir_entity *ia32_create_intrinsic_fkt(ir_type *method, const ir_op *op,
        }
 
        if (ent && ! *ent) {
-#define IDENT(s)  new_id_from_chars(s, sizeof(s)-1)
-
-               ident *id = id_mangle(IDENT("L"), get_op_ident(op));
+               ident *id = id_mangle(ID("L"), get_op_ident(op));
                *ent = new_entity(get_glob_type(), id, method);
                set_entity_visibility(*ent, ir_visibility_private);
        }