X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fdebug%2Fdbginfo.c;h=178ce44af177eb312281633b85afa19628b8a05a;hb=2f7da22ade10e502888999170ef42fcf9a619852;hp=1f1ebef0f7e9f29752124acef40730cbd11783ff;hpb=cda93142e840288eb2b9504cf8b15bac806acf4e;p=libfirm

diff --git a/ir/debug/dbginfo.c b/ir/debug/dbginfo.c
index 1f1ebef0f..178ce44af 100644
--- a/ir/debug/dbginfo.c
+++ b/ir/debug/dbginfo.c
@@ -1,40 +1,122 @@
 /*
-**  Copyright (C) 2001 by Universitaet Karlsruhe
-**  All rights reserved.
-**
-**  Authors: Goetz Lindenmaier
-**
-**  dbginfo: This is a empty implementation of the Firm interface to
-**  debugging support.  It only guarantees that the Firm library compiles
-**  and runs without any real debugging support.
-**  The functions herein are declared weak so that they can be overriden
-**  by a real implementation.
-*/
-
-/* $Id$ */
+ * 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.
+ */
 
+/**
+ * @file
+ * @brief    Implements the Firm interface to debug information.
+ * @author   Goetz Lindenmaier, Michael Beck
+ * @date     2001
+ * @version  $Id$
+ */
 #ifdef HAVE_CONFIG_H
-# include <config.h>
+# include "config.h"
 #endif
 
-#include "dbginfo.h"
+#include "dbginfo_t.h"
 #include "irnode_t.h"
+#include "type_t.h"
+#include "entity_t.h"
 
-inline void
-set_irn_dbg_info(ir_node *n, struct dbg_info* db) {
-  n->dbi = db;
-}
+merge_pair_func *__dbg_info_merge_pair = default_dbg_info_merge_pair;
 
-inline struct dbg_info *
-get_irn_dbg_info(ir_node *n) {
-  return n->dbi;
-}
+merge_sets_func *__dbg_info_merge_sets = default_dbg_info_merge_sets;
+
+snprint_dbg_func *__dbg_info_snprint   = (snprint_dbg_func *)0;
+
+void dbg_init( merge_pair_func *mpf, merge_sets_func *msf, snprint_dbg_func *snprint_dbg )
+{
+	__dbg_info_merge_pair = mpf ? mpf : default_dbg_info_merge_pair;
+	__dbg_info_merge_sets = msf ? msf : default_dbg_info_merge_sets;
+	__dbg_info_snprint    = snprint_dbg;
+}  /* dbg_init */
+
+/*
+ * Converts a debug_action into a string.
+ */
+const char *dbg_action_2_str(dbg_action a) {
+#define CASE(a) case a: return #a
+
+	switch (a) {
+	CASE(dbg_error);
+	CASE(dbg_opt_ssa);
+	CASE(dbg_opt_auxnode);
+	CASE(dbg_const_eval);
+	CASE(dbg_opt_cse);
+	CASE(dbg_straightening);
+	CASE(dbg_if_simplification);
+	CASE(dbg_algebraic_simplification);
+	CASE(dbg_write_after_write);
+	CASE(dbg_write_after_read);
+	CASE(dbg_read_after_write);
+	CASE(dbg_read_after_read);
+	CASE(dbg_read_a_const);
+	CASE(dbg_rem_poly_call);
+	CASE(dbg_dead_code);
+	CASE(dbg_opt_confirm);
+	CASE(dbg_gvn_pre);
+	CASE(dbg_combo);
+	CASE(dbg_backend);
+	default:
+		if (a <= dbg_max)
+			return "string conversion not implemented";
+		else
+			assert(!"Missing debug action in dbg_action_2_str()");
+		return NULL;
+	}
+#undef CASE
+}  /* dbg_action_2_str */
 
-inline void
-dbg_info_copy(ir_node *nw, ir_node *old, ident *info) {
-  set_irn_dbg_info(new, get_irn_dbg_info(old));
+
+void default_dbg_info_merge_pair(ir_node *nw, ir_node *old, dbg_action info) {
+	dbg_info *new_db = get_irn_dbg_info(nw);
+	(void) info;
+	if (new_db == NULL)
+		set_irn_dbg_info(nw, get_irn_dbg_info(old));
+}  /* default_dbg_info_merge_pair */
+
+void default_dbg_info_merge_sets(ir_node **new_nodes, int n_new_nodes,
+                                 ir_node **old_nodes, int n_old_nodes,
+                                 dbg_action info) {
+	(void) info;
+	if (n_old_nodes == 1) {
+		dbg_info *old_db = get_irn_dbg_info(old_nodes[0]);
+		int i;
+
+		for (i = 0; i < n_new_nodes; ++i)
+			if (get_irn_dbg_info(new_nodes[i]) == NULL)
+				set_irn_dbg_info(new_nodes[i], old_db);
+	}
+}  /* default_dbg_info_merge_sets */
+
+/** The debug info retriever function. */
+static retrieve_dbg_func retrieve_dbg = NULL;
+
+/* Sets a debug info retriever. */
+void ir_set_debug_retrieve(retrieve_dbg_func func) {
+	retrieve_dbg = func;
 }
 
-inline void
-dbg_info_merge(ir_node **new_nodes, ir_node **old_nodes, ident *info) {
+/* Retrieve the debug info. */
+const char *ir_retrieve_dbg_info(const dbg_info *dbg, unsigned *line) {
+	if (retrieve_dbg)
+		return retrieve_dbg(dbg, line);
+
+	*line = 0;
+	return NULL;
 }