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

   1 /*
   2  * Project:     libFIRM
   3  * File name:   ir/ir/irphase.c
   4  * Purpose:     Phase information handling using node indexes.
   5  * Author:      Sebastian Hack
   6  * Modified by:
   7  * Created:
   8  * SVN-ID:      $Id$
   9  * Copyright:   (c) 1998-2006 Universitaet Karlsruhe
  10  * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
  11  */
  12
  13 #ifdef HAVE_CONFIG_H
  14 #include "config.h"
  15 #endif
  16
  17 #include "array.h"
  18 #include "irnode_t.h"
  19 #include "irphase_t.h"
  20
  21 ir_phase *phase_init(ir_phase *ph, const char *name, ir_graph *irg, unsigned growth_factor, phase_irn_data_init_t *data_init, void *priv)
  22 {
  23         assert(growth_factor >= 256 && "growth factor must greater or equal to 256/256");
  24         assert(data_init && "You must provide a data constructor");
  25
  26         obstack_init(&ph->obst);
  27
  28         ph->name          = name;
  29         ph->growth_factor = growth_factor;
  30         ph->data_init     = data_init;
  31         ph->irg           = irg;
  32         ph->n_data_ptr    = 0;
  33         ph->data_ptr      = NULL;
  34         ph->priv          = priv;
  35
  36         return ph;
  37 }
  38
  39 void phase_free(ir_phase *phase)
  40 {
  41         obstack_free(&phase->obst, NULL);
  42         if(phase->data_ptr)
  43                 xfree(phase->data_ptr);
  44 }
  45
  46 phase_stat_t *phase_stat(const ir_phase *phase, phase_stat_t *stat)
  47 {
  48         int i, n;
  49         memset(stat, 0, sizeof(stat[0]));
  50
  51         stat->node_map_bytes = phase->n_data_ptr * sizeof(phase->data_ptr[0]);
  52         stat->node_slots     = phase->n_data_ptr;
  53         for(i = 0, n = phase->n_data_ptr; i < n; ++i) {
  54                 if(phase->data_ptr[i] != NULL) {
  55                         stat->node_slots_used++;
  56                 }
  57         }
  58         stat->overall_bytes = stat->node_map_bytes + obstack_memory_used(&((ir_phase *)phase)->obst);
  59         return stat;
  60 }
  61
  62 void phase_reinit_irn_data(ir_phase *phase)
  63 {
  64         int i, n;
  65
  66         if (! phase->data_init)
  67                 return;
  68
  69         for (i = 0, n = phase->n_data_ptr; i < n; ++i) {
  70                 if (phase->data_ptr[i])
  71                         phase->data_init(phase, get_idx_irn(phase->irg, i), phase->data_ptr[i]);
  72         }
  73 }
  74
  75 void phase_reinit_block_irn_data(ir_phase *phase, ir_node *block)
  76 {
  77         int i, n;
  78
  79         if (! phase->data_init)
  80                 return;
  81
  82         for (i = 0, n = phase->n_data_ptr; i < n; ++i) {
  83                 if (phase->data_ptr[i]) {
  84                         ir_node *irn = get_idx_irn(phase->irg, i);
  85                         if (! is_Block(irn) && get_nodes_block(irn) == block)
  86                                 phase->data_init(phase, irn, phase->data_ptr[i]);
  87                 }
  88         }
  89 }
  90
  91 ir_node *phase_get_first_node(ir_phase *phase) {
  92         unsigned i;
  93
  94         for (i = 0; i < phase->n_data_ptr;  ++i)
  95                 if (phase->data_ptr[i])
  96                         return get_idx_irn(phase->irg, i);
  97
  98         return NULL;
  99 }
 100
 101 ir_node *phase_get_next_node(ir_phase *phase, ir_node *start) {
 102         unsigned i;
 103
 104         for (i = get_irn_idx(start) + 1; i < phase->n_data_ptr; ++i)
 105                 if (phase->data_ptr[i])
 106                         return get_idx_irn(phase->irg, i);
 107
 108         return NULL;
 109 }