X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fbeutil.h;h=a97371379ae88478293e1e22a00aa2d3d04a3b7e;hb=eba5516120eb38bcae5464e628aa0d2cb8708866;hp=cc6e60b62efc8d731683648b27f4f50aff730cf2;hpb=4402ff71e8a876aa7ef50de56597b0eb7110583d;p=libfirm diff --git a/ir/be/beutil.h b/ir/be/beutil.h index cc6e60b62..a97371379 100644 --- a/ir/be/beutil.h +++ b/ir/be/beutil.h @@ -1,14 +1,58 @@ +/* + * 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. + */ -#ifndef _BEUTIL_H -#define _BEUTIL_H +/** + * @file + * @brief Contains some useful function for the backend. + * @author Sebastian Hack + * @version $Id$ + */ +#ifndef FIRM_BE_BEUTIL_H +#define FIRM_BE_BEUTIL_H #include "firm_config.h" #include +#include "firm_types.h" #include "pset.h" -#include "irnode.h" -#include "bearch.h" + +#include "bearch_t.h" + +#ifdef _MSC_VER +typedef __int64 long64; +typedef unsigned __int64 ulong64; + +#define LL_FMT "i64" +#define ULL_FMT "ui64" + +#else +typedef long long long64; +typedef unsigned long long ulong64; + +#define LL_FMT "ll" +#define ULL_FMT "llu" + +#endif /* _MSC_VER */ + +/* iterate over a list of ir_nodes linked by link field */ +#define foreach_linked_irns(head, iter) for ((iter) = (head); (iter); (iter) = get_irn_link((iter))) /** * Get an empty set. @@ -16,7 +60,6 @@ */ pset *be_empty_set(void); - /** Undefine this to disable debugging mode. */ #define BE_DEBUG 1 @@ -27,7 +70,12 @@ pset *be_empty_set(void); * @return The block of the node, or the node itself, if the node is a * block. */ -static INLINE const ir_node *get_block(const ir_node *irn) +static INLINE ir_node *get_block(ir_node *irn) +{ + return is_Block(irn) ? irn : get_nodes_block(irn); +} + +static INLINE const ir_node *get_block_const(const ir_node *irn) { return is_Block(irn) ? irn : get_nodes_block(irn); } @@ -50,13 +98,13 @@ static INLINE int is_data_node(const ir_node *irn) int i, n; /* If the node produces a data value, return immediately. */ - if(is_firm_be_mode(get_irn_mode(irn))) + if (is_firm_be_mode(get_irn_mode(irn))) return 1; /* else check, if it takes a data value, if that is so, return */ for(i = 0, n = get_irn_arity(irn); i < n; ++i) { ir_node *op = get_irn_n(irn, i); - if(is_firm_be_mode(get_irn_mode(op))) + if (is_firm_be_mode(get_irn_mode(op))) return 1; } @@ -64,14 +112,6 @@ static INLINE int is_data_node(const ir_node *irn) return 0; } -/** - * Make each constant local to its use. - * This duplicates all constants in order to simulate a realistic - * register pressure. - * @param irg The graph. - */ -void localize_consts(ir_graph *irg); - /** * Dump a vcg graph containing the controlflow graph, the schedule and * allocated registers. @@ -82,19 +122,6 @@ void dump_allocated_irg(arch_env_t *env, ir_graph *irg, char *suffix); void be_clear_links(ir_graph *irg); -static INLINE FILE *ffopen(const char *base, const char *ext, const char *mode) { - FILE *out; - char buf[1024]; - - snprintf(buf, sizeof(buf), "%s.%s", base, ext); - buf[sizeof(buf) - 1] = '\0'; - if (! (out = fopen(buf, mode))) { - fprintf(stderr, "Cannot open file %s in mode %s\n", buf, mode); - return NULL; - } - return out; -} - /** * Dump a graph with schedule edges. * @param irg The graph. @@ -125,10 +152,13 @@ void be_dump(ir_graph *irg, const char *suffix, void (*dumper)(ir_graph *, const unsigned get_num_reachable_nodes(ir_graph *irg); /** - * Search for an irn in @p accept. - * The search is started at @p start_point_exclusive and continues upwards the dom-tree - * @return The first node out of accept if found. Else NULL is returned. + * Gets the Proj with number pn from irn. + */ +ir_node *be_get_Proj_for_pn(const ir_node *irn, long pn); + +/** + * Opens a file named base.ext with the mode mode. */ -ir_node *dom_up_search(pset *accept, ir_node *start_point_exclusive); +FILE *be_ffopen(const char *base, const char *ext, const char *mode); -#endif /* _BEUTIL_H */ +#endif /* FIRM_BE_BEUTIL_H */