nsz Git - libfirm/blob - ir/ir/irphase.c

   1 /*
   2  * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
   3  *
   4  * This file is part of libFirm.
   5  *
   6  * This file may be distributed and/or modified under the terms of the
   7  * GNU General Public License version 2 as published by the Free Software
   8  * Foundation and appearing in the file LICENSE.GPL included in the
   9  * packaging of this file.
  10  *
  11  * Licensees holding valid libFirm Professional Edition licenses may use
  12  * this file in accordance with the libFirm Commercial License.
  13  * Agreement provided with the Software.
  14  *
  15  * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
  16  * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17  * PURPOSE.
  18  */
  19
  20 /**
  21  * @file
  22  * @brief    Phase information handling using node indexes.
  23  * @author   Sebastian Hack
  24  * @version  $Id$
  25  * @brief
  26  *  A phase contains a link to private data for each node in an ir graph.
  27  *  A phase is independent from the globally visible link field of ir nodes.
  28  */
  29 #include "config.h"
  30
  31 #include "array.h"
  32 #include "util.h"
  33 #include "irnode_t.h"
  34 #include "irgraph_t.h"
  35 #include "irphase_t.h"
  36
  37 void *phase_irn_init_default(ir_phase *ph, const ir_node *irn)
  38 {
  39         (void) ph;
  40         (void) irn;
  41         return NULL;
  42 }
  43
  44 void phase_init(ir_phase *phase, ir_graph *irg, phase_irn_init *data_init)
  45 {
  46         memset(phase, 0, sizeof(*phase));
  47
  48         obstack_init(&phase->obst);
  49         phase->data_init  = data_init;
  50         phase->irg        = irg;
  51         phase->n_data_ptr = 0;
  52         phase->data_ptr   = NULL;
  53 }
  54
  55 ir_phase *new_phase(ir_graph *irg, phase_irn_init *data_init)
  56 {
  57         ir_phase *phase = xmalloc(sizeof(*phase));
  58         phase_init(phase, irg, data_init);
  59         return phase;
  60 }
  61
  62 void phase_deinit(ir_phase *phase)
  63 {
  64         obstack_free(&phase->obst, NULL);
  65         if (phase->data_ptr)
  66                 xfree(phase->data_ptr);
  67 }
  68
  69 void phase_free(ir_phase *phase)
  70 {
  71         phase_deinit(phase);
  72         xfree(phase);
  73 }
  74
  75 phase_stat_t *phase_stat(const ir_phase *phase, phase_stat_t *stat)
  76 {
  77         unsigned i, n;
  78         memset(stat, 0, sizeof(stat[0]));
  79
  80         stat->node_map_bytes = phase->n_data_ptr * sizeof(phase->data_ptr[0]);
  81         stat->node_slots     = phase->n_data_ptr;
  82         for (i = 0, n = phase->n_data_ptr; i < n; ++i) {
  83                 if (phase->data_ptr[i] != NULL) {
  84                         stat->node_slots_used++;
  85                 }
  86         }
  87         stat->overall_bytes = stat->node_map_bytes + obstack_memory_used(&((ir_phase *)phase)->obst);
  88         return stat;
  89 }
  90
  91 void phase_reinit_irn_data(ir_phase *phase, phase_irn_reinit *data_reinit)
  92 {
  93         unsigned i, n;
  94         ir_graph *irg;
  95
  96         if (! phase->data_init)
  97                 return;
  98
  99         irg = phase->irg;
 100         for (i = 0, n = phase->n_data_ptr; i < n; ++i) {
 101                 if (phase->data_ptr[i]) {
 102                         ir_node *node = get_idx_irn(irg, i);
 103                         phase->data_ptr[i] = data_reinit(phase, node, phase->data_ptr[i]);
 104                 }
 105         }
 106 }
 107
 108 ir_node *phase_get_first_node(const ir_phase *phase)
 109 {
 110         unsigned i;
 111
 112         for (i = 0; i < phase->n_data_ptr;  ++i)
 113                 if (phase->data_ptr[i])
 114                         return get_idx_irn(phase->irg, i);
 115
 116         return NULL;
 117 }
 118
 119 ir_node *phase_get_next_node(const ir_phase *phase, ir_node *start)
 120 {
 121         unsigned i;
 122
 123         for (i = get_irn_idx(start) + 1; i < phase->n_data_ptr; ++i)
 124                 if (phase->data_ptr[i])
 125                         return get_idx_irn(phase->irg, i);
 126
 127         return NULL;
 128 }