dwarfdump.c File Reference

#include "dwarf.h"
#include "pe.h"

Include dependency graph for dwarfdump.c:

Go to the source code of this file.

Functions
void	printrules (Dwarf *d, ulong pc)
void	usage (void)
void	main (int argc, char **argv)

Function Documentation

main()

void main	(	int argc	,
		char **	argv
	)

Definition at line 21 of file dwarfdump.c.

{
    int c;
    Pe *pe;
    Dwarf *d;
    DwarfSym s;
    char *cdir, *dir, *file;
    ulong line, mtime, length;
 
    if(argc != 2)
        usage();
 
#if 0
    fmtinstall('R', exprfmt);
    fmtinstall('H', encodefmt);
#endif
 
    if((pe = peopen(argv[1])) == nil)
        sysfatal("elfopen %s: %r", argv[1]);
    if((d=dwarfopen(pe)) == nil)
        sysfatal("dwarfopen: %r");
 
    if(dwarfenum(d, &s) < 0)
        sysfatal("dwarfenumall: %r");
 
    while(dwarfnextsym(d, &s) == 1){
        switch(s.attrs.tag){
        case TagCompileUnit:
            print("compileunit %s\n", s.attrs.name);
            break;
        case TagSubprogram:
            c = 't';
            goto sym;
        case TagVariable:
            c = 'd';
            goto sym;
        case TagConstant:
            c = 'c';
            goto sym;
        case TagFormalParameter:
            if(!s.attrs.name)
                break;
            c = 'p';
        sym:
            if(s.attrs.isexternal)
                c += 'A' - 'a';
            print("%c %s", c, s.attrs.name);
            if(s.attrs.have.lowpc)
                print(" 0x%lux-0x%lux", s.attrs.lowpc, s.attrs.highpc);
            switch(s.attrs.have.location){
            case TBlock:
                print(" @ %.*H", s.attrs.location.b.len, s.attrs.location.b.data);
                break;
            case TConstant:
                print(" @ 0x%lux", s.attrs.location.c);
                break;
            }
            if(s.attrs.have.ranges)
                print(" ranges@0x%lux", s.attrs.ranges);
            print("\n");
            if(s.attrs.have.lowpc){
                if(dwarfpctoline(d, s.attrs.lowpc, &cdir, &dir, &file, &line, &mtime, &length) < 0)
                    print("\tcould not find source: %r\n");
                else if(dir == nil)
                    print("\t%s/%s:%lud mtime=%lud length=%lud\n",
                        cdir, file, line, mtime, length);
                else
                    print("\t%s/%s/%s:%lud mtime=%lud length=%lud\n",
                        cdir, dir, file, line, mtime, length);
 
                if(0) printrules(d, s.attrs.lowpc);
                if(0) printrules(d, (s.attrs.lowpc+s.attrs.highpc)/2);
            }
            break;
        }
    }
    exits(0);
}

printrules()

void printrules	(	Dwarf *	d,
		ulong	pc
	)

Definition at line 101 of file dwarfdump.c.

{
    int i;
    DwarfExpr r[10];
    DwarfExpr cfa, ra;
 
    if(dwarfunwind(d, pc, &cfa, &ra, r, nelem(r)) < 0)
        print("\tcannot unwind from pc 0x%lux: %r\n", pc);
 
    print("\tpc=0x%lux cfa=%R ra=%R", pc, &cfa, &ra);
    for(i=0; i<nelem(r); i++)
        if(r[i].type != RuleSame)
            print(" r%d=%R", i, &r[i]);
    print("\n");
}

usage()

void usage

(

void

)

Definition at line 14 of file dwarfdump.c.

{
    fprint(2, "usage: dwarfdump file\n");
    exits("usage");
}