added DBG_OPT_LEA( to report Lea craetion to the firm statistic module
[libfirm] / ir / be / ia32 / ia32_new_nodes.c
index 506784c..2ddc467 100644 (file)
@@ -9,9 +9,11 @@
 #include "config.h"
 #endif
 
-#ifdef _WIN32
+#ifdef HAVE_MALLOC_H
 #include <malloc.h>
-#else
+#endif
+
+#ifdef HAVE_ALLOCA_H
 #include <alloca.h>
 #endif
 
 #include "ia32_new_nodes.h"
 #include "gen_ia32_regalloc_if.h"
 
-#ifdef obstack_chunk_alloc
-# undef obstack_chunk_alloc
-# define obstack_chunk_alloc xmalloc
-#else
-# define obstack_chunk_alloc xmalloc
-# define obstack_chunk_free free
-#endif
-
-extern int obstack_printf(struct obstack *obst, char *fmt, ...);
-
 /**
  * Returns the ident of a SymConst.
  * @param symc  The SymConst
@@ -185,7 +177,7 @@ static int dump_node_ia32(ir_node *n, FILE *F, dump_reason_t reason) {
 
                case dump_node_nodeattr_txt:
                        if (is_ia32_ImmConst(n) || is_ia32_ImmSymConst(n)) {
-                               char *pref = is_ia32_ImmSymConst(n) ? "SymC" : "";
+                               char       *pref = is_ia32_ImmSymConst(n) ? "SymC" : "";
                                const char *cnst = get_ia32_cnst(n);
 
                                fprintf(F, "[%s%s]", pref, cnst ? cnst : "NONE");
@@ -445,8 +437,8 @@ ia32_am_type_t get_ia32_am_support(const ir_node *node) {
  * Sets the supported addrmode of an ia32 node
  */
 void set_ia32_am_support(ir_node *node, ia32_am_type_t am_tp) {
-       ia32_attr_t *attr = get_ia32_attr(node);
-       attr->data.am_support  = am_tp;
+       ia32_attr_t *attr     = get_ia32_attr(node);
+       attr->data.am_support = am_tp;
 }
 
 /**
@@ -461,8 +453,8 @@ ia32_am_flavour_t get_ia32_am_flavour(const ir_node *node) {
  * Sets the addrmode flavour of an ia32 node
  */
 void set_ia32_am_flavour(ir_node *node, ia32_am_flavour_t am_flavour) {
-       ia32_attr_t *attr = get_ia32_attr(node);
-       attr->data.am_flavour  = am_flavour;
+       ia32_attr_t *attr     = get_ia32_attr(node);
+       attr->data.am_flavour = am_flavour;
 }
 
 /**
@@ -537,6 +529,46 @@ void sub_ia32_am_offs(ir_node *node, const char *offset) {
        extend_ia32_am_offs(node, (char *)offset, '-');
 }
 
+/**
+ * Returns the symconst ident associated to addrmode.
+ */
+ident *get_ia32_am_sc(const ir_node *node) {
+       ia32_attr_t *attr = get_ia32_attr(node);
+       return attr->am_sc;
+}
+
+/**
+ * Sets the symconst ident associated to addrmode.
+ */
+void set_ia32_am_sc(ir_node *node, ident *sc) {
+       ia32_attr_t *attr = get_ia32_attr(node);
+       attr->am_sc       = sc;
+}
+
+/**
+ * Sets the sign bit for address mode symconst.
+ */
+void set_ia32_am_sc_sign(ir_node *node) {
+       ia32_attr_t *attr     = get_ia32_attr(node);
+       attr->data.am_sc_sign = 1;
+}
+
+/**
+ * Clears the sign bit for address mode symconst.
+ */
+void clear_ia32_am_sc_sign(ir_node *node) {
+       ia32_attr_t *attr     = get_ia32_attr(node);
+       attr->data.am_sc_sign = 0;
+}
+
+/**
+ * Returns the sign bit for address mode symconst.
+ */
+int is_ia32_am_sc_sign(const ir_node *node) {
+       ia32_attr_t *attr = get_ia32_attr(node);
+       return attr->data.am_sc_sign;
+}
+
 /**
  * Gets the addr mode const.
  */
@@ -669,6 +701,30 @@ int is_ia32_commutative(const ir_node *node) {
        return attr->data.is_commutative;
 }
 
+/**
+ * Sets node emit_cl.
+ */
+void set_ia32_emit_cl(ir_node *node) {
+       ia32_attr_t *attr  = get_ia32_attr(node);
+       attr->data.emit_cl = 1;
+}
+
+/**
+ * Clears node emit_cl.
+ */
+void clear_ia32_emit_cl(ir_node *node) {
+       ia32_attr_t *attr  = get_ia32_attr(node);
+       attr->data.emit_cl = 0;
+}
+
+/**
+ * Checks if node is commutative.
+ */
+int is_ia32_emit_cl(const ir_node *node) {
+       ia32_attr_t *attr = get_ia32_attr(node);
+       return attr->data.emit_cl;
+}
+
 /**
  * Gets the mode of the stored/loaded value (only set for Store/Load)
  */
@@ -701,6 +757,38 @@ void set_ia32_res_mode(ir_node *node, ir_mode *mode) {
        attr->res_mode    = mode;
 }
 
+/**
+ * Gets the source mode of conversion.
+ */
+ir_mode *get_ia32_src_mode(const ir_node *node) {
+       ia32_attr_t *attr = get_ia32_attr(node);
+       return attr->src_mode;
+}
+
+/**
+ * Sets the source mode of conversion.
+ */
+void set_ia32_src_mode(ir_node *node, ir_mode *mode) {
+       ia32_attr_t *attr = get_ia32_attr(node);
+       attr->src_mode    = mode;
+}
+
+/**
+ * Gets the target mode of conversion.
+ */
+ir_mode *get_ia32_tgt_mode(const ir_node *node) {
+       ia32_attr_t *attr = get_ia32_attr(node);
+       return attr->tgt_mode;
+}
+
+/**
+ * Sets the target mode of conversion.
+ */
+void set_ia32_tgt_mode(ir_node *node, ir_mode *mode) {
+       ia32_attr_t *attr = get_ia32_attr(node);
+       attr->tgt_mode    = mode;
+}
+
 /**
  * Gets the frame entity assigned to this node;
  */
@@ -1034,14 +1122,14 @@ int is_ia32_AddrModeD(const ir_node *node) {
  * Checks if node is a Load or fLoad/vfLoad.
  */
 int is_ia32_Ld(const ir_node *node) {
-       return is_ia32_Load(node) || is_ia32_fLoad(node) || is_ia32_vfld(node);
+       return is_ia32_Load(node) || is_ia32_fLoad(node) || is_ia32_vfld(node) || is_ia32_fld(node);
 }
 
 /**
  * Checks if node is a Store or fStore/vfStore.
  */
 int is_ia32_St(const ir_node *node) {
-       return is_ia32_Store(node) || is_ia32_fStore(node) || is_ia32_vfst(node);
+       return is_ia32_Store(node) || is_ia32_fStore(node) || is_ia32_vfst(node) || is_ia32_fst(node) || is_ia32_fstp(node);
 }
 
 /**
@@ -1097,7 +1185,7 @@ void alloc_ia32_reg_slots(ir_node *node, int num) {
        ia32_attr_t *attr = get_ia32_attr(node);
 
        if (num) {
-               attr->slots = NEW_ARR_D(arch_register_t*, get_irg_obstack(get_irn_irg(node)), num);
+               attr->slots = (const arch_register_t **)NEW_ARR_D(arch_register_t*, get_irg_obstack(get_irn_irg(node)), num);
                memset(attr->slots, 0, sizeof(attr->slots[0]) * num);
        }
        else {
@@ -1131,11 +1219,17 @@ void init_ia32_attributes(ir_node *node, arch_irn_flags_t flags, const ia32_regi
 
 /* default compare operation to compare immediate ops */
 int ia32_compare_immop_attr(ia32_attr_t *a, ia32_attr_t *b) {
+       int equ = 0;
+
        if (a->data.tp == b->data.tp) {
-               return a->cnst == b->cnst;
+               equ = (a->cnst == b->cnst);
+               equ = equ ? (a->data.use_frame == b->data.use_frame) : 0;
+
+               if (equ && a->data.use_frame && b->data.use_frame)
+                       equ = (a->frame_ent == b->frame_ent);
        }
 
-       return 1;
+       return !equ;
 }
 
 /* copies the ia32 attributes */
@@ -1148,7 +1242,7 @@ static void ia32_copy_attr(const ir_node *old_node, ir_node *new_node) {
        memcpy(attr_new, attr_old, sizeof(*attr_new));
 
        /* copy the register slots */
-       attr_new->slots = NEW_ARR_D(arch_register_t*, get_irg_obstack(get_irn_irg(new_node)), n_res);
+       attr_new->slots = (const arch_register_t **)NEW_ARR_D(arch_register_t*, get_irg_obstack(get_irn_irg(new_node)), n_res);
        memcpy((void *)attr_new->slots, (void *)attr_old->slots, sizeof(attr_new->slots[0]) * n_res);
 }
 
@@ -1164,9 +1258,5 @@ void ia32_register_copy_attr_func(void) {
        }
 }
 
-static void ia32_register_additional_opcodes(int n) {
-       /* we don't need any additional opcodes */
-}
-
 /* Include the generated constructor functions */
 #include "gen_ia32_new_nodes.c.inl"