BugFix: when a node in schedule got exchanged, it is turned into Bad: do not set...
[libfirm] / ir / be / belive_t.h
1 /**
2  * Internal headers for liveness analysis.
3  * @author Sebastian Hack
4  * @date 6.12.2004
5  */
6
7 #ifndef _BELIVE_T_H
8 #define _BELIVE_T_H
9
10 #include "irgraph_t.h"
11 #include "iredges_t.h"
12 #include "irphase_t.h"
13 #include "irhooks.h"
14
15 #include "pset.h"
16 #include "set.h"
17 #include "list.h"
18 #include "hashptr.h"
19 #include "bitset.h"
20
21 #include "belive.h"
22
23 struct _be_lv_t {
24         phase_t ph;
25         ir_graph *irg;
26         bitset_t *nodes;
27         hook_entry_t hook_info;
28         DEBUG_ONLY(firm_dbg_module_t *dbg;)
29 };
30
31 struct _be_lv_info_node_t {
32         unsigned idx;
33         unsigned flags;
34 };
35
36 struct _be_lv_info_head_t {
37         unsigned n_members;
38         unsigned n_size;
39 };
40
41 struct _be_lv_info_t {
42         union {
43                 struct _be_lv_info_head_t head;
44                 struct _be_lv_info_node_t node;
45         } u;
46 };
47
48 static INLINE int _be_lv_next_irn(const struct _be_lv_t *lv, const ir_node *bl, unsigned flags, int i)
49 {
50         struct _be_lv_info_t *arr     = phase_get_irn_data(&lv->ph, bl);
51         if(arr) {
52                 int n_members = (int) arr[0].u.head.n_members;
53
54                 while(i < n_members) {
55                         if(arr[i + 1].u.node.flags & flags) {
56                                 return i;
57                         }
58                         ++i;
59                 }
60         }
61
62         return -1;
63 }
64
65 static INLINE ir_node * _be_lv_get_irn(const struct _be_lv_t *lv, const ir_node *bl, int i)
66 {
67         struct _be_lv_info_t *arr     = phase_get_irn_data(&lv->ph, bl);
68         return get_idx_irn(lv->irg, arr[i + 1].u.node.idx);
69 }
70
71 struct _be_lv_info_node_t *be_lv_get(const struct _be_lv_t *li, const ir_node *bl, const ir_node *irn);
72
73 static INLINE int _be_is_live_xxx(const struct _be_lv_t *li, const ir_node *block, const ir_node *irn, unsigned flags)
74 {
75         struct _be_lv_info_node_t *info = be_lv_get(li, block, irn);
76         return info ? (info->flags & flags) != 0 : 0;
77 }
78
79 #define be_lv_foreach(lv, bl, flags, i) \
80         for(i = _be_lv_next_irn(lv, bl, flags, 0); i >= 0; i = _be_lv_next_irn(lv, bl, flags, i + 1))
81
82
83 static INLINE pset *_be_lv_pset_put(const struct _be_lv_t *lv, const ir_node *block, int state, pset *s)
84 {
85         int i;
86         be_lv_foreach(lv, block, state, i)
87                 pset_insert_ptr(s, _be_lv_get_irn(lv, block, i));
88         return s;
89 }
90
91 #define be_lv_get_irn(lv, bl, i)      _be_lv_get_irn(lv, bl, i)
92 #define be_lv_pset_put_in(lv, bl, s)  _be_lv_pset_put(lv, bl, be_lv_state_in, s)
93 #define be_lv_pset_put_out(lv, bl, s) _be_lv_pset_put(lv, bl, be_lv_state_out, s)
94 #define be_lv_pset_put_end(lv, bl, s) _be_lv_pset_put(lv, bl, be_lv_state_end, s)
95
96 #define be_is_live_in(lv, bl, irn)    _be_is_live_xxx(lv, bl, irn, be_lv_state_in)
97 #define be_is_live_end(lv, bl, irn)   _be_is_live_xxx(lv, bl, irn, be_lv_state_end)
98 #define be_is_live_out(lv, bl, irn)   _be_is_live_xxx(lv, bl, irn, be_lv_state_out)
99
100 #define be_lv_has_info_about(lv, irn) bitset_is_set((lv)->nodes, get_irn_idx(irn))
101
102 #endif