X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fdebug%2Fdbginfo.c;h=a65f28b521af6dbe147ce8420c755fcc2bdfdcb8;hb=963b305a192fbff27ef32fd96e25be74a863857c;hp=809f1d714c79674ff3abe6c5817beb211568093c;hpb=4697d32eff0b0ad9dbc38add33c008b0eb3ee27b;p=libfirm diff --git a/ir/debug/dbginfo.c b/ir/debug/dbginfo.c index 809f1d714..a65f28b52 100644 --- a/ir/debug/dbginfo.c +++ b/ir/debug/dbginfo.c @@ -1,15 +1,29 @@ /* - * Project: libFIRM - * File name: ir/debug/dbginfo.c - * Purpose: Implements the Firm interface to debug information. - * Author: Goetz Lindenmaier - * Modified by: - * Created: 2001 - * CVS-ID: $Id$ - * Copyright: (c) 2001-2003 Universität Karlsruhe - * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + * 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. */ +/** + * @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" #endif @@ -19,17 +33,6 @@ #include "type_t.h" #include "entity_t.h" -void -default_dbg_info_merge_pair(ir_node *nw, ir_node *old, dbg_action info) { - set_irn_dbg_info(nw, get_irn_dbg_info(old)); -} - -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) { -} - merge_pair_func *__dbg_info_merge_pair = default_dbg_info_merge_pair; merge_sets_func *__dbg_info_merge_sets = default_dbg_info_merge_sets; @@ -38,42 +41,40 @@ 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_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 */ -void -set_irn_dbg_info(ir_node *n, struct dbg_info* db) { - n->dbi = db; -} +void set_irn_dbg_info(ir_node *n, dbg_info *db) { + n->dbi = db; +} /* set_irn_dbg_info */ -struct dbg_info * -get_irn_dbg_info(ir_node *n) { - return n->dbi; -} +struct dbg_info *get_irn_dbg_info(const ir_node *n) { + return n->dbi; +} /* get_irn_dbg_info */ /* Routines to access the field of an entity containing the debugging information. */ -void set_entity_dbg_info(entity *ent, dbg_info* db) { - ent->dbi = db; -} +void set_entity_dbg_info(ir_entity *ent, dbg_info *db) { + ent->dbi = db; +} /* set_entity_dbg_info */ -dbg_info *get_entity_dbg_info(entity *ent) { - return ent->dbi; -} +dbg_info *get_entity_dbg_info(const ir_entity *ent) { + return ent->dbi; +} /* get_entity_dbg_info */ /* Routines to access the field of a type containing the debugging information. */ -void set_type_dbg_info(ir_type *tp, dbg_info* db) { - tp->dbi = db; -} +void set_type_dbg_info(ir_type *tp, dbg_info *db) { + tp->dbi = db; +} /* set_type_dbg_info */ -dbg_info *get_type_dbg_info(ir_type *tp) { - return tp->dbi; -} +dbg_info *get_type_dbg_info(const ir_type *tp) { + return tp->dbi; +} /* get_type_dbg_info */ /* * Converts a debug_action into a string. @@ -81,29 +82,50 @@ dbg_info *get_type_dbg_info(ir_type *tp) { 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); - default: - if (a <= dbg_max) - return "string conversion not implemented"; - else - assert(0); - return NULL; - } + 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; + } #undef CASE -} +} /* 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); + 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) { + 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 */