//@{
/** Access macros to fw_data structure */
-#define FGD_GET_DATA_LIST(s) ((s)->list)
-#define FGD_SET_DATA_LIST(s, t) ((s)->list = (t))
-#define FGD_GET_DATA_LINK(s) ((s)->link)
-#define FGD_SET_DATA_LINK(s, t) ((s)->link = (t))
+#define FW_GET_DATA_LIST(s) ((s)->list)
+#define FW_SET_DATA_LIST(s, t) ((s)->list = (t))
+#define FW_GET_DATA_LINK(s) ((s)->link)
+#define FW_SET_DATA_LINK(s, t) ((s)->link = (t))
//@}
/** Returns own data struct of the firm walker.
memset(data, 0, sizeof(fw_data));
set_irg_link(thing, data);
/* allocate block list */
- FGD_GET_DATA_LIST(data) = NEW_ARR_F(ir_node *, 0);
+ FW_GET_DATA_LIST(data) = NEW_ARR_F(ir_node *, 0);
}
break;
case k_ir_node:
memset(data, 0, sizeof(fw_data));
set_irn_link(thing, data);
/* allocate node list */
- FGD_GET_DATA_LIST(data) = NEW_ARR_F(ir_node *, 0);
+ FW_GET_DATA_LIST(data) = NEW_ARR_F(ir_node *, 0);
}
}
break;
/* delete block list of graph */
if (NULL != data)
{
- DEL_ARR_F(FGD_GET_DATA_LIST(data));
+ DEL_ARR_F(FW_GET_DATA_LIST(data));
set_irg_link(thing, NULL);
}
break;
data = get_irn_link(thing);
if (NULL != data)
{
- DEL_ARR_F(FGD_GET_DATA_LIST(data));
+ DEL_ARR_F(FW_GET_DATA_LIST(data));
set_irn_link(thing, NULL);
}
}
break;
case k_ir_graph:
data = fw_get_data(thing);
- FGD_SET_DATA_LINK(data, link);
+ FW_SET_DATA_LINK(data, link);
break;
case k_ir_node:
if (is_Block(thing))
{
data = fw_get_data(thing);
- FGD_SET_DATA_LINK(data, link);
+ FW_SET_DATA_LINK(data, link);
}
else
set_irn_link(thing, link);
return get_type_link(thing);
case k_ir_graph:
data = fw_get_data(thing);
- return FGD_GET_DATA_LINK(data);
+ return FW_GET_DATA_LINK(data);
case k_ir_node:
if (is_Block(thing))
{
data = fw_get_data(thing);
- return FGD_GET_DATA_LINK(data);
+ return FW_GET_DATA_LINK(data);
}
else
return get_irn_link(thing);
{
/* add this block to ir graph's block list */
data = fw_get_data(get_current_ir_graph());
- ARR_APP1(ir_node *, FGD_GET_DATA_LIST(data), irn);
+ ARR_APP1(ir_node *, FW_GET_DATA_LIST(data), irn);
}
/* non block nodes */
else
/* add this node to block's node list */
ir_node *block = get_nodes_Block(irn);
data = fw_get_data(block);
- ARR_APP1(ir_node *, FGD_GET_DATA_LIST(data), irn);
+ ARR_APP1(ir_node *, FW_GET_DATA_LIST(data), irn);
}
}
pmap_insert(mode_map, mode_b, NULL);
// Collect all types (also unused types) if flag is set
- if (FGD_WITH_ALL_TYPES & flags)
+ if (FW_WITH_ALL_TYPES & flags)
type_walk(fw_collect_tore, NULL, NULL);
// for each ir graph
/* walk over all irg's block nested ========================== */
data = fw_get_data(irg);
- block_list = FGD_GET_DATA_LIST(data);
+ block_list = FW_GET_DATA_LIST(data);
block_list_len = ARR_LEN(block_list);
for (block_i = 0; block_i < block_list_len; block_i++)
{
/* walk over all block's ir nodes nested =================== */
data = fw_get_data(block);
- irn_list = FGD_GET_DATA_LIST(data);
+ irn_list = FW_GET_DATA_LIST(data);
irn_list_len = ARR_LEN(irn_list);
// call block as prefix ir node
if ((wif->do_node) &&
- (wif->flags & FGD_DUMP_BLOCK_AS_IRN & !FGD_DUMP_IRN_IN_PREFIX))
+ (wif->flags & FW_DUMP_BLOCK_AS_IRN & !FW_DUMP_IRN_IN_PREFIX))
wif->do_node(block, wif->env);
// do ir nodes in prefix or postfix order?
- if (wif->flags & FGD_DUMP_IRN_IN_PREFIX)
+ if (wif->flags & FW_DUMP_IRN_IN_PREFIX)
irn_i = irn_list_len-1;
else
irn_i = 0;
if (wif->do_node) wif->do_node((ir_node *)irn_list[irn_i], wif->env);
// do ir nodes in prefix or postfix order?
- if (wif->flags & FGD_DUMP_IRN_IN_PREFIX)
+ if (wif->flags & FW_DUMP_IRN_IN_PREFIX)
irn_i--;
else
irn_i++;
}
// call block as postfix ir node
if ((wif->do_node) &&
- (wif->flags & (FGD_DUMP_BLOCK_AS_IRN | FGD_DUMP_IRN_IN_PREFIX)))
+ (wif->flags & (FW_DUMP_BLOCK_AS_IRN | FW_DUMP_IRN_IN_PREFIX)))
wif->do_node(block, wif->env);
/* wall over all block's ir nodes nested end =============== */
*/
typedef enum
{
- FGD_WITH_ALL_TYPES = 1<<0, /**< Collect and dump all types, especially
+ FW_WITH_ALL_TYPES = 1<<0, /**< Collect and dump all types, especially
unused types.
@note This flag could be set in
firm_dumper_init() and is unused in
firm_dump() */
- FGD_WITH_DOMINATOR = 1<<1, /**< nyi */
- FGD_WITH_OUTEDGES = 1<<2, /**< nyi */
- FGD_WITH_LOOPS = 1<<3, /**< nyi */
- FGD_DUMP_BLOCK_AS_IRN = 1<<4, /**< Dump all block nodes as irn nodes
+ FW_WITH_DOMINATOR = 1<<1, /**< nyi */
+ FW_WITH_OUTEDGES = 1<<2, /**< nyi */
+ FW_WITH_LOOPS = 1<<3, /**< nyi */
+ FW_DUMP_BLOCK_AS_IRN = 1<<4, /**< Dump all block nodes as irn nodes
additionally */
- FGD_DUMP_IRN_IN_PREFIX = 1<<5, /**< Dumps all ir nodes in prefix order
+ FW_DUMP_IRN_IN_PREFIX = 1<<5, /**< Dumps all ir nodes in prefix order
according to the internal firm graph
structure */
} firm_walk_flags;