X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fcommon%2Ffirm_common.c;h=de0ba2be1c91f2e6a9811f8823bc2ca182edbdab;hb=44faeb9742640d3498eb4482f98eb1255607c4d6;hp=755c6f2542b4e440807847bd0623c2c8f26d5a44;hpb=6580cb7ae851b81a52762fadda714fe82fc8da93;p=libfirm

diff --git a/ir/common/firm_common.c b/ir/common/firm_common.c
index 755c6f254..de0ba2be1 100644
--- a/ir/common/firm_common.c
+++ b/ir/common/firm_common.c
@@ -1,46 +1,119 @@
-/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
-** All rights reserved.
-**
-** Authors: Martin Trapp, Christian Schaefer &
-**          Goetz Lindenmaier
-**
-** firm_common.c:
-*/
-
-/* $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
+ * @author    Martin Trapp, Christian Schaefer, Goetz Lindenmaier, Michael Beck
+ * @version   $Id$
+ */
 #ifdef HAVE_CONFIG_H
-# include <config.h>
+# include "config.h"
 #endif
 
 #include "firm_common_t.h"
 #include "irgraph.h"
+#include "irloop.h"
+#include "tv.h"
+
+/**
+ * Ideally, this macro would check if size bytes could be read at
+ * pointer p. No generic solution.
+ */
+#define POINTER_READ(p, size) (p)
 
 /* returns the kind of the thing */
-firm_kind
-get_kind (void *firm_thing) {
-  assert (firm_thing);
-  return *(firm_kind *)firm_thing;
-}
-
-
-const char* print_firm_kind(void *firm_thing) {
-  assert (firm_thing);
-  switch (*(firm_kind *)firm_thing) {
-    case k_entity: { return "k_enitity"; } break;
-    case k_type: { return "k_type"; } break;
-#if 0
-    case k_type_class: { return "k_type_class"; } break;
-    case k_type_strct: { return "k_type_strct:"; } break;
-    case k_type_method: { return "k_type_method:"; } break;
-    case k_type_union: { return "k_type_union"; } break;
-    case k_type_array: { return "k_type_array"; } break;
-    case k_type_enumeration: { return "k_type_enumeration"; } break;
-    case k_type_pointer: { return "k_type_pointer"; } break;
-    case k_type_primitive: { return "k_type_primitive"; } break;
-#endif
-    case k_ir_node: { return "k_ir_node"; } break;
-  default: break;
-  }
-  return "";
-}
+firm_kind get_kind(const void *firm_thing) {
+	return POINTER_READ(firm_thing, sizeof(firm_kind)) ? *(firm_kind *)firm_thing : k_BAD;
+}  /* get_kind */
+
+const char *print_firm_kind(void *firm_thing) {
+	if (! firm_thing)
+		return "(NULL)";
+
+	switch (*(firm_kind *)firm_thing) {
+	case k_entity                 : return "k_entity";
+	case k_type                   : return "k_type";
+	case k_ir_graph               : return "k_ir_graph";
+	case k_ir_node                : return "k_ir_node";
+	case k_ir_mode                : return "k_ir_mode";
+	case k_ir_op                  : return "k_ir_op";
+	case k_tarval                 : return "k_tarval";
+	case k_ir_loop                : return "k_ir_loop";
+	case k_ir_compound_graph_path : return "k_ir_compound_graph_path";
+	case k_ir_extblk              : return "k_ir_extblk";
+	case k_ir_prog                : return "k_ir_prog";
+	case k_ir_region              : return "k_ir_region";
+
+	default: return "";
+	}
+}  /* print_firm_kind */
+
+/*
+ * identify a firm thing
+ */
+void firm_identify_thing(void *X) {
+	if (! X) {
+		printf("(NULL)\n");
+		return;
+	}
+
+	switch (get_kind(X)) {
+	case k_BAD:
+		printf("BAD: (%p)\n", X);
+		break;
+	case k_entity:
+		printf("entity: %s: %ld (%p)\n", get_entity_name(X), get_entity_nr(X), X);
+		break;
+	case k_type:
+		printf("type: %s %s: %ld (%p)\n", get_type_tpop_name(X), get_type_name(X), get_type_nr(X), X);
+		break;
+	case k_ir_graph:
+		printf("graph: %s: %ld (%p)\n", get_entity_name(get_irg_entity(X)), get_irg_graph_nr(X), X);
+		break;
+	case k_ir_node:
+		printf("irnode: %s%s %ld (%p)\n", get_irn_opname(X), get_mode_name(get_irn_mode(X)), get_irn_node_nr(X), X);
+		break;
+	case k_ir_mode:
+		printf("mode %s: (%p)\n", get_mode_name(X), X);
+		break;
+	case k_ir_op:
+		printf("op %s: (%p)\n", get_op_name(X), X);
+		break;
+	case k_tarval:
+		printf("tarval : "); tarval_printf(X); printf(" (%p)\n", X);
+		break;
+	case k_ir_loop:
+		printf("loop: with depth %d: (%p)\n", get_loop_depth(X), X);
+		break;
+	case k_ir_compound_graph_path:
+		printf("compound_graph_path: (%p)\n", X);
+		break;
+	case k_ir_extblk:
+		printf("extended block: (%p)\n", X);
+		break;
+	case k_ir_prog:
+		printf("irp: (%p)\n", X);
+		break;
+	case k_ir_region:
+		printf("region: (%p)\n", X);
+		break;
+	default:
+		printf("Cannot identify thing at (%p).\n", X);
+	}
+}  /* firm_identify_thing */