X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fana%2Fcallgraph.c;h=f58970650f3c6f902b0f67e5957ef724d08ac5f3;hb=0e975a6e5046ba66cf78d946bd924efe3876f95c;hp=9ab23b6b144d74a6e667d3223a83e159021ed74e;hpb=0fbcef83aa6060534172bb13e71cdadb04428806;p=libfirm diff --git a/ir/ana/callgraph.c b/ir/ana/callgraph.c index 9ab23b6b1..f58970650 100644 --- a/ir/ana/callgraph.c +++ b/ir/ana/callgraph.c @@ -26,12 +26,8 @@ */ #include "config.h" -#ifdef HAVE_STRING_H -# include -#endif -# ifdef HAVE_STDLIB_H +#include #include -#endif #include "callgraph.h" @@ -51,41 +47,47 @@ #include "irgwalk.h" static ir_visited_t master_cg_visited = 0; -static INLINE int cg_irg_visited (ir_graph *n); -static INLINE void mark_cg_irg_visited(ir_graph *n); -static INLINE void set_cg_irg_visited (ir_graph *n, ir_visited_t i); +static inline int cg_irg_visited (ir_graph *n); +static inline void mark_cg_irg_visited(ir_graph *n); +static inline void set_cg_irg_visited (ir_graph *n, ir_visited_t i); /** Returns the callgraph state of the program representation. */ -irp_callgraph_state get_irp_callgraph_state(void) { +irp_callgraph_state get_irp_callgraph_state(void) +{ return irp->callgraph_state; } /* Sets the callgraph state of the program representation. */ -void set_irp_callgraph_state(irp_callgraph_state s) { +void set_irp_callgraph_state(irp_callgraph_state s) +{ irp->callgraph_state = s; } /* Returns the number of procedures that call the given irg. */ -int get_irg_n_callers(ir_graph *irg) { +int get_irg_n_callers(const ir_graph *irg) +{ if (irg->callers) return ARR_LEN(irg->callers); return -1; } /* Returns the caller at position pos. */ -ir_graph *get_irg_caller(ir_graph *irg, int pos) { +ir_graph *get_irg_caller(const ir_graph *irg, int pos) +{ assert(pos >= 0 && pos < get_irg_n_callers(irg)); if (irg->callers) return irg->callers[pos]; return NULL; } /* Returns non-zero if the caller at position pos is "a backedge", i.e. a recursion. */ -int is_irg_caller_backedge(ir_graph *irg, int pos) { +int is_irg_caller_backedge(const ir_graph *irg, int pos) +{ assert(pos >= 0 && pos < get_irg_n_callers(irg)); return irg->caller_isbe != NULL ? rbitset_is_set(irg->caller_isbe, pos) : 0; } /** Search the caller in the list of all callers and set it's backedge property. */ -static void set_irg_caller_backedge(ir_graph *irg, ir_graph *caller) { +static void set_irg_caller_backedge(ir_graph *irg, ir_graph *caller) +{ int i, n_callers = get_irg_n_callers(irg); /* allocate a new array on demand */ @@ -100,7 +102,8 @@ static void set_irg_caller_backedge(ir_graph *irg, ir_graph *caller) { } /* Returns non-zero if the irg has a backedge caller. */ -int has_irg_caller_backedge(ir_graph *irg) { +int has_irg_caller_backedge(const ir_graph *irg) +{ int i, n_callers = get_irg_n_callers(irg); if (irg->caller_isbe != NULL) { @@ -116,7 +119,8 @@ int has_irg_caller_backedge(ir_graph *irg) { * Given the position pos_caller of an caller of irg, return * irg's callee position on that caller. */ -static int reverse_pos(ir_graph *callee, int pos_caller) { +static int reverse_pos(const ir_graph *callee, int pos_caller) +{ ir_graph *caller = get_irg_caller(callee, pos_caller); /* search the other relation for the corresponding edge. */ int pos_callee = -1; @@ -134,7 +138,8 @@ static int reverse_pos(ir_graph *callee, int pos_caller) { } /* Returns the maximal loop depth of call nodes that call along this edge. */ -int get_irg_caller_loop_depth(ir_graph *irg, int pos) { +int get_irg_caller_loop_depth(const ir_graph *irg, int pos) +{ ir_graph *caller = get_irg_caller(irg, pos); int pos_callee = reverse_pos(irg, pos); @@ -143,26 +148,30 @@ int get_irg_caller_loop_depth(ir_graph *irg, int pos) { /* Returns the number of procedures that are called by the given irg. */ -int get_irg_n_callees(ir_graph *irg) { +int get_irg_n_callees(const ir_graph *irg) +{ if (irg->callees) return ARR_LEN(irg->callees); return -1; } /* Returns the callee at position pos. */ -ir_graph *get_irg_callee(ir_graph *irg, int pos) { +ir_graph *get_irg_callee(const ir_graph *irg, int pos) +{ assert(pos >= 0 && pos < get_irg_n_callees(irg)); if (irg->callees) return irg->callees[pos]->irg; return NULL; } /* Returns non-zero if the callee at position pos is "a backedge", i.e. a recursion. */ -int is_irg_callee_backedge(ir_graph *irg, int pos) { +int is_irg_callee_backedge(const ir_graph *irg, int pos) +{ assert(pos >= 0 && pos < get_irg_n_callees(irg)); return irg->callee_isbe != NULL ? rbitset_is_set(irg->callee_isbe, pos) : 0; } /* Returns non-zero if the irg has a backedge callee. */ -int has_irg_callee_backedge(ir_graph *irg) { +int has_irg_callee_backedge(const ir_graph *irg) +{ int i, n_callees = get_irg_n_callees(irg); if (irg->callee_isbe != NULL) { @@ -176,7 +185,8 @@ int has_irg_callee_backedge(ir_graph *irg) { /** * Mark the callee at position pos as a backedge. */ -static void set_irg_callee_backedge(ir_graph *irg, int pos) { +static void set_irg_callee_backedge(ir_graph *irg, int pos) +{ int n = get_irg_n_callees(irg); /* allocate a new array on demand */ @@ -187,14 +197,16 @@ static void set_irg_callee_backedge(ir_graph *irg, int pos) { } /* Returns the maximal loop depth of call nodes that call along this edge. */ -int get_irg_callee_loop_depth(ir_graph *irg, int pos) { +int get_irg_callee_loop_depth(const ir_graph *irg, int pos) +{ assert(pos >= 0 && pos < get_irg_n_callees(irg)); if (irg->callees) return irg->callees[pos]->max_depth; return -1; } -double get_irg_callee_execution_frequency(ir_graph *irg, int pos) { +double get_irg_callee_execution_frequency(const ir_graph *irg, int pos) +{ ir_node **arr = irg->callees[pos]->call_list; int i, n_Calls = ARR_LEN(arr); double freq = 0.0; @@ -205,14 +217,16 @@ double get_irg_callee_execution_frequency(ir_graph *irg, int pos) { return freq; } -double get_irg_callee_method_execution_frequency(ir_graph *irg, int pos) { +double get_irg_callee_method_execution_frequency(const ir_graph *irg, int pos) +{ double call_freq = get_irg_callee_execution_frequency(irg, pos); double meth_freq = get_irg_method_execution_frequency(irg); return call_freq * meth_freq; } -double get_irg_caller_method_execution_frequency(ir_graph *irg, int pos) { +double get_irg_caller_method_execution_frequency(const ir_graph *irg, int pos) +{ ir_graph *caller = get_irg_caller(irg, pos); int pos_callee = reverse_pos(irg, pos); @@ -226,7 +240,8 @@ double get_irg_caller_method_execution_frequency(ir_graph *irg, int pos) { /** * Walker called by compute_callgraph(), analyses all Call nodes. */ -static void ana_Call(ir_node *n, void *env) { +static void ana_Call(ir_node *n, void *env) +{ int i, n_callees; ir_graph *irg; (void) env; @@ -253,7 +268,7 @@ static void ana_Call(ir_node *n, void *env) { ARR_APP1(ir_node *, arr, n); found->call_list = arr; } else { /* New node, add Call node and init nesting. */ - found = (cg_callee_entry *)obstack_alloc(irg->obst, sizeof(*found)); + found = OALLOC(irg->obst, cg_callee_entry); found->irg = callee; found->call_list = NEW_ARR_F(ir_node *, 1); found->call_list[0] = n; @@ -267,14 +282,16 @@ static void ana_Call(ir_node *n, void *env) { } /** compare two ir graphs in a cg_callee_entry */ -static int cg_callee_entry_cmp(const void *elt, const void *key) { +static int cg_callee_entry_cmp(const void *elt, const void *key) +{ const cg_callee_entry *e1 = elt; const cg_callee_entry *e2 = key; return e1->irg != e2->irg; } /** compare two ir graphs for pointer identity */ -static int graph_cmp(const void *elt, const void *key) { +static int graph_cmp(const void *elt, const void *key) +{ const ir_graph *e1 = elt; const ir_graph *e2 = key; return e1 != e2; @@ -282,7 +299,8 @@ static int graph_cmp(const void *elt, const void *key) { /* Construct and destruct the callgraph. */ -void compute_callgraph(void) { +void compute_callgraph(void) +{ int i, n_irgs; #ifdef INTERPROCEDURAL_VIEW @@ -343,7 +361,8 @@ void compute_callgraph(void) { } /* Destruct the callgraph. */ -void free_callgraph(void) { +void free_callgraph(void) +{ int i, n_irgs = get_irp_n_irgs(); for (i = 0; i < n_irgs; ++i) { ir_graph *irg = get_irp_irg(i); @@ -364,7 +383,8 @@ void free_callgraph(void) { /* ----------------------------------------------------------------------------------- */ -static void do_walk(ir_graph *irg, callgraph_walk_func *pre, callgraph_walk_func *post, void *env) { +static void do_walk(ir_graph *irg, callgraph_walk_func *pre, callgraph_walk_func *post, void *env) +{ int i, n_callees; if (cg_irg_visited(irg)) @@ -384,7 +404,8 @@ static void do_walk(ir_graph *irg, callgraph_walk_func *pre, callgraph_walk_func post(irg, env); } -void callgraph_walk(callgraph_walk_func *pre, callgraph_walk_func *post, void *env) { +void callgraph_walk(callgraph_walk_func *pre, callgraph_walk_func *post, void *env) +{ int i, n_irgs = get_irp_n_irgs(); ++master_cg_visited; @@ -431,77 +452,87 @@ typedef struct scc_info { /** * allocates a new scc_info on the obstack */ -static INLINE scc_info *new_scc_info(struct obstack *obst) { - scc_info *info = obstack_alloc(obst, sizeof(*info)); - memset(info, 0, sizeof(*info)); - return info; +static inline scc_info *new_scc_info(struct obstack *obst) +{ + return OALLOCZ(obst, scc_info); } /** * Returns non-zero if a graph was already visited. */ -static INLINE int cg_irg_visited(ir_graph *irg) { +static inline int cg_irg_visited(ir_graph *irg) +{ return irg->self_visited >= master_cg_visited; } /** * Marks a graph as visited. */ -static INLINE void mark_cg_irg_visited(ir_graph *irg) { +static inline void mark_cg_irg_visited(ir_graph *irg) +{ irg->self_visited = master_cg_visited; } /** * Set a graphs visited flag to i. */ -static INLINE void set_cg_irg_visited(ir_graph *irg, ir_visited_t i) { +static inline void set_cg_irg_visited(ir_graph *irg, ir_visited_t i) +{ irg->self_visited = i; } /** * Returns the visited flag of a graph. */ -static INLINE ir_visited_t get_cg_irg_visited(ir_graph *irg) { +static inline ir_visited_t get_cg_irg_visited(ir_graph *irg) +{ return irg->self_visited; } -static INLINE void mark_irg_in_stack(ir_graph *irg) { +static inline void mark_irg_in_stack(ir_graph *irg) +{ scc_info *info = get_irg_link(irg); assert(info && "missing call to init_scc()"); info->in_stack = 1; } -static INLINE void mark_irg_not_in_stack(ir_graph *irg) { +static inline void mark_irg_not_in_stack(ir_graph *irg) +{ scc_info *info = get_irg_link(irg); assert(info && "missing call to init_scc()"); info->in_stack = 0; } -static INLINE int irg_is_in_stack(ir_graph *irg) { +static inline int irg_is_in_stack(ir_graph *irg) +{ scc_info *info = get_irg_link(irg); assert(info && "missing call to init_scc()"); return info->in_stack; } -static INLINE void set_irg_uplink(ir_graph *irg, int uplink) { +static inline void set_irg_uplink(ir_graph *irg, int uplink) +{ scc_info *info = get_irg_link(irg); assert(info && "missing call to init_scc()"); info->uplink = uplink; } -static INLINE int get_irg_uplink(ir_graph *irg) { +static inline int get_irg_uplink(ir_graph *irg) +{ scc_info *info = get_irg_link(irg); assert(info && "missing call to init_scc()"); return info->uplink; } -static INLINE void set_irg_dfn(ir_graph *irg, int dfn) { +static inline void set_irg_dfn(ir_graph *irg, int dfn) +{ scc_info *info = get_irg_link(irg); assert(info && "missing call to init_scc()"); info->dfn = dfn; } -static INLINE int get_irg_dfn(ir_graph *irg) { +static inline int get_irg_dfn(ir_graph *irg) +{ scc_info *info = get_irg_link(irg); assert(info && "missing call to init_scc()"); return info->dfn; @@ -517,7 +548,8 @@ static int tos = 0; /**< top of stack */ /** * Initialize the irg stack. */ -static INLINE void init_stack(void) { +static inline void init_stack(void) +{ if (stack) { ARR_RESIZE(ir_graph *, stack, 1000); } else { @@ -530,7 +562,8 @@ static INLINE void init_stack(void) { * push a graph on the irg stack * @param n the graph to be pushed */ -static INLINE void push(ir_graph *irg) { +static inline void push(ir_graph *irg) +{ if (tos == ARR_LEN(stack)) { int nlen = ARR_LEN(stack) * 2; ARR_RESIZE(ir_node *, stack, nlen); @@ -542,7 +575,8 @@ static INLINE void push(ir_graph *irg) { /** * return the topmost graph on the stack and pop it */ -static INLINE ir_graph *pop(void) { +static inline ir_graph *pop(void) +{ ir_graph *irg = stack[--tos]; mark_irg_not_in_stack(irg); return irg; @@ -552,7 +586,8 @@ static INLINE ir_graph *pop(void) { * The nodes up to irg belong to the current loop. * Removes them from the stack and adds them to the current loop. */ -static INLINE void pop_scc_to_loop(ir_graph *irg) { +static inline void pop_scc_to_loop(ir_graph *irg) +{ ir_graph *m; do { @@ -562,13 +597,14 @@ static INLINE void pop_scc_to_loop(ir_graph *irg) { add_loop_irg(current_loop, m); m->l = current_loop; //m->callgraph_loop_depth = current_loop->depth; - } while(m != irg); + } while (m != irg); } /* GL ??? my last son is my grandson??? Removes cfloops with no ir_nodes in them. Such loops have only another loop as son. (Why can't they have two loops as sons? Does it never get that far? ) */ -static void close_loop(ir_loop *l) { +static void close_loop(ir_loop *l) +{ int last = get_loop_n_elements(l) - 1; loop_element lelement = get_loop_element(l, last); ir_loop *last_son = lelement.son; @@ -594,7 +630,8 @@ static void close_loop(ir_loop *l) { * Removes and unmarks all nodes up to n from the stack. * The nodes must be visited once more to assign them to a scc. */ -static INLINE void pop_scc_unmark_visit(ir_graph *n) { +static inline void pop_scc_unmark_visit(ir_graph *n) +{ ir_graph *m = NULL; while (m != n) { @@ -611,7 +648,8 @@ static INLINE void pop_scc_unmark_visit(ir_graph *n) { * Allocates a new loop as son of current_loop. Sets current_loop * to the new loop and returns the father. */ -static ir_loop *new_loop(void) { +static ir_loop *new_loop(void) +{ ir_loop *father = current_loop; ir_loop *son = alloc_loop(father, outermost_ir_graph->obst); @@ -626,7 +664,8 @@ static ir_loop *new_loop(void) { /* Initialization steps. **********************************************/ -static void init_scc(struct obstack *obst) { +static void init_scc(struct obstack *obst) +{ int i; int n_irgs; @@ -648,7 +687,8 @@ static void init_scc(struct obstack *obst) { * * @param root: only needed for assertion. */ -static int is_head(ir_graph *n, ir_graph *root) { +static int is_head(ir_graph *n, ir_graph *root) +{ int i, arity; int some_outof_loop = 0, some_in_loop = 0; @@ -666,7 +706,7 @@ static int is_head(ir_graph *n, ir_graph *root) { } } - return some_outof_loop & some_in_loop; + return some_outof_loop && some_in_loop; } /** @@ -695,7 +735,7 @@ static int is_endless_head(ir_graph *n, ir_graph *root) some_in_loop = 1; } } - return !some_outof_loop & some_in_loop; + return !some_outof_loop && some_in_loop; } #ifdef INTERPROCEDURAL_VIEW @@ -758,7 +798,8 @@ static int smallest_dfn_pred(ir_graph *n, int limit) } /** Returns index of the predecessor with the largest dfn number. */ -static int largest_dfn_pred(ir_graph *n) { +static int largest_dfn_pred(ir_graph *n) +{ int i, index = -2, max = -1; int arity = get_irg_n_callees(n); @@ -775,7 +816,8 @@ static int largest_dfn_pred(ir_graph *n) { } #ifndef INTERPROCEDURAL_VIEW -static ir_graph *find_tail(ir_graph *n) { +static ir_graph *find_tail(ir_graph *n) +{ ir_graph *m; int i, res_index = -2; @@ -835,7 +877,8 @@ static ir_graph *find_tail(ir_graph *n) { return get_irg_callee(m, res_index); } #else -static ir_graph *find_tail(ir_graph *n) { +static ir_graph *find_tail(ir_graph *n) +{ ir_graph *m; int i, res_index = -2; @@ -908,7 +951,8 @@ static ir_graph *find_tail(ir_graph *n) { *-----------------------------------------------------------*/ -static void cgscc(ir_graph *n) { +static void cgscc(ir_graph *n) +{ int i, arity; if (cg_irg_visited(n)) return; @@ -929,7 +973,7 @@ static void cgscc(ir_graph *n) { /** This marks the backedge, but does it guarantee a correct loop tree? */ //if (m == n) { set_irg_callee_backedge(n, i); continue; } - cgscc (m); + cgscc(m); if (irg_is_in_stack(m)) { /* Uplink of m is smaller if n->m is a backedge. Propagate the uplink to mark the cfloop. */ @@ -982,7 +1026,8 @@ static void cgscc(ir_graph *n) { /** * reset the backedge information for all callers in all irgs */ -static void reset_isbe(void) { +static void reset_isbe(void) +{ int i, n_irgs = get_irp_n_irgs(); for (i = 0; i < n_irgs; ++i) { @@ -1004,7 +1049,8 @@ static void reset_isbe(void) { /* weight. Assign graphs the maximal depth. */ /* ----------------------------------------------------------------------------------- */ -static void compute_loop_depth(ir_graph *irg, void *env) { +static void compute_loop_depth(ir_graph *irg, void *env) +{ int current_nesting = *(int *) env; int old_nesting = irg->callgraph_loop_depth; ir_visited_t old_visited = get_cg_irg_visited(irg); @@ -1058,7 +1104,8 @@ typedef struct ana_entry2 { /** * push a loop entry on the stack */ -static void push2(ana_entry2 *e, ir_loop *g) { +static void push2(ana_entry2 *e, ir_loop *g) +{ if (ARR_LEN(e->loop_stack) == e->tos) { ARR_APP1(ir_loop *, e->loop_stack, g); } else { @@ -1070,14 +1117,16 @@ static void push2(ana_entry2 *e, ir_loop *g) { /** * returns the top of stack and pop it */ -static ir_loop *pop2(ana_entry2 *e) { +static ir_loop *pop2(ana_entry2 *e) +{ return e->loop_stack[--e->tos]; } /** * check if a loop g in on the stack. Did not check the TOS. */ -static int in_stack(ana_entry2 *e, ir_loop *g) { +static int in_stack(ana_entry2 *e, ir_loop *g) +{ int i; for (i = e->tos-1; i >= 0; --i) { if (e->loop_stack[i] == g) return 1; @@ -1085,7 +1134,8 @@ static int in_stack(ana_entry2 *e, ir_loop *g) { return 0; } -static void compute_rec_depth(ir_graph *irg, void *env) { +static void compute_rec_depth(ir_graph *irg, void *env) +{ ana_entry2 *e = (ana_entry2 *)env; ir_loop *l = irg->l; int depth, old_depth = irg->callgraph_recursion_depth; @@ -1137,7 +1187,8 @@ static void compute_rec_depth(ir_graph *irg, void *env) { /* ----------------------------------------------------------------------------------- */ /* Returns the method execution frequency of a graph. */ -double get_irg_method_execution_frequency(ir_graph *irg) { +double get_irg_method_execution_frequency(const ir_graph *irg) +{ return irg->method_execution_frequency; } @@ -1145,14 +1196,16 @@ double get_irg_method_execution_frequency(ir_graph *irg) { * Increase the method execution frequency to freq if its current value is * smaller then this. */ -static void set_irg_method_execution_frequency(ir_graph *irg, double freq) { +static void set_irg_method_execution_frequency(ir_graph *irg, double freq) +{ irg->method_execution_frequency = freq; if (irp->max_method_execution_frequency < freq) irp->max_method_execution_frequency = freq; } -static void compute_method_execution_frequency(ir_graph *irg, void *env) { +static void compute_method_execution_frequency(ir_graph *irg, void *env) +{ int i, n_callers; double freq; int found_edge; @@ -1209,8 +1262,9 @@ static void compute_method_execution_frequency(ir_graph *irg, void *env) { /* ----------------------------------------------------------------------------------- */ /* Compute the backedges that represent recursions. */ -void find_callgraph_recursions(void) { - int i, n_irgs = get_irp_n_irgs(); +void find_callgraph_recursions(void) +{ + int i, n_irgs; struct obstack temp; reset_isbe(); @@ -1231,6 +1285,7 @@ void find_callgraph_recursions(void) { ++master_cg_visited; cgscc(outermost_ir_graph); + n_irgs = get_irp_n_irgs(); for (i = 0; i < n_irgs; ++i) { ir_graph *irg = get_irp_irg(i); if (!cg_irg_visited(irg) && get_irg_n_callers(irg) == 0) @@ -1260,7 +1315,8 @@ void find_callgraph_recursions(void) { } /* Compute interprocedural performance estimates. */ -void compute_performance_estimates(void) { +void compute_performance_estimates(void) +{ int i, n_irgs = get_irp_n_irgs(); int current_nesting; ana_entry2 e; @@ -1340,7 +1396,8 @@ void compute_performance_estimates(void) { /* Returns the maximal loop depth of all paths from an external visible method to this irg. */ -int get_irg_loop_depth(ir_graph *irg) { +int get_irg_loop_depth(const ir_graph *irg) +{ assert(irp->callgraph_state == irp_callgraph_consistent || irp->callgraph_state == irp_callgraph_and_calltree_consistent); return irg->callgraph_loop_depth; @@ -1348,13 +1405,15 @@ int get_irg_loop_depth(ir_graph *irg) { /* Returns the maximal recursion depth of all paths from an external visible method to this irg. */ -int get_irg_recursion_depth(ir_graph *irg) { +int get_irg_recursion_depth(const ir_graph *irg) +{ assert(irp->callgraph_state == irp_callgraph_and_calltree_consistent); return irg->callgraph_recursion_depth; } /* Computes the interprocedural loop nesting information. */ -void analyse_loop_nesting_depth(void) { +void analyse_loop_nesting_depth(void) +{ ir_entity **free_methods = NULL; int arr_len; @@ -1374,13 +1433,16 @@ void analyse_loop_nesting_depth(void) { set_irp_loop_nesting_depth_state(loop_nesting_depth_consistent); } -loop_nesting_depth_state get_irp_loop_nesting_depth_state(void) { +loop_nesting_depth_state get_irp_loop_nesting_depth_state(void) +{ return irp->lnd_state; } -void set_irp_loop_nesting_depth_state(loop_nesting_depth_state s) { +void set_irp_loop_nesting_depth_state(loop_nesting_depth_state s) +{ irp->lnd_state = s; } -void set_irp_loop_nesting_depth_state_inconsistent(void) { +void set_irp_loop_nesting_depth_state_inconsistent(void) +{ if (irp->lnd_state == loop_nesting_depth_consistent) irp->lnd_state = loop_nesting_depth_inconsistent; }