gprof/sparc.c

   1 /*
   2  * Copyright (c) 1983 Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms are permitted
   6  * provided that: (1) source distributions retain this entire copyright
   7  * notice and comment, and (2) distributions including binaries display
   8  * the following acknowledgement:  ``This product includes software
   9  * developed by the University of California, Berkeley and its contributors''
  10  * in the documentation or other materials provided with the distribution
  11  * and in all advertising materials mentioning features or use of this
  12  * software. Neither the name of the University nor the names of its
  13  * contributors may be used to endorse or promote products derived
  14  * from this software without specific prior written permission.
  15  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  16  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  17  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  18  */
  19 #include "gprof.h"
  20 #include "cg_arcs.h"
  21 #include "core.h"
  22 #include "hist.h"
  23 #include "symtab.h"
  24
  25
  26 void
  27 find_call (parent, p_lowpc, p_highpc)
  28      Sym *parent;
  29      bfd_vma p_lowpc;
  30      bfd_vma p_highpc;
  31 {
  32   bfd_vma dest_pc, delta;
  33   unsigned int *instr;
  34   Sym *child;
  35
  36   delta = (bfd_vma) core_text_space - core_text_sect->vma;
  37
  38   if (core_text_space == 0)
  39     {
  40       return;
  41     }
  42   if (p_lowpc < s_lowpc)
  43     {
  44       p_lowpc = s_lowpc;
  45     }
  46   if (p_highpc > s_highpc)
  47     {
  48       p_highpc = s_highpc;
  49     }
  50   DBG (CALLDEBUG, printf ("[find_call] %s: 0x%lx to 0x%lx\n",
  51                           parent->name, p_lowpc, p_highpc));
  52   for (instr = (unsigned int *) (p_lowpc + delta);
  53        instr < (unsigned int *) (p_highpc + delta);
  54        ++instr)
  55     {
  56       if ((*instr & CALL))
  57         {
  58           DBG (CALLDEBUG,
  59                printf ("[find_call] 0x%lx: callf", (bfd_vma) instr - delta));
  60           /*
  61            * Regular pc relative addressing check that this is the
  62            * address of a function.
  63            */
  64           dest_pc = ((bfd_vma) (instr + (*instr & ~CALL))) - delta;
  65           if (dest_pc >= s_lowpc && dest_pc <= s_highpc)
  66             {
  67               child = sym_lookup (&symtab, dest_pc);
  68               DBG (CALLDEBUG,
  69                    printf ("\tdest_pc=0x%lx, (name=%s, addr=0x%lx)\n",
  70                            dest_pc, child->name, child->addr));
  71               if (child->addr == dest_pc)
  72                 {
  73                   /* a hit:  */
  74                   arc_add (parent, child, 0);
  75                   continue;
  76                 }
  77             }
  78           /*
  79            * Something funny going on.
  80            */
  81           DBG (CALLDEBUG, printf ("\tbut it's a botch\n"));
  82         }
  83     }
  84 }