117 lines
3.4 KiB
C
117 lines
3.4 KiB
C
|
#include "cg_arcs.h"
|
||
|
#include "call_graph.h"
|
||
|
#include "corefile.h"
|
||
|
#include "gmon_io.h"
|
||
|
#include "gmon_out.h"
|
||
|
#include "symtab.h"
|
||
|
#include "sym_ids.h"
|
||
|
|
||
|
extern void
|
||
|
DEFUN (cg_tally, (from_pc, self_pc, count),
|
||
|
bfd_vma from_pc AND bfd_vma self_pc AND unsigned long count)
|
||
|
{
|
||
|
Sym *parent;
|
||
|
Sym *child;
|
||
|
|
||
|
parent = sym_lookup (&symtab, from_pc);
|
||
|
child = sym_lookup (&symtab, self_pc);
|
||
|
|
||
|
if (child == NULL || parent == NULL)
|
||
|
return;
|
||
|
|
||
|
/* If we're doing line-by-line profiling, both the parent and the
|
||
|
child will probably point to line symbols instead of function
|
||
|
symbols. For the parent this is fine, since this identifies the
|
||
|
line number in the calling routing, but the child should always
|
||
|
point to a function entry point, so we back up in the symbol
|
||
|
table until we find it.
|
||
|
|
||
|
For normal profiling, is_func will be set on all symbols, so this
|
||
|
code will do nothing. */
|
||
|
|
||
|
while (child >= symtab.base && ! child->is_func)
|
||
|
--child;
|
||
|
|
||
|
if (child < symtab.base)
|
||
|
return;
|
||
|
|
||
|
/*
|
||
|
* Keep arc if it is on INCL_ARCS table or if the INCL_ARCS table
|
||
|
* is empty and it is not in the EXCL_ARCS table.
|
||
|
*/
|
||
|
if (sym_id_arc_is_present (&syms[INCL_ARCS], parent, child)
|
||
|
|| (syms[INCL_ARCS].len == 0
|
||
|
&& !sym_id_arc_is_present (&syms[EXCL_ARCS], parent, child)))
|
||
|
{
|
||
|
child->ncalls += count;
|
||
|
DBG (TALLYDEBUG,
|
||
|
printf (_("[cg_tally] arc from %s to %s traversed %lu times\n"),
|
||
|
parent->name, child->name, count));
|
||
|
arc_add (parent, child, count);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
/*
|
||
|
* Read a record from file IFP describing an arc in the function
|
||
|
* call-graph and the count of how many times the arc has been
|
||
|
* traversed. FILENAME is the name of file IFP and is provided
|
||
|
* for formatting error-messages only.
|
||
|
*/
|
||
|
void
|
||
|
DEFUN (cg_read_rec, (ifp, filename), FILE * ifp AND CONST char *filename)
|
||
|
{
|
||
|
bfd_vma from_pc, self_pc;
|
||
|
struct gmon_cg_arc_record arc;
|
||
|
unsigned long count;
|
||
|
|
||
|
if (fread (&arc, sizeof (arc), 1, ifp) != 1)
|
||
|
{
|
||
|
fprintf (stderr, _("%s: %s: unexpected end of file\n"),
|
||
|
whoami, filename);
|
||
|
done (1);
|
||
|
}
|
||
|
from_pc = get_vma (core_bfd, (bfd_byte *) arc.from_pc);
|
||
|
self_pc = get_vma (core_bfd, (bfd_byte *) arc.self_pc);
|
||
|
count = bfd_get_32 (core_bfd, (bfd_byte *) arc.count);
|
||
|
DBG (SAMPLEDEBUG,
|
||
|
printf ("[cg_read_rec] frompc 0x%lx selfpc 0x%lx count %lu\n",
|
||
|
from_pc, self_pc, count));
|
||
|
/* add this arc: */
|
||
|
cg_tally (from_pc, self_pc, count);
|
||
|
}
|
||
|
|
||
|
|
||
|
/*
|
||
|
* Write all the arcs in the call-graph to file OFP. FILENAME is
|
||
|
* the name of OFP and is provided for formatting error-messages
|
||
|
* only.
|
||
|
*/
|
||
|
void
|
||
|
DEFUN (cg_write_arcs, (ofp, filename), FILE * ofp AND const char *filename)
|
||
|
{
|
||
|
const unsigned char tag = GMON_TAG_CG_ARC;
|
||
|
struct gmon_cg_arc_record raw_arc;
|
||
|
Arc *arc;
|
||
|
Sym *sym;
|
||
|
|
||
|
for (sym = symtab.base; sym < symtab.limit; sym++)
|
||
|
{
|
||
|
for (arc = sym->cg.children; arc; arc = arc->next_child)
|
||
|
{
|
||
|
put_vma (core_bfd, arc->parent->addr, (bfd_byte *) raw_arc.from_pc);
|
||
|
put_vma (core_bfd, arc->child->addr, (bfd_byte *) raw_arc.self_pc);
|
||
|
bfd_put_32 (core_bfd, arc->count, (bfd_byte *) raw_arc.count);
|
||
|
if (fwrite (&tag, sizeof (tag), 1, ofp) != 1
|
||
|
|| fwrite (&raw_arc, sizeof (raw_arc), 1, ofp) != 1)
|
||
|
{
|
||
|
perror (filename);
|
||
|
done (1);
|
||
|
}
|
||
|
DBG (SAMPLEDEBUG,
|
||
|
printf ("[cg_write_arcs] frompc 0x%lx selfpc 0x%lx count %lu\n",
|
||
|
arc->parent->addr, arc->child->addr, arc->count));
|
||
|
}
|
||
|
}
|
||
|
}
|