nsz Git - libfirm/blob - ir/be/beirg.c

   1 /*
   2  * Copyright (C) 1995-2007 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  * Author:      Matthias Braun
  22  * Date:                13.12.2006
  23  * Copyright:   (c) Universitaet Karlsruhe
  24  * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
  25  */
  26 #ifdef HAVE_CONFIG_H
  27 #include "config.h"
  28 #endif
  29
  30 #include "execfreq.h"
  31 #include "beirg_t.h"
  32
  33 void be_assure_liveness(be_irg_t *birg)
  34 {
  35         if(birg->lv != NULL)
  36                 return;
  37
  38         birg->lv = be_liveness(birg->irg);
  39 }
  40
  41 void be_invalidate_liveness(be_irg_t *birg)
  42 {
  43         if(birg->lv == NULL)
  44                 return;
  45
  46         be_liveness_free(birg->lv);
  47         birg->lv = NULL;
  48 }
  49
  50 void be_assure_dom_front(be_irg_t *birg)
  51 {
  52         if(birg->dom_front != NULL)
  53                 return;
  54
  55         birg->dom_front = be_compute_dominance_frontiers(birg->irg);
  56 }
  57
  58 void be_invalidate_dom_front(be_irg_t *birg)
  59 {
  60         if(birg->dom_front == NULL)
  61                 return;
  62
  63         be_free_dominance_frontiers(birg->dom_front);
  64         birg->dom_front = NULL;
  65 }
  66
  67 void be_free_birg(be_irg_t *birg)
  68 {
  69         free_execfreq(birg->exec_freq);
  70         birg->exec_freq = NULL;
  71
  72         if(birg->dom_front != NULL) {
  73                 be_free_dominance_frontiers(birg->dom_front);
  74                 birg->dom_front = NULL;
  75         }
  76         if(birg->lv != NULL) {
  77                 be_liveness_free(birg->lv);
  78                 birg->lv = NULL;
  79         }
  80 }
  81
  82 ir_graph* (be_get_birg_irg) (const be_irg_t *birg)
  83 {
  84         return _be_get_birg_irg(birg);
  85 }
  86
  87 ir_exec_freq* (be_get_birg_exec_freq) (const be_irg_t *birg)
  88 {
  89         return _be_get_birg_exec_freq(birg);
  90 }
  91
  92 be_lv_t* (be_get_birg_liveness) (const be_irg_t *birg)
  93 {
  94         return _be_get_birg_liveness(birg);
  95 }
  96
  97 be_dom_front_info_t* (be_get_birg_dom_front) (const be_irg_t *birg)
  98 {
  99         return _be_get_birg_dom_front(birg);
 100 }
 101
 102 const arch_env_t* (be_get_birg_arch_env) (const be_irg_t *birg)
 103 {
 104         return _be_get_birg_arch_env(birg);
 105 }