mirror of
https://github.com/reactos/reactos.git
synced 2024-08-20 18:35:32 +00:00
144 lines
2.9 KiB
C
144 lines
2.9 KiB
C
![]() |
#if 0
|
||
|
#include <u.h>
|
||
|
#include <libc.h>
|
||
|
#include <bio.h>
|
||
|
#include "elf.h"
|
||
|
#endif
|
||
|
#include "dwarf.h"
|
||
|
#include "pe.h"
|
||
|
|
||
|
void printrules(Dwarf *d, ulong pc);
|
||
|
//int exprfmt(Fmt*);
|
||
|
|
||
|
void
|
||
|
usage(void)
|
||
|
{
|
||
|
fprint(2, "usage: dwarfdump file\n");
|
||
|
exits("usage");
|
||
|
}
|
||
|
|
||
|
void
|
||
|
main(int argc, char **argv)
|
||
|
{
|
||
|
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);
|
||
|
}
|
||
|
|
||
|
void
|
||
|
printrules(Dwarf *d, ulong pc)
|
||
|
{
|
||
|
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");
|
||
|
}
|
||
|
|
||
|
#if 0
|
||
|
int
|
||
|
exprfmt(Fmt *fmt)
|
||
|
{
|
||
|
DwarfExpr *e;
|
||
|
|
||
|
if((e = va_arg(fmt->args, DwarfExpr*)) == nil)
|
||
|
return fmtstrcpy(fmt, "<nil>");
|
||
|
|
||
|
switch(e->type){
|
||
|
case RuleUndef:
|
||
|
return fmtstrcpy(fmt, "undef");
|
||
|
case RuleSame:
|
||
|
return fmtstrcpy(fmt, "same");
|
||
|
case RuleCfaOffset:
|
||
|
return fmtprint(fmt, "%ld(cfa)", e->offset);
|
||
|
case RuleRegister:
|
||
|
return fmtprint(fmt, "r%ld", e->reg);
|
||
|
case RuleRegOff:
|
||
|
return fmtprint(fmt, "%ld(r%ld)", e->offset, e->reg);
|
||
|
case RuleLocation:
|
||
|
return fmtprint(fmt, "l.%.*H", e->loc.len, e->loc.data);
|
||
|
default:
|
||
|
return fmtprint(fmt, "?%d", e->type);
|
||
|
}
|
||
|
}
|
||
|
#endif
|