binutils-gdb/gprof/cg_dfn.c

299 lines
6.9 KiB
C
Raw Normal View History

1999-05-03 09:29:11 +02:00
/*
* Copyright (c) 1983 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that: (1) source distributions retain this entire copyright
* notice and comment, and (2) distributions including binaries display
* the following acknowledgement: ``This product includes software
* developed by the University of California, Berkeley and its contributors''
* in the documentation or other materials provided with the distribution
* and in all advertising materials mentioning features or use of this
* software. Neither the name of the University nor the names of its
* contributors may be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#include "libiberty.h"
1999-05-03 09:29:11 +02:00
#include "gprof.h"
* alpha.c (alpha_Instruction): Don't use. (alpha_find_call): Avoid use of bitfields and casts between pointers and integers of different sizes. Avoid endian problems when cross-compiling. * vax.c (vax_find_call): Likewise. (struct modebyte): Don't use. (vax_operandmode): Pass in an unsigned char *. (vax_operandlength): Likewise. (vax_reladdr): Rename to vax_offset and return relative offset rather than address. * i386.c (i386_find_call): Avoid casts between pointers and integers of different sizes. * sparc.c (sparc_find_call): Likewise. Avoid endian problems. * tahoe.c (tahoe_find_call): Likewise. (tahoe_reladdr): Rename to tahoe_offset and return relative offset rather than address. * basic_blocks.h: Don't include headers here. * call_graph.h: Likewise. * cg_arcs.h: Likewise. * cg_print.h: Likewise. * corefile.h: Likewise. * gmon_io.h: Likewise. * gmon_out.h: Likewise. * hertz.h: Likewise. * hist.h: Likewise. * source.h: Likewise. * sym_ids.h: Likewise. * symtab.h: Likewise. * gprof.h: Don't include ansidecl.h, do include bfd.h. (bool): Don't typedef. * alpha.c: Adjust #include's for above header changes. * basic_blocks.c: Likewise. * call_graph.c: Likewise. * cg_arcs.c: Likewise. * cg_dfn.c: Likewise. * cg_print.c: Likewise. * corefile.c: Likewise. * gmon_io.c: Likewise. * gprof.c: Likewise. * hertz.c: Likewise. * hist.c: Likewise. * i386.c: Likewise. * mips.c: Likewise. * sparc.c: Likewise. * sym_ids.c: Likewise. * symtab.c: Likewise. * tahoe.c: Likewise. * utils.c: Likewise. * vax.c: Likewise. * po/POTFILES.in: Regenerate.
2002-01-31 13:56:08 +01:00
#include "search_list.h"
#include "source.h"
#include "symtab.h"
1999-05-03 09:29:11 +02:00
#include "cg_arcs.h"
#include "cg_dfn.h"
#include "utils.h"
#define DFN_INCR_DEPTH (128)
1999-05-03 09:29:11 +02:00
typedef struct
{
Sym *sym;
int cycle_top;
}
DFN_Stack;
static boolean is_numbered PARAMS ((Sym *));
static boolean is_busy PARAMS ((Sym *));
static void find_cycle PARAMS ((Sym *));
static void pre_visit PARAMS ((Sym *));
static void post_visit PARAMS ((Sym *));
DFN_Stack *dfn_stack = NULL;
int dfn_maxdepth = 0;
1999-05-03 09:29:11 +02:00
int dfn_depth = 0;
int dfn_counter = DFN_NAN;
/*
* Is CHILD already numbered?
*/
static boolean
is_numbered (child)
Sym *child;
1999-05-03 09:29:11 +02:00
{
return child->cg.top_order != DFN_NAN && child->cg.top_order != DFN_BUSY;
}
/*
* Is CHILD already busy?
*/
static boolean
is_busy (child)
Sym *child;
1999-05-03 09:29:11 +02:00
{
if (child->cg.top_order == DFN_NAN)
{
return false;
1999-05-03 09:29:11 +02:00
}
return true;
1999-05-03 09:29:11 +02:00
}
/*
* CHILD is part of a cycle. Find the top caller into this cycle
* that is not part of the cycle and make all functions in cycle
* members of that cycle (top caller == caller with smallest
* depth-first number).
*/
static void
find_cycle (child)
Sym *child;
1999-05-03 09:29:11 +02:00
{
Sym *head = 0;
Sym *tail;
int cycle_top;
int index;
for (cycle_top = dfn_depth; cycle_top > 0; --cycle_top)
{
head = dfn_stack[cycle_top].sym;
if (child == head)
{
break;
}
if (child->cg.cyc.head != child && child->cg.cyc.head == head)
{
break;
}
}
if (cycle_top <= 0)
{
fprintf (stderr, "[find_cycle] couldn't find head of cycle\n");
done (1);
}
#ifdef DEBUG
if (debug_level & DFNDEBUG)
{
printf ("[find_cycle] dfn_depth %d cycle_top %d ",
dfn_depth, cycle_top);
if (head)
{
print_name (head);
}
else
{
printf ("<unknown>");
}
printf ("\n");
}
#endif
if (cycle_top == dfn_depth)
{
/*
* This is previous function, e.g. this calls itself. Sort of
* boring.
*
* Since we are taking out self-cycles elsewhere no need for
* the special case, here.
*/
DBG (DFNDEBUG,
printf ("[find_cycle] ");
print_name (child);
printf ("\n"));
}
else
{
/*
* Glom intervening functions that aren't already glommed into
* this cycle. Things have been glommed when their cyclehead
* field points to the head of the cycle they are glommed
* into.
*/
for (tail = head; tail->cg.cyc.next; tail = tail->cg.cyc.next)
{
/* void: chase down to tail of things already glommed */
DBG (DFNDEBUG,
printf ("[find_cycle] tail ");
print_name (tail);
printf ("\n"));
}
/*
* If what we think is the top of the cycle has a cyclehead
* field, then it's not really the head of the cycle, which is
* really what we want.
*/
if (head->cg.cyc.head != head)
{
head = head->cg.cyc.head;
DBG (DFNDEBUG, printf ("[find_cycle] new cyclehead ");
print_name (head);
printf ("\n"));
}
for (index = cycle_top + 1; index <= dfn_depth; ++index)
{
child = dfn_stack[index].sym;
if (child->cg.cyc.head == child)
{
/*
* Not yet glommed anywhere, glom it and fix any
* children it has glommed.
*/
tail->cg.cyc.next = child;
child->cg.cyc.head = head;
DBG (DFNDEBUG, printf ("[find_cycle] glomming ");
print_name (child);
printf (" onto ");
print_name (head);
printf ("\n"));
for (tail = child; tail->cg.cyc.next; tail = tail->cg.cyc.next)
{
tail->cg.cyc.next->cg.cyc.head = head;
DBG (DFNDEBUG, printf ("[find_cycle] and its tail ");
print_name (tail->cg.cyc.next);
printf (" onto ");
print_name (head);
printf ("\n"));
}
}
else if (child->cg.cyc.head != head /* firewall */ )
{
fprintf (stderr, "[find_cycle] glommed, but not to head\n");
done (1);
}
}
}
}
/*
* Prepare for visiting the children of PARENT. Push a parent onto
* the stack and mark it busy.
*/
static void
pre_visit (parent)
Sym *parent;
1999-05-03 09:29:11 +02:00
{
++dfn_depth;
if (dfn_depth >= dfn_maxdepth)
1999-05-03 09:29:11 +02:00
{
dfn_maxdepth += DFN_INCR_DEPTH;
dfn_stack = xrealloc (dfn_stack, dfn_maxdepth * sizeof *dfn_stack);
1999-05-03 09:29:11 +02:00
}
1999-05-03 09:29:11 +02:00
dfn_stack[dfn_depth].sym = parent;
dfn_stack[dfn_depth].cycle_top = dfn_depth;
parent->cg.top_order = DFN_BUSY;
DBG (DFNDEBUG, printf ("[pre_visit]\t\t%d:", dfn_depth);
print_name (parent);
printf ("\n"));
}
/*
* Done with visiting node PARENT. Pop PARENT off dfn_stack
* and number functions if PARENT is head of a cycle.
*/
static void
post_visit (parent)
Sym *parent;
1999-05-03 09:29:11 +02:00
{
Sym *member;
DBG (DFNDEBUG, printf ("[post_visit]\t%d: ", dfn_depth);
print_name (parent);
printf ("\n"));
/*
* Number functions and things in their cycles unless the function
* is itself part of a cycle:
*/
if (parent->cg.cyc.head == parent)
{
++dfn_counter;
for (member = parent; member; member = member->cg.cyc.next)
{
member->cg.top_order = dfn_counter;
DBG (DFNDEBUG, printf ("[post_visit]\t\tmember ");
print_name (member);
printf ("-> cg.top_order = %d\n", dfn_counter));
}
}
else
{
DBG (DFNDEBUG, printf ("[post_visit]\t\tis part of a cycle\n"));
}
--dfn_depth;
}
/*
* Given this PARENT, depth first number its children.
*/
void
cg_dfn (parent)
Sym *parent;
1999-05-03 09:29:11 +02:00
{
Arc *arc;
DBG (DFNDEBUG, printf ("[dfn] dfn( ");
print_name (parent);
printf (")\n"));
/*
* If we're already numbered, no need to look any further:
*/
if (is_numbered (parent))
{
return;
}
/*
* If we're already busy, must be a cycle:
*/
if (is_busy (parent))
{
find_cycle (parent);
return;
}
pre_visit (parent);
/*
* Recursively visit children:
*/
for (arc = parent->cg.children; arc; arc = arc->next_child)
{
cg_dfn (arc->child);
}
post_visit (parent);
}