Several BugFixes and updates:
[libfirm] / ir / be / TEMPLATE / TEMPLATE_new_nodes.c
index 4d4a2d7..5c5b1d5 100644 (file)
@@ -1,18 +1,33 @@
+/*
+ * Copyright (C) 1995-2007 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.
+ */
+
 /**
- * This file implements the creation of the achitecture specific firm opcodes
- * and the coresponding node constructors for the TEMPLATE assembler irg.
- * $Id$
+ * @file
+ * @brief   This file implements the creation of the achitecture specific firm
+ *          opcodes and the coresponding node constructors for the TEMPLATE
+ *          assembler irg.
+ * @version $Id$
  */
 #ifdef HAVE_CONFIG_H
 #include "config.h"
 #endif
 
-#ifdef _WIN32
-#include <malloc.h>
-#else
-#include <alloca.h>
-#endif
-
 #include <stdlib.h>
 
 #include "irprog_t.h"
@@ -25,8 +40,9 @@
 #include "firm_common_t.h"
 #include "irvrfy_t.h"
 #include "irprintf.h"
+#include "xmalloc.h"
 
-#include "../bearch.h"
+#include "../bearch_t.h"
 
 #include "TEMPLATE_nodes_attr.h"
 #include "TEMPLATE_new_nodes.h"
  *                       |_|
  ***********************************************************************************/
 
-/**
- * Returns a string containing the names of all registers within the limited bitset
- */
-static char *get_limited_regs(const arch_register_req_t *req, char *buf, int max) {
-       bitset_t *bs   = bitset_alloca(req->cls->n_regs);
-       char     *p    = buf;
-       int       size = 0;
-       int       i, cnt;
-
-       req->limited(NULL, bs);
-
-       for (i = 0; i < req->cls->n_regs; i++) {
-               if (bitset_is_set(bs, i)) {
-                       cnt = snprintf(p, max - size, " %s", req->cls->regs[i].name);
-                       if (cnt < 0) {
-                               fprintf(stderr, "dumper problem, exiting\n");
-                               exit(1);
-                       }
-
-                       p    += cnt;
-                       size += cnt;
-
-                       if (size >= max)
-                               break;
-               }
-       }
-
-       return buf;
-}
-
 /**
  * Dumps the register requirements for either in or out.
  */
-static void dump_reg_req(FILE *F, ir_node *n, const TEMPLATE_register_req_t **reqs, int inout) {
+static void dump_reg_req(FILE *F, ir_node *n, const arch_register_req_t **reqs,
+                         int inout) {
        char *dir = inout ? "out" : "in";
        int   max = inout ? get_TEMPLATE_n_res(n) : get_irn_arity(n);
-       char *buf = alloca(1024);
+       char  buf[1024];
        int   i;
 
-       memset(buf, 0, 1024);
+       memset(buf, 0, sizeof(buf));
 
        if (reqs) {
                for (i = 0; i < max; i++) {
                        fprintf(F, "%sreq #%d =", dir, i);
 
-                       if (reqs[i]->req.type == arch_register_req_type_none) {
+                       if (reqs[i]->type == arch_register_req_type_none) {
                                fprintf(F, " n/a");
                        }
 
-                       if (reqs[i]->req.type & arch_register_req_type_normal) {
-                               fprintf(F, " %s", reqs[i]->req.cls->name);
+                       if (reqs[i]->type & arch_register_req_type_normal) {
+                               fprintf(F, " %s", reqs[i]->cls->name);
                        }
 
-                       if (reqs[i]->req.type & arch_register_req_type_limited) {
-                               fprintf(F, " %s", get_limited_regs(&reqs[i]->req, buf, 1024));
+                       if (reqs[i]->type & arch_register_req_type_limited) {
+                               fprintf(F, " %s",
+                                               arch_register_req_format(buf, sizeof(buf), reqs[i], n));
                        }
 
-                       if (reqs[i]->req.type & arch_register_req_type_should_be_same) {
-                               ir_fprintf(F, " same as %+F", get_irn_n(n, reqs[i]->same_pos));
+                       if (reqs[i]->type & arch_register_req_type_should_be_same) {
+                               ir_fprintf(F, " same as %+F", get_irn_n(n, reqs[i]->other_same));
                        }
 
-                       if (reqs[i]->req.type & arch_register_req_type_should_be_different) {
-                               ir_fprintf(F, " different from %+F", get_irn_n(n, reqs[i]->different_pos));
+                       if (reqs[i]->type & arch_register_req_type_should_be_different) {
+                               ir_fprintf(F, " different from %+F", get_irn_n(n, reqs[i]->other_different));
                        }
 
                        fprintf(F, "\n");
                }
 
                fprintf(F, "\n");
-       }
-       else {
+       } else {
                fprintf(F, "%sreq = N/A\n", dir);
        }
 }
@@ -133,7 +120,7 @@ static int TEMPLATE_dump_node(ir_node *n, FILE *F, dump_reason_t reason) {
        int          bad  = 0;
        int          i;
        TEMPLATE_attr_t *attr;
-       const TEMPLATE_register_req_t **reqs;
+       const arch_register_req_t **reqs;
        const arch_register_t     **slots;
 
        switch (reason) {
@@ -246,7 +233,7 @@ TEMPLATE_attr_t *get_TEMPLATE_attr(const ir_node *node) {
 /**
  * Returns the argument register requirements of a TEMPLATE node.
  */
-const TEMPLATE_register_req_t **get_TEMPLATE_in_req_all(const ir_node *node) {
+const arch_register_req_t **get_TEMPLATE_in_req_all(const ir_node *node) {
        TEMPLATE_attr_t *attr = get_TEMPLATE_attr(node);
        return attr->in_req;
 }
@@ -254,7 +241,7 @@ const TEMPLATE_register_req_t **get_TEMPLATE_in_req_all(const ir_node *node) {
 /**
  * Returns the result register requirements of an TEMPLATE node.
  */
-const TEMPLATE_register_req_t **get_TEMPLATE_out_req_all(const ir_node *node) {
+const arch_register_req_t **get_TEMPLATE_out_req_all(const ir_node *node) {
        TEMPLATE_attr_t *attr = get_TEMPLATE_attr(node);
        return attr->out_req;
 }
@@ -262,7 +249,7 @@ const TEMPLATE_register_req_t **get_TEMPLATE_out_req_all(const ir_node *node) {
 /**
  * Returns the argument register requirement at position pos of an TEMPLATE node.
  */
-const TEMPLATE_register_req_t *get_TEMPLATE_in_req(const ir_node *node, int pos) {
+const arch_register_req_t *get_TEMPLATE_in_req(const ir_node *node, int pos) {
        TEMPLATE_attr_t *attr = get_TEMPLATE_attr(node);
        return attr->in_req[pos];
 }
@@ -270,7 +257,7 @@ const TEMPLATE_register_req_t *get_TEMPLATE_in_req(const ir_node *node, int pos)
 /**
  * Returns the result register requirement at position pos of an TEMPLATE node.
  */
-const TEMPLATE_register_req_t *get_TEMPLATE_out_req(const ir_node *node, int pos) {
+const arch_register_req_t *get_TEMPLATE_out_req(const ir_node *node, int pos) {
        TEMPLATE_attr_t *attr = get_TEMPLATE_attr(node);
        return attr->out_req[pos];
 }
@@ -278,7 +265,7 @@ const TEMPLATE_register_req_t *get_TEMPLATE_out_req(const ir_node *node, int pos
 /**
  * Sets the OUT register requirements at position pos.
  */
-void set_TEMPLATE_req_out(ir_node *node, const TEMPLATE_register_req_t *req, int pos) {
+void set_TEMPLATE_req_out(ir_node *node, const arch_register_req_t *req, int pos) {
        TEMPLATE_attr_t *attr   = get_TEMPLATE_attr(node);
        attr->out_req[pos] = req;
 }
@@ -286,7 +273,7 @@ void set_TEMPLATE_req_out(ir_node *node, const TEMPLATE_register_req_t *req, int
 /**
  * Sets the IN register requirements at position pos.
  */
-void set_TEMPLATE_req_in(ir_node *node, const TEMPLATE_register_req_t *req, int pos) {
+void set_TEMPLATE_req_in(ir_node *node, const arch_register_req_t *req, int pos) {
        TEMPLATE_attr_t *attr  = get_TEMPLATE_attr(node);
        attr->in_req[pos] = req;
 }
@@ -370,7 +357,24 @@ int get_TEMPLATE_n_res(const ir_node *node) {
        return attr->n_res;
 }
 
+/**
+ * Initializes the nodes attributes.
+ */
+void init_TEMPLATE_attributes(ir_node *node, arch_irn_flags_t flags,
+                              const arch_register_req_t **in_reqs,
+                              const arch_register_req_t **out_reqs,
+                              const be_execution_unit_t ***execution_units,
+                              int n_res, unsigned latency)
+{
+       TEMPLATE_attr_t *attr = get_TEMPLATE_attr(node);
+
+       attr->flags = flags;
+       attr->out_req = out_reqs;
+       attr->in_req = in_reqs;
+       attr->n_res = n_res;
 
+       memset((void *)attr->slots, 0, n_res * sizeof(attr->slots[0]));
+}
 
 /***************************************************************************************
  *                  _                            _                   _