diff options
author | Ken Raeburn <raeburn@cygnus> | 1995-02-08 02:35:44 +0000 |
---|---|---|
committer | Ken Raeburn <raeburn@cygnus> | 1995-02-08 02:35:44 +0000 |
commit | 12516a373c27abe4516c2a3c84cfe9d94f02e18f (patch) | |
tree | 20c1b81fb9d0ec20120f35bb71eb436f652788c8 /gprof/tahoe.c | |
parent | 28860f46fa46ce73225d72ad6a0f72739ca8295c (diff) | |
download | fsf-binutils-gdb-12516a373c27abe4516c2a3c84cfe9d94f02e18f.zip fsf-binutils-gdb-12516a373c27abe4516c2a3c84cfe9d94f02e18f.tar.gz fsf-binutils-gdb-12516a373c27abe4516c2a3c84cfe9d94f02e18f.tar.bz2 |
ran "indent -gnu"; have not fixed block comment style
Diffstat (limited to 'gprof/tahoe.c')
-rw-r--r-- | gprof/tahoe.c | 496 |
1 files changed, 255 insertions, 241 deletions
diff --git a/gprof/tahoe.c b/gprof/tahoe.c index 5e3d7d9..e02bbb0 100644 --- a/gprof/tahoe.c +++ b/gprof/tahoe.c @@ -26,279 +26,293 @@ Sym indirectchild; operandenum -operandmode(modep) - unsigned char *modep; +operandmode (modep) + unsigned char *modep; { - long usesreg = ((long)*modep) & 0xf; - - switch (((long)*modep) >> 4) { - case 0: - case 1: - case 2: - case 3: - return literal; - case 4: - return indexed; - case 5: - return reg; - case 6: - return regdef; - case 7: - return autodec; - case 8: - return usesreg != 0xe ? autoinc : immediate; - case 9: - return usesreg != PC ? autoincdef : absolute; - case 10: - return usesreg != PC ? bytedisp : byterel; - case 11: - return usesreg != PC ? bytedispdef : bytereldef; - case 12: - return usesreg != PC ? worddisp : wordrel; - case 13: - return usesreg != PC ? worddispdef : wordreldef; - case 14: - return usesreg != PC ? longdisp : longrel; - case 15: - return usesreg != PC ? longdispdef : longreldef; + long usesreg = ((long) *modep) & 0xf; + + switch (((long) *modep) >> 4) + { + case 0: + case 1: + case 2: + case 3: + return literal; + case 4: + return indexed; + case 5: + return reg; + case 6: + return regdef; + case 7: + return autodec; + case 8: + return usesreg != 0xe ? autoinc : immediate; + case 9: + return usesreg != PC ? autoincdef : absolute; + case 10: + return usesreg != PC ? bytedisp : byterel; + case 11: + return usesreg != PC ? bytedispdef : bytereldef; + case 12: + return usesreg != PC ? worddisp : wordrel; + case 13: + return usesreg != PC ? worddispdef : wordreldef; + case 14: + return usesreg != PC ? longdisp : longrel; + case 15: + return usesreg != PC ? longdispdef : longreldef; } - /* NOTREACHED */ + /* NOTREACHED */ } char * -operandname(mode) - operandenum mode; +operandname (mode) + operandenum mode; { - - switch (mode) { - case literal: - return "literal"; - case indexed: - return "indexed"; - case reg: - return "register"; - case regdef: - return "register deferred"; - case autodec: - return "autodecrement"; - case autoinc: - return "autoincrement"; - case autoincdef: - return "autoincrement deferred"; - case bytedisp: - return "byte displacement"; - case bytedispdef: - return "byte displacement deferred"; - case byterel: - return "byte relative"; - case bytereldef: - return "byte relative deferred"; - case worddisp: - return "word displacement"; - case worddispdef: - return "word displacement deferred"; - case wordrel: - return "word relative"; - case wordreldef: - return "word relative deferred"; - case immediate: - return "immediate"; - case absolute: - return "absolute"; - case longdisp: - return "long displacement"; - case longdispdef: - return "long displacement deferred"; - case longrel: - return "long relative"; - case longreldef: - return "long relative deferred"; + + switch (mode) + { + case literal: + return "literal"; + case indexed: + return "indexed"; + case reg: + return "register"; + case regdef: + return "register deferred"; + case autodec: + return "autodecrement"; + case autoinc: + return "autoincrement"; + case autoincdef: + return "autoincrement deferred"; + case bytedisp: + return "byte displacement"; + case bytedispdef: + return "byte displacement deferred"; + case byterel: + return "byte relative"; + case bytereldef: + return "byte relative deferred"; + case worddisp: + return "word displacement"; + case worddispdef: + return "word displacement deferred"; + case wordrel: + return "word relative"; + case wordreldef: + return "word relative deferred"; + case immediate: + return "immediate"; + case absolute: + return "absolute"; + case longdisp: + return "long displacement"; + case longdispdef: + return "long displacement deferred"; + case longrel: + return "long relative"; + case longreldef: + return "long relative deferred"; } - /* NOTREACHED */ + /* NOTREACHED */ } long -operandlength(modep) - unsigned char *modep; +operandlength (modep) + unsigned char *modep; { - - switch (operandmode(modep)) { - case literal: - case reg: - case regdef: - case autodec: - case autoinc: - case autoincdef: - return 1; - case bytedisp: - case bytedispdef: - case byterel: - case bytereldef: - return 2; - case worddisp: - case worddispdef: - case wordrel: - case wordreldef: - return 3; - case immediate: - case absolute: - case longdisp: - case longdispdef: - case longrel: - case longreldef: - return 5; - case indexed: - return 1+operandlength(modep + 1); + + switch (operandmode (modep)) + { + case literal: + case reg: + case regdef: + case autodec: + case autoinc: + case autoincdef: + return 1; + case bytedisp: + case bytedispdef: + case byterel: + case bytereldef: + return 2; + case worddisp: + case worddispdef: + case wordrel: + case wordreldef: + return 3; + case immediate: + case absolute: + case longdisp: + case longdispdef: + case longrel: + case longreldef: + return 5; + case indexed: + return 1 + operandlength (modep + 1); } - /* NOTREACHED */ + /* NOTREACHED */ } bfd_vma -reladdr(modep) - char *modep; +reladdr (modep) + char *modep; { - operandenum mode = operandmode(modep); - char *cp; - short *sp; - long *lp; - int i; - long value = 0; + operandenum mode = operandmode (modep); + char *cp; + short *sp; + long *lp; + int i; + long value = 0; - cp = modep; - ++cp; /* skip over the mode */ - switch (mode) { - default: - fprintf(stderr, "[reladdr] not relative address\n"); - return (bfd_vma) modep; - case byterel: - return (bfd_vma) (cp + sizeof *cp + *cp); - case wordrel: - for (i = 0; i < sizeof *sp; i++) - value = (value << 8) + (cp[i] & 0xff); - return (bfd_vma) (cp + sizeof *sp + value); - case longrel: - for (i = 0; i < sizeof *lp; i++) - value = (value << 8) + (cp[i] & 0xff); - return (bfd_vma) (cp + sizeof *lp + value); + cp = modep; + ++cp; /* skip over the mode */ + switch (mode) + { + default: + fprintf (stderr, "[reladdr] not relative address\n"); + return (bfd_vma) modep; + case byterel: + return (bfd_vma) (cp + sizeof *cp + *cp); + case wordrel: + for (i = 0; i < sizeof *sp; i++) + value = (value << 8) + (cp[i] & 0xff); + return (bfd_vma) (cp + sizeof *sp + value); + case longrel: + for (i = 0; i < sizeof *lp; i++) + value = (value << 8) + (cp[i] & 0xff); + return (bfd_vma) (cp + sizeof *lp + value); } } -find_call(parent, p_lowpc, p_highpc) +find_call (parent, p_lowpc, p_highpc) 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; + unsigned char *instructp; + long length; + Sym *child; + operandenum mode; + operandenum firstmode; + bfd_vma destpc; + static bool inited = FALSE; - if (!inited) { - inited = TRUE; - sym_init(&indirectchild); - indirectchild.cg.prop.fract = 1.0; - indirectchild.cg.cyc.head = &indirectchild; - } /* if */ + if (!inited) + { + inited = TRUE; + sym_init (&indirectchild); + indirectchild.cg.prop.fract = 1.0; + indirectchild.cg.cyc.head = &indirectchild; + } /* if */ - if (textspace == 0) { - return; + if (textspace == 0) + { + return; } - if (p_lowpc < s_lowpc) { - p_lowpc = s_lowpc; + if (p_lowpc < s_lowpc) + { + p_lowpc = s_lowpc; } - if (p_highpc > s_highpc) { - p_highpc = s_highpc; + if (p_highpc > s_highpc) + { + p_highpc = s_highpc; } - DBG(CALLDEBUG, printf("[findcall] %s: 0x%x to 0x%x\n", - parent -> name, p_lowpc, p_highpc)); - for ( instructp = textspace + p_lowpc ; - instructp < textspace + p_highpc ; - instructp += length) { - length = 1; - if (*instructp == CALLF) { - /* - * maybe a callf, better check it out. - * skip the count of the number of arguments. - */ - DBG(CALLDEBUG, printf("[findcall]\t0x%x:callf", + DBG (CALLDEBUG, printf ("[findcall] %s: 0x%x to 0x%x\n", + parent->name, p_lowpc, p_highpc)); + for (instructp = textspace + p_lowpc; + instructp < textspace + p_highpc; + instructp += length) + { + length = 1; + if (*instructp == CALLF) + { + /* + * maybe a callf, better check it out. + * skip the count of the number of arguments. + */ + DBG (CALLDEBUG, printf ("[findcall]\t0x%x:callf", instructp - textspace)); - firstmode = operandmode(instructp+length); - switch (firstmode) { - case literal: - case immediate: - break; - default: - goto botched; + firstmode = operandmode (instructp + length); + switch (firstmode) + { + case literal: + case immediate: + break; + default: + goto botched; } - length += operandlength(instructp+length); - mode = operandmode(instructp + length); - DBG(CALLDEBUG, - printf("\tfirst operand is %s", operandname(firstmode)); - printf("\tsecond operand is %s\n", operandname(mode)); - ); - switch (mode) { - case regdef: - case bytedispdef: - case worddispdef: - case longdispdef: - case bytereldef: - case wordreldef: - case longreldef: - /* - * indirect call: call through pointer - * either *d(r) as a parameter or local - * (r) as a return value - * *f as a global pointer - * [are there others that we miss?, - * e.g. arrays of pointers to functions???] - */ - arc_add(parent, &indirectchild, (long) 0); - length += operandlength(instructp + length); - continue; - case byterel: - case wordrel: - case longrel: - /* - * regular pc relative addressing - * check that this is the address of - * a function. - */ - destpc = reladdr(instructp+length) - - (bfd_vma) textspace; - if (destpc >= s_lowpc && destpc <= s_highpc) { - child = sym_lookup(destpc); - DBG(CALLDEBUG, - printf("[findcall]\tdestpc 0x%x", destpc); - printf(" child->name %s", child -> name); - printf(" child->addr 0x%x\n", child -> addr); - ); - if (child -> addr == destpc) { - /* - * a hit - */ - arc_add(parent, child, (long) 0); - length += operandlength(instructp + length); - continue; - } - goto botched; + length += operandlength (instructp + length); + mode = operandmode (instructp + length); + DBG (CALLDEBUG, + printf ("\tfirst operand is %s", operandname (firstmode)); + printf ("\tsecond operand is %s\n", operandname (mode)); + ); + switch (mode) + { + case regdef: + case bytedispdef: + case worddispdef: + case longdispdef: + case bytereldef: + case wordreldef: + case longreldef: + /* + * indirect call: call through pointer + * either *d(r) as a parameter or local + * (r) as a return value + * *f as a global pointer + * [are there others that we miss?, + * e.g. arrays of pointers to functions???] + */ + arc_add (parent, &indirectchild, (long) 0); + length += operandlength (instructp + length); + continue; + case byterel: + case wordrel: + case longrel: + /* + * regular pc relative addressing + * check that this is the address of + * a function. + */ + destpc = reladdr (instructp + length) + - (bfd_vma) textspace; + if (destpc >= s_lowpc && destpc <= s_highpc) + { + child = sym_lookup (destpc); + DBG (CALLDEBUG, + printf ("[findcall]\tdestpc 0x%x", destpc); + printf (" child->name %s", child->name); + printf (" child->addr 0x%x\n", child->addr); + ); + if (child->addr == destpc) + { + /* + * a hit + */ + arc_add (parent, child, (long) 0); + length += operandlength (instructp + length); + continue; } - /* - * else: - * it looked like a callf, - * but it wasn't to anywhere. - */ - goto botched; - default: - botched: - /* - * something funny going on. - */ - DBG(CALLDEBUG, printf("[findcall]\tbut it's a botch\n")); - length = 1; - continue; + goto botched; + } + /* + * else: + * it looked like a callf, + * but it wasn't to anywhere. + */ + goto botched; + default: + botched: + /* + * something funny going on. + */ + DBG (CALLDEBUG, printf ("[findcall]\tbut it's a botch\n")); + length = 1; + continue; } } } |