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, Michael Beck
   7  * Created:
   8  * CVS-ID:      $Id$
   9  * Copyright:   (c) 1998-2007 Universität Karlsruhe
  10  * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
  11  */
  12 #ifdef HAVE_CONFIG_H
  13 # include "config.h"
  14 #endif
  15
  16 #include "firm_common_t.h"
  17 #include "irgraph.h"
  18 #include "irloop.h"
  19 #include "tv.h"
  20
  21 /**
  22  * Ideally, this macro would check if size bytes could be read at
  23  * pointer p. No generic solution.
  24  */
  25 #define POINTER_READ(p, size) (p)
  26
  27 /* returns the kind of the thing */
  28 firm_kind get_kind(const void *firm_thing) {
  29         return POINTER_READ(firm_thing, sizeof(firm_kind)) ? *(firm_kind *)firm_thing : k_BAD;
  30 }  /* get_kind */
  31
  32 const char *print_firm_kind(void *firm_thing) {
  33         if (! firm_thing)
  34                 return "(NULL)";
  35
  36         switch (*(firm_kind *)firm_thing) {
  37         case k_entity                 : return "k_entity";
  38         case k_type                   : return "k_type";
  39         case k_ir_graph               : return "k_ir_graph";
  40         case k_ir_node                : return "k_ir_node";
  41         case k_ir_mode                : return "k_ir_mode";
  42         case k_ir_op                  : return "k_ir_op";
  43         case k_tarval                 : return "k_tarval";
  44         case k_ir_loop                : return "k_ir_loop";
  45         case k_ir_compound_graph_path : return "k_ir_compound_graph_path";
  46         case k_ir_extblk              : return "k_ir_extblk";
  47         case k_ir_prog                : return "k_ir_prog";
  48         case k_ir_region              : return "k_ir_region";
  49
  50         default: return "";
  51         }
  52 }  /* print_firm_kind */
  53
  54 /*
  55  * identify a firm thing
  56  */
  57 void firm_identify_thing(void *X) {
  58         if (! X) {
  59                 printf("(NULL)\n");
  60                 return;
  61         }
  62
  63         switch (get_kind(X)) {
  64         case k_BAD:
  65                 printf("BAD: (%p)\n", X);
  66                 break;
  67         case k_entity:
  68                 printf("entity: %s: %ld (%p)\n", get_entity_name(X), get_entity_nr(X), X);
  69                 break;
  70         case k_type:
  71                 printf("type: %s %s: %ld (%p)\n", get_type_tpop_name(X), get_type_name(X), get_type_nr(X), X);
  72                 break;
  73         case k_ir_graph:
  74                 printf("graph: %s: %ld (%p)\n", get_entity_name(get_irg_entity(X)), get_irg_graph_nr(X), X);
  75                 break;
  76         case k_ir_node:
  77                 printf("irnode: %s%s %ld (%p)\n", get_irn_opname(X), get_mode_name(get_irn_mode(X)), get_irn_node_nr(X), X);
  78                 break;
  79         case k_ir_mode:
  80                 printf("mode %s: (%p)\n", get_mode_name(X), X);
  81                 break;
  82         case k_ir_op:
  83                 printf("op %s: (%p)\n", get_op_name(X), X);
  84                 break;
  85         case k_tarval:
  86                 printf("tarval : "); tarval_printf(X); printf(" (%p)\n", X);
  87                 break;
  88         case k_ir_loop:
  89                 printf("loop: with depth %d: (%p)\n", get_loop_depth(X), X);
  90                 break;
  91         case k_ir_compound_graph_path:
  92                 printf("compound_graph_path: (%p)\n", X);
  93                 break;
  94         case k_ir_extblk:
  95                 printf("extended block: (%p)\n", X);
  96                 break;
  97         case k_ir_prog:
  98                 printf("irp: (%p)\n", X);
  99                 break;
 100         case k_ir_region:
 101                 printf("region: (%p)\n", X);
 102                 break;
 103         default:
 104                 printf("Cannot identify thing at (%p).\n", X);
 105         }
 106 }  /* firm_identify_thing */