#include "gprof.h"
#include "search_list.h"
#include "source.h"
#include "symtab.h"
#include "cg_arcs.h"
#include "call_graph.h"
#include "corefile.h"
#include "gmon_io.h"
#include "gmon_out.h"
#include "sym_ids.h"
void
cg_tally (bfd_vma from_pc, bfd_vma self_pc, 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;
while (child >= symtab.base && ! child->is_func)
--child;
if (child < symtab.base)
return;
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);
}
}
void
cg_read_rec (FILE *ifp, const char *filename)
{
bfd_vma from_pc, self_pc;
unsigned int count;
if (gmon_io_read_vma (ifp, &from_pc)
|| gmon_io_read_vma (ifp, &self_pc)
|| gmon_io_read_32 (ifp, &count))
{
fprintf (stderr, _("%s: %s: unexpected end of file\n"),
whoami, filename);
done (1);
}
DBG (SAMPLEDEBUG,
printf ("[cg_read_rec] frompc 0x%lx selfpc 0x%lx count %lu\n",
(unsigned long) from_pc, (unsigned long) self_pc,
(unsigned long) count));
cg_tally (from_pc, self_pc, count);
}
void
cg_write_arcs (FILE *ofp, const char *filename)
{
Arc *arc;
Sym *sym;
for (sym = symtab.base; sym < symtab.limit; sym++)
{
for (arc = sym->cg.children; arc; arc = arc->next_child)
{
if (gmon_io_write_8 (ofp, GMON_TAG_CG_ARC)
|| gmon_io_write_vma (ofp, arc->parent->addr)
|| gmon_io_write_vma (ofp, arc->child->addr)
|| gmon_io_write_32 (ofp, arc->count))
{
perror (filename);
done (1);
}
DBG (SAMPLEDEBUG,
printf ("[cg_write_arcs] frompc 0x%lx selfpc 0x%lx count %lu\n",
(unsigned long) arc->parent->addr,
(unsigned long) arc->child->addr, arc->count));
}
}
}