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 "corefile.h" 22 #include "hist.h" 23 #include "symtab.h" 24 25 26 int 27 DEFUN (i386_iscall, (ip), unsigned char *ip) 28 { 29 if (*ip == 0xe8) 30 return 1; 31 return 0; 32 } 33 34 35 void 36 i386_find_call (parent, p_lowpc, p_highpc) 37 Sym *parent; 38 bfd_vma p_lowpc; 39 bfd_vma p_highpc; 40 { 41 unsigned char *instructp; 42 Sym *child; 43 bfd_vma destpc, delta; 44 45 if (core_text_space == 0) 46 { 47 return; 48 } 49 if (p_lowpc < s_lowpc) 50 { 51 p_lowpc = s_lowpc; 52 } 53 if (p_highpc > s_highpc) 54 { 55 p_highpc = s_highpc; 56 } 57 DBG (CALLDEBUG, printf ("[findcall] %s: 0x%lx to 0x%lx\n", 58 parent->name, (unsigned long) p_lowpc, 59 (unsigned long) p_highpc)); 60 61 delta = (bfd_vma) core_text_space - core_text_sect->vma; 62 63 for (instructp = (unsigned char *) (p_lowpc + delta); 64 instructp < (unsigned char *) (p_highpc + delta); 65 instructp ++) 66 { 67 if (i386_iscall (instructp)) 68 { 69 DBG (CALLDEBUG, 70 printf ("[findcall]\t0x%lx:call", 71 (unsigned long) (instructp - (unsigned char *) delta))); 72 /* 73 * regular pc relative addressing 74 * check that this is the address of 75 * a function. 76 */ 77 78 destpc = ((bfd_vma) bfd_get_32 (core_bfd, instructp + 1) 79 + (bfd_vma) instructp - (bfd_vma) delta + 5); 80 if (destpc >= s_lowpc && destpc <= s_highpc) 81 { 82 child = sym_lookup (&symtab, destpc); 83 if (child && child->addr == destpc) 84 { 85 /* 86 * a hit 87 */ 88 DBG (CALLDEBUG, 89 printf ("\tdestpc 0x%lx (%s)\n", 90 (unsigned long) destpc, child->name)); 91 arc_add (parent, child, (unsigned long) 0); 92 instructp += 4; /* call is a 5 byte instruction */ 93 continue; 94 } 95 } 96 /* 97 * else: 98 * it looked like a callf, but it: 99 * a) wasn't actually a callf, or 100 * b) didn't point to a known function in the symtab, or 101 * c) something funny is going on. 102 */ 103 DBG (CALLDEBUG, printf ("\tbut it's a botch\n")); 104 } 105 } 106 } 107