/*
- * Project: libFIRM
- * File name: ir/debug/debugger.c
- * Purpose: Helper function for integerated debug support
- * Author: Michael Beck
- * Modified by:
- * Created: 2005
- * CVS-ID: $Id$
- * Copyright: (c) 2001-2007 Universität Karlsruhe
- * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE.
+ * 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 Helper function for integrated debug support
+ * @author Michael Beck
+ * @date 2005
+ * @version $Id$
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
+#include "firm_config.h"
+
#ifdef DEBUG_libfirm
#ifdef _WIN32
#ifdef HAVE_STRING_H
#include <string.h>
#endif
+#ifdef HAVE_STRINGS_H
+#include <strings.h>
+#endif
#include <ctype.h>
#include "irgraph_t.h"
#include "entity_t.h"
#include "irprintf.h"
-#include "typewalk.h"
#include "irdump.h"
+#include "iredges_t.h"
#include "debug.h"
#ifdef _WIN32
#define FIRM_DBG_MINOR 0
/** for automatic detection of the debug extension */
-static const char *firm_debug_info_string =
+static const char firm_debug_info_string[] =
API_VERSION(FIRM_DBG_MAJOR, FIRM_DBG_MINOR);
/**
static void dbg_new_node(void *ctx, ir_graph *irg, ir_node *node)
{
bp_nr_t key, *elem;
+ (void) ctx;
+ (void) irg;
key.nr = get_irn_node_nr(node);
key.bp.reason = BP_ON_NEW_NODE;
static void dbg_replace(void *ctx, ir_node *old, ir_node *nw)
{
bp_nr_t key, *elem;
+ (void) ctx;
key.nr = get_irn_node_nr(old);
key.bp.reason = BP_ON_REPLACE;
static void dbg_lower(void *ctx, ir_node *node)
{
bp_nr_t key, *elem;
+ (void) ctx;
key.nr = get_irn_node_nr(node);
key.bp.reason = BP_ON_LOWER;
*/
static void dbg_free_graph(void *ctx, ir_graph *irg)
{
+ (void) ctx;
{
bp_nr_t key, *elem;
key.nr = get_irg_graph_nr(irg);
*/
static void dbg_new_entity(void *ctx, ir_entity *ent)
{
+ (void) ctx;
{
bp_ident_t key, *elem;
*/
static void dbg_new_type(void *ctx, ir_type *tp)
{
+ (void) ctx;
{
bp_nr_t key, *elem;
{
const bp_nr_t *e1 = elt;
const bp_nr_t *e2 = key;
+ (void) size;
return (e1->nr - e2->nr) | (e1->bp.reason - e2->bp.reason);
} /* cmp_nr_bp */
{
const bp_ident_t *e1 = elt;
const bp_ident_t *e2 = key;
+ (void) size;
return (e1->id != e2->id) | (e1->bp.reason - e2->bp.reason);
} /* cmp_ident_bp */
do {
c = next_char();
- } while (c == '_' || isalnum(c));
+ } while (isgraph(c));
unput();
lexer.len = lexer.curr_pos - lexer.s;
return tok_identifier;
- } else if (isdigit(c)) {
+ } else if (isdigit(c) || c == '-') {
unsigned number = 0;
+ unsigned sign = 0;
+
+ /* we support negative numbers as well, so one can easily set all bits with -1 */
+ if (c == '-') {
+ sign = 1;
+ c = next_char();
+ }
if (c == '0') {
c = next_char();
c = next_char();
}
unput();
- lexer.number = number;
+ lexer.number = sign ? 0 - number : number;
return tok_number;
}
else if (c == '\0')
return c;
} /* get_token */
-/**
- * returns the next token.
- */
-static unsigned next_token(void) {
- if (! lexer.has_token) {
- lexer.cur_token = get_token();
- lexer.has_token = 1;
- }
- return lexer.cur_token;
-} /* next_token */
-
-#define drop_token() lexer.has_token = 0
-
/**
* High level function to use from debugger interface
*
firm_debug_break();
} /* firm_init_debugger */
+/**
+ * A gdb helper function to print firm objects.
+ */
+const char *gdb_node_helper(void *firm_object) {
+ static char buf[1024];
+ ir_snprintf(buf, sizeof(buf), "%+F", firm_object);
+ return buf;
+}
+
+/**
+ * A gdb helper function to print tarvals.
+ */
+const char *gdb_tarval_helper(void *tv_object) {
+ static char buf[1024];
+ ir_snprintf(buf, sizeof(buf), "%+T", tv_object);
+ return buf;
+}
+
+const char *gdb_out_edge_helper(const ir_node *node) {
+ static char buf[4*1024];
+ char *b = buf;
+ size_t l;
+ size_t len = sizeof(buf);
+ const ir_edge_t *edge;
+ foreach_out_edge(node, edge) {
+ ir_node *n = get_edge_src_irn(edge);
+
+ ir_snprintf(b, len, "%+F ", n);
+ l = strlen(b);
+ len -= l;
+ b += l;
+ }
+
+ return buf;
+}
+
#else
/* some picky compiler do not allow empty files */
-static int _firm_only_that_you_can_compile_with_NDEBUG_defined;
+static int __attribute__((unused)) _firm_only_that_you_can_compile_with_NDEBUG_defined;
#endif /* NDEBUG */