nsz Git - libfirm/blob - ir/common/firm_common.c

   1 /*
   2  * Project:     libFIRM
   3  * File name:   ir/common/firm_common.c
   4  * Purpose:
   5  * Author:      Martin Trapp, Christian Schaefer
   6  * Modified by: Goetz Lindenmaier
   7  * Created:
   8  * CVS-ID:      $Id$
   9  * Copyright:   (c) 1998-2003 Universität Karlsruhe
  10  * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
  11  */
  12
  13
  14 #ifdef HAVE_CONFIG_H
  15 # include <config.h>
  16 #endif
  17
  18 #include "firm_common_t.h"
  19 #include "irgraph.h"
  20 #include "irloop.h"
  21
  22 /* returns the kind of the thing */
  23 firm_kind
  24 get_kind (const void *firm_thing) {
  25   assert (firm_thing);
  26   return *(firm_kind *)firm_thing;
  27 }
  28
  29
  30 const char* print_firm_kind(void *firm_thing) {
  31   if (! firm_thing)
  32     return "(NULL)";
  33
  34   switch (*(firm_kind *)firm_thing) {
  35   case k_entity                 : return "k_entity";
  36   case k_type                   : return "k_type";
  37   case k_ir_graph               : return "k_ir_graph";
  38   case k_ir_node                : return "k_ir_node";
  39   case k_ir_mode                : return "k_ir_mode";
  40   case k_ir_op                  : return "k_ir_op";
  41   case k_tarval                 : return "k_tarval";
  42   case k_ir_loop                : return "k_ir_loop";
  43   case k_ir_compound_graph_path : return "k_ir_compound_graph_path";
  44   default: return "";
  45   }
  46 }
  47
  48 /*
  49  * identify a firm thing
  50  */
  51 void firm_identify_thing(void *X)
  52 {
  53   firm_kind *p = X;
  54
  55   if (! p) {
  56     printf("(NULL)\n");
  57     return;
  58   }
  59
  60   switch (*p) {
  61   case k_BAD:
  62     printf("BAD: (%p)\n", X);
  63     break;
  64   case k_entity:
  65     printf("entity: %s: %ld (%p)\n", get_entity_name(X), get_entity_nr(X), X);
  66     break;
  67   case k_type:
  68     printf("type: %s %s: %ld (%p)\n", get_type_tpop_name(X), get_type_name(X), get_type_nr(X), X);
  69     break;
  70   case k_ir_graph:
  71     printf("graph: %s: %ld (%p)\n", get_entity_name(get_irg_ent(X)), get_irg_graph_nr(X), X);
  72     break;
  73   case k_ir_node:
  74     printf("irnode: %s%s %ld (%p)\n", get_irn_opname(X), get_mode_name(get_irn_mode(X)), get_irn_node_nr(X), X);
  75     break;
  76   case k_ir_mode:
  77     printf("mode %s: (%p)\n", get_mode_name(X),X);
  78     break;
  79   case k_tarval:
  80     printf("tarval : "); tarval_printf(X); printf(" (%p)\n", X);
  81     break;
  82   case k_ir_loop:
  83     printf("loop: with depth %d: (%p)\n", get_loop_depth(X), X);
  84     break;
  85   case k_ir_op:
  86   case k_ir_compound_graph_path:
  87   default:
  88     printf("Cannot identify thing at (%p).\n", X);
  89   }
  90 }