X-Git-Url: http://review.tizen.org/git/?a=blobdiff_plain;f=gprof%2Fvax.c;h=99719b9fb7e110d2f4204d15329a9805b809416e;hb=73be91977dd887dc978c368268b84ad36c226125;hp=020409cba6f0137b05f347e58c82c042f5c22d58;hpb=fa803dc60f0bf01297674c41d001798e18ade4dc;p=platform%2Fupstream%2Fbinutils.git diff --git a/gprof/vax.c b/gprof/vax.c index 020409c..99719b9 100644 --- a/gprof/vax.c +++ b/gprof/vax.c @@ -1,26 +1,38 @@ /* - * Copyright (c) 1983 Regents of the University of California. - * All rights reserved. + * Copyright (c) 1983, 1993, 2001 + * The Regents of the University of California. All rights reserved. * - * Redistribution and use in source and binary forms are permitted - * provided that: (1) source distributions retain this entire copyright - * notice and comment, and (2) distributions including binaries display - * the following acknowledgement: ``This product includes software - * developed by the University of California, Berkeley and its contributors'' - * in the documentation or other materials provided with the distribution - * and in all advertising materials mentioning features or use of this - * software. Neither the name of the University nor the names of its - * contributors may be used to endorse or promote products derived - * from this software without specific prior written permission. - * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR - * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED - * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. */ #include "gprof.h" +#include "search_list.h" +#include "source.h" +#include "symtab.h" #include "cg_arcs.h" -#include "core.h" +#include "corefile.h" #include "hist.h" -#include "symtab.h" /* * opcode of the `calls' instruction @@ -41,25 +53,35 @@ enum opermodes }; typedef enum opermodes operandenum; -struct modebyte - { - unsigned int regfield:4; - unsigned int modefield:4; - }; +/* *INDENT-OFF* */ +/* Here to document only. We can't use this when cross compiling as + the bitfield layout might not be the same as native. + + struct modebyte + { + unsigned int regfield:4; + unsigned int modefield:4; + }; +*/ +/* *INDENT-ON* */ /* * A symbol to be the child of indirect calls: */ -Sym indirectchild; +static Sym indirectchild; +static operandenum vax_operandmode (unsigned char *); +static char *vax_operandname (operandenum); +static long vax_operandlength (unsigned char *); +static bfd_signed_vma vax_offset (unsigned char *); +void vax_find_call (Sym *, bfd_vma, bfd_vma); static operandenum -vax_operandmode (modep) - struct modebyte *modep; +vax_operandmode (unsigned char *modep) { - long usesreg = modep->regfield; + int usesreg = *modep & 0xf; - switch (modep->modefield) + switch ((*modep >> 4) & 0xf) { case 0: case 1: @@ -96,8 +118,7 @@ vax_operandmode (modep) } static char * -vax_operandname (mode) - operandenum mode; +vax_operandname (operandenum mode) { switch (mode) @@ -150,8 +171,7 @@ vax_operandname (mode) } static long -vax_operandlength (modep) - struct modebyte *modep; +vax_operandlength (unsigned char *modep) { switch (vax_operandmode (modep)) @@ -181,53 +201,43 @@ vax_operandlength (modep) case longreldef: return 5; case indexed: - return 1 + vax_operandlength ((struct modebyte *) ((char *) modep) + 1); + return 1 + vax_operandlength (modep + 1); } /* NOTREACHED */ abort (); } -static bfd_vma -vax_reladdr (modep) - struct modebyte *modep; +static bfd_signed_vma +vax_offset (unsigned char *modep) { operandenum mode = vax_operandmode (modep); - char *cp; - short *sp; - long *lp; - cp = (char *) modep; - ++cp; /* skip over the mode */ + ++modep; /* skip over the mode */ switch (mode) { default: fprintf (stderr, "[reladdr] not relative address\n"); - return (bfd_vma) modep; + return 0; case byterel: - return (bfd_vma) (cp + sizeof *cp + *cp); + return 1 + bfd_get_signed_8 (core_bfd, modep); case wordrel: - sp = (short *) cp; - return (bfd_vma) (cp + sizeof *sp + *sp); + return 2 + bfd_get_signed_16 (core_bfd, modep); case longrel: - lp = (long *) cp; - return (bfd_vma) (cp + sizeof *lp + *lp); + return 4 + bfd_get_signed_32 (core_bfd, modep); } } void -vax_find_call (parent, p_lowpc, p_highpc) - Sym *parent; - bfd_vma p_lowpc; - bfd_vma p_highpc; +vax_find_call (Sym *parent, bfd_vma p_lowpc, bfd_vma p_highpc) { unsigned char *instructp; long length; Sym *child; operandenum mode; operandenum firstmode; - bfd_vma destpc; - static bool inited = FALSE; + bfd_vma pc, destpc; + static bfd_boolean inited = FALSE; if (!inited) { @@ -237,35 +247,23 @@ vax_find_call (parent, p_lowpc, p_highpc) indirectchild.cg.cyc.head = &indirectchild; } - if (core_text_space == 0) - { - return; - } - if (p_lowpc < s_lowpc) - { - p_lowpc = s_lowpc; - } - if (p_highpc > s_highpc) - { - p_highpc = s_highpc; - } DBG (CALLDEBUG, printf ("[findcall] %s: 0x%lx to 0x%lx\n", - parent->name, p_lowpc, p_highpc)); - for (instructp = (unsigned char *) core_text_space + p_lowpc; - instructp < (unsigned char *) core_text_space + p_highpc; - instructp += length) + parent->name, (unsigned long) p_lowpc, + (unsigned long) p_highpc)); + for (pc = p_lowpc; pc < p_highpc; pc += length) { length = 1; - if (*instructp == CALLS) + instructp = ((unsigned char *) core_text_space + + pc - core_text_sect->vma); + if ((*instructp & 0xff) == CALLS) { /* * maybe a calls, better check it out. * skip the count of the number of arguments. */ DBG (CALLDEBUG, - printf ("[findcall]\t0x%x:calls", - instructp - (unsigned char *) core_text_space)); - firstmode = vax_operandmode ((struct modebyte *) (instructp + length)); + printf ("[findcall]\t0x%lx:calls", (unsigned long) pc)); + firstmode = vax_operandmode (instructp + length); switch (firstmode) { case literal: @@ -274,8 +272,8 @@ vax_find_call (parent, p_lowpc, p_highpc) default: goto botched; } - length += vax_operandlength ((struct modebyte *) (instructp + length)); - mode = vax_operandmode ((struct modebyte *) (instructp + length)); + length += vax_operandlength (instructp + length); + mode = vax_operandmode (instructp + length); DBG (CALLDEBUG, printf ("\tfirst operand is %s", vax_operandname (firstmode)); printf ("\tsecond operand is %s\n", vax_operandname (mode))); @@ -296,37 +294,39 @@ vax_find_call (parent, p_lowpc, p_highpc) * [are there others that we miss?, * e.g. arrays of pointers to functions???] */ - arc_add (parent, &indirectchild, (long) 0); - length += vax_operandlength ( - (struct modebyte *) (instructp + length)); + arc_add (parent, &indirectchild, (unsigned long) 0); + length += vax_operandlength (instructp + length); continue; case byterel: case wordrel: case longrel: /* * regular pc relative addressing - * check that this is the address of + * check that this is the address of * a function. */ - destpc = vax_reladdr ((struct modebyte *) (instructp + length)) - - (bfd_vma) core_text_space; - if (destpc >= s_lowpc && destpc <= s_highpc) + destpc = pc + vax_offset (instructp + length); + if (hist_check_address (destpc)) { child = sym_lookup (&symtab, destpc); - DBG (CALLDEBUG, - printf ("[findcall]\tdestpc 0x%lx", destpc); - printf (" child->name %s", child->name); - printf (" child->addr 0x%lx\n", child->addr); - ); - if (child->addr == destpc) + if (child) { - /* - * a hit - */ - arc_add (parent, child, (long) 0); - length += vax_operandlength ((struct modebyte *) - (instructp + length)); - continue; + DBG (CALLDEBUG, + printf ("[findcall]\tdestpc 0x%lx", + (unsigned long) destpc); + printf (" child->name %s", child->name); + printf (" child->addr 0x%lx\n", + (unsigned long) child->addr); + ); + if (child->addr == destpc) + { + /* + * a hit + */ + arc_add (parent, child, (unsigned long) 0); + length += vax_operandlength (instructp + length); + continue; + } } goto botched; }