ReactOS  0.4.15-dev-1206-g731eddf
dwarfdump.c
Go to the documentation of this file.
1 #if 0
2 #include <u.h>
3 #include <libc.h>
4 #include <bio.h>
5 #include "elf.h"
6 #endif
7 #include "dwarf.h"
8 #include "pe.h"
9 
10 void printrules(Dwarf *d, ulong pc);
11 //int exprfmt(Fmt*);
12 
13 void
14 usage(void)
15 {
16  fprint(2, "usage: dwarfdump file\n");
17  exits("usage");
18 }
19 
20 void
21 main(int argc, char **argv)
22 {
23  int c;
24  Pe *pe;
25  Dwarf *d;
26  DwarfSym s;
27  char *cdir, *dir, *file;
28  ulong line, mtime, length;
29 
30  if(argc != 2)
31  usage();
32 
33 #if 0
34  fmtinstall('R', exprfmt);
35  fmtinstall('H', encodefmt);
36 #endif
37 
38  if((pe = peopen(argv[1])) == nil)
39  sysfatal("elfopen %s: %r", argv[1]);
40  if((d=dwarfopen(pe)) == nil)
41  sysfatal("dwarfopen: %r");
42 
43  if(dwarfenum(d, &s) < 0)
44  sysfatal("dwarfenumall: %r");
45 
46  while(dwarfnextsym(d, &s) == 1){
47  switch(s.attrs.tag){
48  case TagCompileUnit:
49  print("compileunit %s\n", s.attrs.name);
50  break;
51  case TagSubprogram:
52  c = 't';
53  goto sym;
54  case TagVariable:
55  c = 'd';
56  goto sym;
57  case TagConstant:
58  c = 'c';
59  goto sym;
60  case TagFormalParameter:
61  if(!s.attrs.name)
62  break;
63  c = 'p';
64  sym:
65  if(s.attrs.isexternal)
66  c += 'A' - 'a';
67  print("%c %s", c, s.attrs.name);
68  if(s.attrs.have.lowpc)
69  print(" 0x%lux-0x%lux", s.attrs.lowpc, s.attrs.highpc);
70  switch(s.attrs.have.location){
71  case TBlock:
72  print(" @ %.*H", s.attrs.location.b.len, s.attrs.location.b.data);
73  break;
74  case TConstant:
75  print(" @ 0x%lux", s.attrs.location.c);
76  break;
77  }
78  if(s.attrs.have.ranges)
79  print(" ranges@0x%lux", s.attrs.ranges);
80  print("\n");
81  if(s.attrs.have.lowpc){
82  if(dwarfpctoline(d, s.attrs.lowpc, &cdir, &dir, &file, &line, &mtime, &length) < 0)
83  print("\tcould not find source: %r\n");
84  else if(dir == nil)
85  print("\t%s/%s:%lud mtime=%lud length=%lud\n",
86  cdir, file, line, mtime, length);
87  else
88  print("\t%s/%s/%s:%lud mtime=%lud length=%lud\n",
89  cdir, dir, file, line, mtime, length);
90 
91  if(0) printrules(d, s.attrs.lowpc);
92  if(0) printrules(d, (s.attrs.lowpc+s.attrs.highpc)/2);
93  }
94  break;
95  }
96  }
97  exits(0);
98 }
99 
100 void
102 {
103  int i;
104  DwarfExpr r[10];
105  DwarfExpr cfa, ra;
106 
107  if(dwarfunwind(d, pc, &cfa, &ra, r, nelem(r)) < 0)
108  print("\tcannot unwind from pc 0x%lux: %r\n", pc);
109 
110  print("\tpc=0x%lux cfa=%R ra=%R", pc, &cfa, &ra);
111  for(i=0; i<nelem(r); i++)
112  if(r[i].type != RuleSame)
113  print(" r%d=%R", i, &r[i]);
114  print("\n");
115 }
116 
117 #if 0
118 int
119 exprfmt(Fmt *fmt)
120 {
121  DwarfExpr *e;
122 
123  if((e = va_arg(fmt->args, DwarfExpr*)) == nil)
124  return fmtstrcpy(fmt, "<nil>");
125 
126  switch(e->type){
127  case RuleUndef:
128  return fmtstrcpy(fmt, "undef");
129  case RuleSame:
130  return fmtstrcpy(fmt, "same");
131  case RuleCfaOffset:
132  return fmtprint(fmt, "%ld(cfa)", e->offset);
133  case RuleRegister:
134  return fmtprint(fmt, "r%ld", e->reg);
135  case RuleRegOff:
136  return fmtprint(fmt, "%ld(r%ld)", e->offset, e->reg);
137  case RuleLocation:
138  return fmtprint(fmt, "l.%.*H", e->loc.len, e->loc.data);
139  default:
140  return fmtprint(fmt, "?%d", e->type);
141  }
142 }
143 #endif
int dwarfnextsym(Dwarf *, DwarfSym *)
Definition: dwarfinfo.c:251
static int argc
Definition: ServiceArgs.c:12
int dwarfunwind(Dwarf *, ulong, DwarfExpr *, DwarfExpr *, DwarfExpr *, int)
Definition: dwarfcfa.c:48
GLdouble GLdouble GLdouble r
Definition: gl.h:2055
Dwarf * dwarfopen(struct _Pe *elf)
Definition: dwarfopen.c:16
GLuint GLuint GLsizei GLenum type
Definition: gl.h:1545
Definition: pe.h:14
#define argv
Definition: mplay32.c:18
int dwarfpctoline(Dwarf *, ulong, char **, char **, char **, char **, ulong *, ulong *, ulong *)
Definition: dwarfpc.c:49
void usage(void)
Definition: dwarfdump.c:14
#define nelem(x)
Definition: shaptest.c:19
GLsizei GLenum const GLvoid GLsizei GLenum GLbyte GLbyte GLbyte GLdouble GLdouble GLdouble GLfloat GLfloat GLfloat GLint GLint GLint GLshort GLshort GLshort GLubyte GLubyte GLubyte GLuint GLuint GLuint GLushort GLushort GLushort GLbyte GLbyte GLbyte GLbyte GLdouble GLdouble GLdouble GLdouble GLfloat GLfloat GLfloat GLfloat GLint GLint GLint GLint GLshort GLshort GLshort GLshort GLubyte GLubyte GLubyte GLubyte GLuint GLuint GLuint GLuint GLushort GLushort GLushort GLushort GLboolean const GLdouble const GLfloat const GLint const GLshort const GLbyte const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLdouble const GLfloat const GLfloat const GLint const GLint const GLshort const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort GLenum GLenum GLenum GLfloat GLenum GLint GLenum GLenum GLenum GLfloat GLenum GLenum GLint GLenum GLfloat GLenum GLint GLint GLushort GLenum GLenum GLfloat GLenum GLenum GLint GLfloat const GLubyte GLenum GLenum GLenum const GLfloat GLenum GLenum const GLint GLenum GLint GLint GLsizei GLsizei GLint GLenum GLenum const GLvoid GLenum GLenum const GLfloat GLenum GLenum const GLint GLenum GLenum const GLdouble GLenum GLenum const GLfloat GLenum GLenum const GLint GLsizei GLuint GLfloat GLuint GLbitfield GLfloat GLint GLuint GLboolean GLenum GLfloat GLenum GLbitfield GLenum GLfloat GLfloat GLint GLint const GLfloat GLenum GLfloat GLfloat GLint GLint GLfloat GLfloat GLint GLint const GLfloat GLint GLfloat GLfloat GLint GLfloat GLfloat GLint GLfloat GLfloat const GLdouble const GLfloat const GLdouble const GLfloat GLint i
Definition: glfuncs.h:248
#define e
Definition: ke_i.h:82
Definition: parser.c:48
unsigned int dir
Definition: maze.c:112
Definition: dwarf.h:131
int dwarfenum(Dwarf *, DwarfSym *)
Definition: dwarfinfo.c:242
#define d
Definition: ke_i.h:81
GLenum GLuint GLenum GLsizei length
Definition: glext.h:5579
const char file[]
Definition: icontest.c:11
const GLubyte * c
Definition: glext.h:8905
char line[200]
Definition: main.c:97
GLdouble s
Definition: gl.h:2039
unsigned long ulong
Definition: linux.h:275
#define va_arg(ap, T)
Definition: acmsvcex.h:89
static void print(LPPRINTDLGW pd, LPWSTR wszFileName)
Definition: print.c:440
Pe * peopen(const char *name)
Definition: dwarf.h:436
#define nil
Definition: compat.h:23
#define c
Definition: ke_i.h:80
void printrules(Dwarf *d, ulong pc)
Definition: dwarfdump.c:101
Definition: dsound.c:943
void main(int argc, char **argv)
Definition: dwarfdump.c:21
Definition: fci.c:126