dbginfo.c 3.28 KB
Newer Older
Christian Würdig's avatar
Christian Würdig committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
/*
 * 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.
 */

Matthias Braun's avatar
Matthias Braun committed
20
21
22
23
24
25
/**
 * @file
 * @brief    Implements the Firm interface to debug information.
 * @author   Goetz Lindenmaier, Michael Beck
 * @date     2001
 * @version  $Id$
26
 */
27
#ifdef HAVE_CONFIG_H
Michael Beck's avatar
Michael Beck committed
28
# include "config.h"
29
30
#endif

Götz Lindenmaier's avatar
Götz Lindenmaier committed
31
#include "dbginfo_t.h"
Götz Lindenmaier's avatar
Götz Lindenmaier committed
32
#include "irnode_t.h"
33
34
#include "type_t.h"
#include "entity_t.h"
35

36
merge_pair_func *__dbg_info_merge_pair = default_dbg_info_merge_pair;
Götz Lindenmaier's avatar
Götz Lindenmaier committed
37

38
merge_sets_func *__dbg_info_merge_sets = default_dbg_info_merge_sets;
Götz Lindenmaier's avatar
Götz Lindenmaier committed
39

40
snprint_dbg_func *__dbg_info_snprint   = (snprint_dbg_func *)0;
Götz Lindenmaier's avatar
Götz Lindenmaier committed
41

42
void dbg_init( merge_pair_func *mpf, merge_sets_func *msf, snprint_dbg_func *snprint_dbg )
43
{
44
45
46
47
	__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 */
48

49
50
51
52
53
54
/*
 * Converts a debug_action into a string.
 */
const char *dbg_action_2_str(dbg_action a) {
#define CASE(a) case a: return #a

55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
	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_backend);
	default:
		if (a <= dbg_max)
			return "string conversion not implemented";
		else
			assert(!"Missing debug action in dbg_action_2_str()");
		return NULL;
	}
80
#undef CASE
81
82
83
84
85
}  /* dbg_action_2_str */


void default_dbg_info_merge_pair(ir_node *nw, ir_node *old, dbg_action info) {
	dbg_info *new_db = get_irn_dbg_info(nw);
Matthias Braun's avatar
Matthias Braun committed
86
	(void) info;
87
88
89
90
91
92
93
	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) {
Matthias Braun's avatar
Matthias Braun committed
94
	(void) info;
95
96
97
98
99
100
101
102
103
	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 */
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120

/** 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;
}

/* 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;
}