X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fcommon%2Ffirm_common.c;h=6922cefca7b899a7dff592f928d53966c37146ad;hb=f710ccc214eac12711b686ce8878c2e48a52fc70;hp=0011ef7cb987130470c94621cc05058bda69d79c;hpb=75bf2687f404f557b206ab44b59fe729ac43b7c0;p=libfirm

diff --git a/ir/common/firm_common.c b/ir/common/firm_common.c
index 0011ef7cb..6922cefca 100644
--- a/ir/common/firm_common.c
+++ b/ir/common/firm_common.c
@@ -1,13 +1,15 @@
-/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
-* All rights reserved.
-*
-* Authors: Martin Trapp, Christian Schaefer &
-*          Goetz Lindenmaier
-*
-* firm_common.c:
-*/
+/*
+ * Project:     libFIRM
+ * File name:   ir/common/firm_common.c
+ * Purpose:
+ * Author:      Martin Trapp, Christian Schaefer
+ * Modified by: Goetz Lindenmaier
+ * Created:
+ * CVS-ID:      $Id$
+ * Copyright:   (c) 1998-2003 Universität Karlsruhe
+ * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
+ */
 
-/* $Id$ */
 
 #ifdef HAVE_CONFIG_H
 # include <config.h>
@@ -15,32 +17,79 @@
 
 #include "firm_common_t.h"
 #include "irgraph.h"
+#include "irloop.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 (const void *firm_thing) {
-  assert (firm_thing);
-  return *(firm_kind *)firm_thing;
+  return POINTER_READ(firm_thing, sizeof(firm_kind)) ? *(firm_kind *)firm_thing : k_BAD;
 }
 
 
 const char* print_firm_kind(void *firm_thing) {
-  assert (firm_thing);
+  if (! firm_thing)
+    return "(NULL)";
+
   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;
+  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";
+  default: return "";
+  }
+}
+
+/*
+ * identify a firm thing
+ */
+void firm_identify_thing(void *X)
+{
+  firm_kind *p = X;
+
+  if (! p) {
+    printf("(NULL)\n");
+    return;
+  }
+
+  switch (*p) {
+  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_ent(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_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_op:
+  case k_ir_compound_graph_path:
+  default:
+    printf("Cannot identify thing at (%p).\n", X);
   }
-  return "";
 }