home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / binutils-2.7-src.tgz / tar.out / fsf / binutils / gprof / call_graph.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  3KB  |  98 lines
  1. #include "cg_arcs.h"
  2. #include "call_graph.h"
  3. #include "core.h"
  4. #include "gmon_io.h"
  5. #include "gmon_out.h"
  6. #include "symtab.h"
  7. #include "sym_ids.h"
  8.  
  9. extern void
  10. DEFUN (cg_tally, (from_pc, self_pc, count),
  11.        bfd_vma from_pc AND bfd_vma self_pc AND int count)
  12. {
  13.   Sym *parent;
  14.   Sym *child;
  15.  
  16.   parent = sym_lookup (&symtab, from_pc);
  17.   child = sym_lookup (&symtab, self_pc);
  18.  
  19.   /*
  20.    * Keep arc if it is on INCL_ARCS table or if the INCL_ARCS table
  21.    * is empty and it is not in the EXCL_ARCS table.
  22.    */
  23.   if (sym_id_arc_is_present (&syms[INCL_ARCS], parent, child)
  24.       || (syms[INCL_ARCS].len == 0
  25.       && !sym_id_arc_is_present (&syms[EXCL_ARCS], parent, child)))
  26.     {
  27.       child->ncalls += count;
  28.       DBG (TALLYDEBUG,
  29.        printf ("[cg_tally] arc from %s to %s traversed %d times\n",
  30.            parent->name, child->name, count));
  31.       arc_add (parent, child, count);
  32.     }
  33. }
  34.  
  35.  
  36. /*
  37.  * Read a record from file IFP describing an arc in the function
  38.  * call-graph and the count of how many times the arc has been
  39.  * traversed.  FILENAME is the name of file IFP and is provided
  40.  * for formatting error-messages only.
  41.  */
  42. void
  43. DEFUN (cg_read_rec, (ifp, filename), FILE * ifp AND CONST char *filename)
  44. {
  45.   bfd_vma from_pc, self_pc;
  46.   struct gmon_cg_arc_record arc;
  47.   int count;
  48.  
  49.   if (fread (&arc, sizeof (arc), 1, ifp) != 1)
  50.     {
  51.       fprintf (stderr, "%s: %s: unexpected end of file\n",
  52.            whoami, filename);
  53.       done (1);
  54.     }
  55.   from_pc = get_vma (core_bfd, (bfd_byte *) arc.from_pc);
  56.   self_pc = get_vma (core_bfd, (bfd_byte *) arc.self_pc);
  57.   count = bfd_get_32 (core_bfd, (bfd_byte *) arc.count);
  58.   DBG (SAMPLEDEBUG,
  59.        printf ("[cg_read_rec] frompc 0x%lx selfpc 0x%lx count %d\n",
  60.            from_pc, self_pc, count));
  61.   /* add this arc: */
  62.   cg_tally (from_pc, self_pc, count);
  63. }
  64.  
  65.  
  66. /*
  67.  * Write all the arcs in the call-graph to file OFP.  FILENAME is
  68.  * the name of OFP and is provided for formatting error-messages
  69.  * only.
  70.  */
  71. void
  72. DEFUN (cg_write_arcs, (ofp, filename), FILE * ofp AND const char *filename)
  73. {
  74.   const unsigned char tag = GMON_TAG_CG_ARC;
  75.   struct gmon_cg_arc_record raw_arc;
  76.   Arc *arc;
  77.   Sym *sym;
  78.  
  79.   for (sym = symtab.base; sym < symtab.limit; sym++)
  80.     {
  81.       for (arc = sym->cg.children; arc; arc = arc->next_child)
  82.     {
  83.       put_vma (core_bfd, arc->parent->addr, (bfd_byte *) raw_arc.from_pc);
  84.       put_vma (core_bfd, arc->child->addr, (bfd_byte *) raw_arc.self_pc);
  85.       bfd_put_32 (core_bfd, arc->count, (bfd_byte *) raw_arc.count);
  86.       if (fwrite (&tag, sizeof (tag), 1, ofp) != 1
  87.           || fwrite (&raw_arc, sizeof (raw_arc), 1, ofp) != 1)
  88.         {
  89.           perror (filename);
  90.           done (1);
  91.         }
  92.       DBG (SAMPLEDEBUG,
  93.          printf ("[cg_write_arcs] frompc 0x%lx selfpc 0x%lx count %d\n",
  94.              arc->parent->addr, arc->child->addr, arc->count));
  95.     }
  96.     }
  97. }
  98.