X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fcommon%2Ffirm_common.c;h=98cf5d0bfb0ef48fff17d24bf6cd62f080ba393c;hb=485c69395f430b4ccc7118d69f52d914ad2124d8;hp=ef3e6eed899db4b1387f47288bb86d5495643488;hpb=a30e04ba46be95dab4cdf4fe058f4106dd6ac592;p=libfirm

diff --git a/ir/common/firm_common.c b/ir/common/firm_common.c
index ef3e6eed8..98cf5d0bf 100644
--- a/ir/common/firm_common.c
+++ b/ir/common/firm_common.c
@@ -1,90 +1,40 @@
 /*
- * 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.
+ * 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
+ */
+#include "config.h"
 
-#ifdef HAVE_CONFIG_H
-# include <config.h>
-#endif
-
-#include "firm_common_t.h"
 #include "irgraph.h"
 #include "irloop.h"
+#include "tv.h"
 
-/* returns the kind of the thing */
-firm_kind
-get_kind (const void *firm_thing) {
-  assert (firm_thing);
-  return *(firm_kind *)firm_thing;
-}
-
-
-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";
-  default: return "";
-  }
-}
-
-/*
- * identify a firm thing
+/**
+ * Ideally, this macro would check if size bytes could be read at
+ * pointer p. No generic solution.
  */
-void firm_identify_thing(void *X)
-{
-  firm_kind *p = X;
+#define POINTER_READ(p, size) (p)
 
-  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);
-  }
+/* returns the kind of the thing */
+firm_kind get_kind(const void *firm_thing)
+{
+	return POINTER_READ(firm_thing, sizeof(firm_kind)) ? *(firm_kind *)firm_thing : k_BAD;
 }