Intravision/reactos
1
0
Fork 0
mirror of https://github.com/reactos/reactos.git synced 2024-11-20 06:15:26 +00:00
Code Issues Projects Releases Packages Wiki Activity
reactos/lib/rossym_new/dwarfinfo.c
Hermès Bélusca-Maïto 4f0b8d3db0 Create a branch for Aleksandar Andrejevic for his work on NTVDM. See http://jira.reactos.org/browse/CORE-7250 for more details. 
svn path=/branches/ntvdm/; revision=59241
2013-06-16 22:01:41 +00:00

1015 lines
30 KiB
C
Raw Blame History

/*
* Dwarf info parse and search.
*/
#include <precomp.h>
#define NDEBUG
#include <debug.h>
enum
{
DwarfAttrSibling = 0x01,
DwarfAttrLocation = 0x02,
DwarfAttrName = 0x03,
DwarfAttrOrdering = 0x09,
DwarfAttrByteSize = 0x0B,
DwarfAttrBitOffset = 0x0C,
DwarfAttrBitSize = 0x0D,
DwarfAttrStmtList = 0x10,
DwarfAttrLowpc = 0x11,
DwarfAttrHighpc = 0x12,
DwarfAttrLanguage = 0x13,
DwarfAttrDiscr = 0x15,
DwarfAttrDiscrValue = 0x16,
DwarfAttrVisibility = 0x17,
DwarfAttrImport = 0x18,
DwarfAttrStringLength = 0x19,
DwarfAttrCommonRef = 0x1A,
DwarfAttrCompDir = 0x1B,
DwarfAttrConstValue = 0x1C,
DwarfAttrContainingType = 0x1D,
DwarfAttrDefaultValue = 0x1E,
DwarfAttrInline = 0x20,
DwarfAttrIsOptional = 0x21,
DwarfAttrLowerBound = 0x22,
DwarfAttrProducer = 0x25,
DwarfAttrPrototyped = 0x27,
DwarfAttrReturnAddr = 0x2A,
DwarfAttrStartScope = 0x2C,
DwarfAttrStrideSize = 0x2E,
DwarfAttrUpperBound = 0x2F,
DwarfAttrAbstractOrigin = 0x31,
DwarfAttrAccessibility = 0x32,
DwarfAttrAddrClass = 0x33,
DwarfAttrArtificial = 0x34,
DwarfAttrBaseTypes = 0x35,
DwarfAttrCalling = 0x36,
DwarfAttrCount = 0x37,
DwarfAttrDataMemberLoc = 0x38,
DwarfAttrDeclColumn = 0x39,
DwarfAttrDeclFile = 0x3A,
DwarfAttrDeclLine = 0x3B,
DwarfAttrDeclaration = 0x3C,
DwarfAttrDiscrList = 0x3D,
DwarfAttrEncoding = 0x3E,
DwarfAttrExternal = 0x3F,
DwarfAttrFrameBase = 0x40,
DwarfAttrFriend = 0x41,
DwarfAttrIdentifierCase = 0x42,
DwarfAttrMacroInfo = 0x43,
DwarfAttrNamelistItem = 0x44,
DwarfAttrPriority = 0x45,
DwarfAttrSegment = 0x46,
DwarfAttrSpecification = 0x47,
DwarfAttrStaticLink = 0x48,
DwarfAttrType = 0x49,
DwarfAttrUseLocation = 0x4A,
DwarfAttrVarParam = 0x4B,
DwarfAttrVirtuality = 0x4C,
DwarfAttrVtableElemLoc = 0x4D,
DwarfAttrAllocated = 0x4E,
DwarfAttrAssociated = 0x4F,
DwarfAttrDataLocation = 0x50,
DwarfAttrStride = 0x51,
DwarfAttrEntrypc = 0x52,
DwarfAttrUseUTF8 = 0x53,
DwarfAttrExtension = 0x54,
DwarfAttrRanges = 0x55,
DwarfAttrTrampoline = 0x56,
DwarfAttrCallColumn = 0x57,
DwarfAttrCallFile = 0x58,
DwarfAttrCallLine = 0x59,
DwarfAttrDescription = 0x5A,
DwarfAttrMax,
FormAddr = 0x01,
FormDwarfBlock2 = 0x03,
FormDwarfBlock4 = 0x04,
FormData2 = 0x05,
FormData4 = 0x06,
FormData8 = 0x07,
FormString = 0x08,
FormDwarfBlock = 0x09,
FormDwarfBlock1 = 0x0A,
FormData1 = 0x0B,
FormFlag = 0x0C,
FormSdata = 0x0D,
FormStrp = 0x0E,
FormUdata = 0x0F,
FormRefAddr = 0x10,
FormRef1 = 0x11,
FormRef2 = 0x12,
FormRef4 = 0x13,
FormRef8 = 0x14,
FormRefUdata = 0x15,
FormIndirect = 0x16
};
static int parseattrs(Dwarf *d, DwarfBuf*, ulong, ulong, DwarfAbbrev*, DwarfAttrs*);
static int getulong(DwarfBuf*, int, ulong, ulong*, int*);
static int getuchar(DwarfBuf*, int, uchar*);
static int getstring(Dwarf *d, DwarfBuf*, int, char**);
static int getblock(DwarfBuf*, int, DwarfBlock*);
static int skipform(Dwarf *d, DwarfBuf*, int);
int
dwarflookupnameinunit(Dwarf *d, ulong unit, char *name, DwarfSym *s)
{
DwarfSym compunit = { };
if(dwarfenumunit(d, unit, &compunit) < 0)
return -1;
while(dwarfnextsymat(d, &compunit, s) == 0) {
werrstr("got %s looking for %s\n", s->attrs.name, name);
if(s->attrs.name && strcmp(s->attrs.name, name) == 0)
return 0;
}
werrstr("symbol '%s' not found", name);
return -1;
}
int
dwarflookupsubname(Dwarf *d, DwarfSym *parent, char *name, DwarfSym *s)
{
*s = *parent;
while(dwarfnextsymat(d, parent, s))
if(s->attrs.name && strcmp(s->attrs.name, name) == 0)
return 0;
werrstr("symbol '%s' not found", name);
return -1;
}
int
dwarflookupchildtag(Dwarf *d, DwarfSym *parent, ulong tag, DwarfSym *s)
{
int rsym = dwarfnextsymat(d, parent, s);
while (rsym == 0 && s->attrs.tag != tag) {
if (s->attrs.haskids) {
DwarfSym p = *s;
int csym = dwarflookupchildtag(d, &p, tag, s);
if (csym == 0) {
return csym;
}
}
rsym = dwarfnextsym(d, s);
}
return rsym;
}
int
dwarflookuptag(Dwarf *d, ulong unit, ulong tag, DwarfSym *s)
{
DwarfSym compunit = { };
if (dwarfenumunit(d, unit, &compunit) < 0) {
return -1;
}
do {
if (compunit.attrs.tag == tag) {
*s = compunit;
return 0;
}
if (dwarflookupchildtag(d, &compunit, tag, s) == 0)
return 0;
} while(dwarfnextsym(d, &compunit) == 0);
werrstr("symbol with tag 0x%lux not found", tag);
return -1;
}
int
dwarfseeksym(Dwarf *d, ulong unit, ulong off, DwarfSym *s)
{
DwarfSym compunit = { };
if(dwarfenumunit(d, unit, &compunit) < 0)
return -1;
werrstr("dwarfseeksym: unit %x off %x\n", unit, off);
s->b.d = d;
s->b.p = d->info.data + unit + off;
s->b.ep = compunit.b.ep;
if(dwarfnextsymat(d, &compunit, s) == -1)
return -1;
werrstr("dwarfseeksym: unit %x off %x, tag %x", unit, off, s->attrs.tag);
return 0;
}
int
dwarflookupfn(Dwarf *d, ulong unit, ulong pc, DwarfSym *s)
{
DwarfSym compunit = { };
if(dwarfenumunit(d, unit, &compunit) < 0)
return -1;
while(dwarfnextsymat(d, &compunit, s) == 0){
if(s->attrs.tag != TagSubprogram)
continue;
if(s->attrs.lowpc <= pc && pc < s->attrs.highpc)
return 0;
}
werrstr("fn containing pc 0x%lux not found", pc);
return -1;
}
int
dwarfenumunit(Dwarf *d, ulong unit, DwarfSym *s)
{
int i;
ulong aoff, len;
if(unit >= d->info.len){
werrstr("dwarf unit address 0x%x >= 0x%x out of range", unit, d->info.len);
return -1;
}
memset(s, 0, sizeof *s);
memset(&s->b, 0, sizeof s->b);
s->b.d = d;
s->b.p = d->info.data + unit;
s->b.ep = d->info.data + d->info.len;
len = dwarfget4(&s->b);
s->unit = unit;
s->nextunit = unit + 4 + len;
s->b.ep = d->info.data + s->nextunit;
if(s->b.ep - s->b.p < len){
badheader:
werrstr("bad dwarf unit header at unit 0x%lux end %x start %x len %x", unit, s->b.ep - d->info.data, s->b.p - d->info.data, len);
return -1;
}
s->b.ep = s->b.p+len;
if((i=dwarfget2(&s->b)) > 4)
goto badheader;
aoff = dwarfget4(&s->b);
s->b.addrsize = dwarfget1(&s->b);
if(d->addrsize == 0)
d->addrsize = s->b.addrsize;
if(s->b.p == nil)
goto badheader;
s->aoff = aoff;
return dwarfnextsym(d, s);
}
int
dwarfnextsym(Dwarf *d, DwarfSym *s)
{
ulong num;
DwarfAbbrev *a;
werrstr("sym at %x (left %x)\n", s->b.p - d->info.data, s->b.ep - s->b.p);
num = dwarfget128(&s->b);
werrstr("abbrev num %x\n", num);
s->num = num;
if(num == 0){
return -1;
}
a = dwarfgetabbrev(d, s->aoff, num);
werrstr("a %p\n", a);
if(a == nil){
werrstr("getabbrev %x %x for %x", s->aoff, num, s->unit);
return -1;
}
if(parseattrs(d, &s->b, s->attrs.tag, s->unit, a, &s->attrs) < 0) {
return -1;
}
if (s->attrs.haskids) {
DwarfSym childSkip = { };
s->childoff = s->b.p - d->info.data;
werrstr("Set childoff at %x\n", s->childoff);
int r = dwarfnextsymat(d, s, &childSkip);
while (r == 0) {
r = dwarfnextsym(d, &childSkip);
}
s->b = childSkip.b;
} else {
s->childoff = 0;
}
return 0;
}
int
dwarfnextsymat(Dwarf *d, DwarfSym *parent, DwarfSym *child)
{
uint sib;
if (!parent->attrs.haskids || !parent->childoff)
return -1;
child->unit = parent->unit;
child->aoff = parent->aoff;
child->depth = parent->depth + 1;
if(child->attrs.have.sibling){
sib = child->attrs.sibling;
if(sib < d->info.len && d->info.data+sib > child->b.p)
child->b.p = d->info.data+sib;
else if (sib >= d->info.len) {
werrstr("sibling reported as out of bounds %d vs %d", sib, d->info.len);
return -1;
} else if (d->info.data+sib+parent->unit < child->b.p) {
werrstr("subsequent sibling is listed before prev %d vs %d", sib+parent->unit, child->b.p - d->info.data);
return -1;
}
}
// Uninitialized
if (!child->b.d) {
child->b = parent->b;
child->b.p = parent->childoff + parent->b.d->info.data;
werrstr("Rewound to childoff %x\n", parent->childoff);
}
return dwarfnextsym(d, child);
}
typedef struct Parse Parse;
struct Parse {
const char *namestr;
int name;
int off;
int haveoff;
int type;
};
#define ATTR(x) (#x)+9, x
#define OFFSET(x) offsetof(DwarfAttrs, x), offsetof(DwarfAttrs, have.x)
static Parse plist[] = { /* Font Tab 4 */
{ ATTR(DwarfAttrAbstractOrigin), OFFSET(abstractorigin), TReference },
{ ATTR(DwarfAttrAccessibility), OFFSET(accessibility), TConstant },
{ ATTR(DwarfAttrAddrClass), OFFSET(addrclass), TConstant },
{ ATTR(DwarfAttrBaseTypes), OFFSET(basetypes), TReference },
{ ATTR(DwarfAttrBitOffset), OFFSET(bitoffset), TConstant },
{ ATTR(DwarfAttrBitSize), OFFSET(bitsize), TConstant },
{ ATTR(DwarfAttrByteSize), OFFSET(bytesize), TConstant },
{ ATTR(DwarfAttrCalling), OFFSET(calling), TConstant },
{ ATTR(DwarfAttrCommonRef), OFFSET(commonref), TReference },
{ ATTR(DwarfAttrCompDir), OFFSET(compdir), TString },
{ ATTR(DwarfAttrConstValue), OFFSET(constvalue), TString|TConstant|TBlock },
{ ATTR(DwarfAttrContainingType), OFFSET(containingtype), TReference },
{ ATTR(DwarfAttrCount), OFFSET(count), TConstant|TReference },
{ ATTR(DwarfAttrDataMemberLoc), OFFSET(datamemberloc), TBlock|TConstant|TReference },
{ ATTR(DwarfAttrDeclColumn), OFFSET(declcolumn), TConstant },
{ ATTR(DwarfAttrDeclFile), OFFSET(declfile), TConstant },
{ ATTR(DwarfAttrDeclLine), OFFSET(declline), TConstant },
{ ATTR(DwarfAttrDefaultValue), OFFSET(defaultvalue), TReference },
{ ATTR(DwarfAttrDiscr), OFFSET(discr), TReference },
{ ATTR(DwarfAttrDiscrList), OFFSET(discrlist), TBlock },
{ ATTR(DwarfAttrDiscrValue), OFFSET(discrvalue), TConstant },
{ ATTR(DwarfAttrEncoding), OFFSET(encoding), TConstant },
{ ATTR(DwarfAttrFrameBase), OFFSET(framebase), TBlock|TConstant },
{ ATTR(DwarfAttrFriend), OFFSET(friend), TReference },
{ ATTR(DwarfAttrHighpc), OFFSET(highpc), TAddress },
{ ATTR(DwarfAttrEntrypc), OFFSET(entrypc), TAddress },
{ ATTR(DwarfAttrIdentifierCase), OFFSET(identifiercase), TConstant },
{ ATTR(DwarfAttrImport), OFFSET(import), TReference },
{ ATTR(DwarfAttrInline), OFFSET(inlined), TConstant },
{ ATTR(DwarfAttrArtificial), OFFSET(isartificial), TFlag },
{ ATTR(DwarfAttrDeclaration), OFFSET(isdeclaration), TFlag },
{ ATTR(DwarfAttrExternal), OFFSET(isexternal), TFlag },
{ ATTR(DwarfAttrIsOptional), OFFSET(isoptional), TFlag },
{ ATTR(DwarfAttrPrototyped), OFFSET(isprototyped), TFlag },
{ ATTR(DwarfAttrVarParam), OFFSET(isvarparam), TFlag },
{ ATTR(DwarfAttrLanguage), OFFSET(language), TConstant },
{ ATTR(DwarfAttrLocation), OFFSET(location), TReference|TBlock },
{ ATTR(DwarfAttrLowerBound), OFFSET(lowerbound), TConstant|TReference },
{ ATTR(DwarfAttrLowpc), OFFSET(lowpc), TAddress },
{ ATTR(DwarfAttrMacroInfo), OFFSET(macroinfo), TConstant },
{ ATTR(DwarfAttrName), OFFSET(name), TString },
{ ATTR(DwarfAttrNamelistItem), OFFSET(namelistitem), TBlock },
{ ATTR(DwarfAttrOrdering), OFFSET(ordering), TConstant },
{ ATTR(DwarfAttrPriority), OFFSET(priority), TReference },
{ ATTR(DwarfAttrProducer), OFFSET(producer), TString },
{ ATTR(DwarfAttrRanges), OFFSET(ranges), TReference },
{ ATTR(DwarfAttrReturnAddr), OFFSET(returnaddr), TBlock|TConstant },
{ ATTR(DwarfAttrSegment), OFFSET(segment), TBlock|TConstant },
{ ATTR(DwarfAttrSibling), OFFSET(sibling), TReference },
{ ATTR(DwarfAttrSpecification), OFFSET(specification), TReference },
{ ATTR(DwarfAttrStartScope), OFFSET(startscope), TConstant },
{ ATTR(DwarfAttrStaticLink), OFFSET(staticlink), TBlock|TConstant },
{ ATTR(DwarfAttrStmtList), OFFSET(stmtlist), TConstant },
{ ATTR(DwarfAttrStrideSize), OFFSET(stridesize), TConstant },
{ ATTR(DwarfAttrStringLength), OFFSET(stringlength), TBlock|TConstant },
{ ATTR(DwarfAttrType), OFFSET(type), TReference },
{ ATTR(DwarfAttrUpperBound), OFFSET(upperbound), TConstant|TReference },
{ ATTR(DwarfAttrUseLocation), OFFSET(uselocation), TBlock|TConstant },
{ ATTR(DwarfAttrVirtuality), OFFSET(virtuality), TConstant },
{ ATTR(DwarfAttrVisibility), OFFSET(visibility), TConstant },
{ ATTR(DwarfAttrVtableElemLoc), OFFSET(vtableelemloc), TBlock|TReference },
{ }
};
static Parse ptab[DwarfAttrMax];
static int
parseattrs(Dwarf *d, DwarfBuf *b, ulong tag, ulong unit, DwarfAbbrev *a, DwarfAttrs *attrs)
{
int i, f, n, got;
static int nbad;
void *v;
/* initialize ptab first time through for quick access */
if(ptab[DwarfAttrName].name != DwarfAttrName)
for(i=0; plist[i].name; i++)
ptab[plist[i].name] = plist[i];
memset(attrs, 0, sizeof *attrs);
attrs->tag = a->tag;
attrs->haskids = a->haskids;
for(i=0; i<a->nattr; i++){
n = a->attr[i].name;
f = a->attr[i].form;
werrstr("struct: (@%x) n %x f %x (%d %d)\n", b->p - d->info.data, n, f, ptab[n].haveoff, ptab[n].off);
if(n < 0 || n >= DwarfAttrMax || ptab[n].name==0) {
if (skipform(d, b, f) < 0) {
if(++nbad == 1)
werrstr("dwarf parse attrs: cannot skip form %d", f);
return -1;
}
continue;
}
v = (char*)attrs + ptab[n].off;
got = 0;
if(f == FormIndirect)
f = dwarfget128(b);
if((ptab[n].type&(TConstant|TReference|TAddress))
&& getulong(b, f, unit, v, &got) >= 0)
;
else if((ptab[n].type&TFlag) && getuchar(b, f, v) >= 0)
got = TFlag;
else if((ptab[n].type&TString) && getstring(d, b, f, v) >= 0)
got = TString;
else if((ptab[n].type&TBlock) && getblock(b, f, v) >= 0) {
got = TBlock;
} else {
werrstr("Skipping form %x\n", f);
if(skipform(d, b, f) < 0){
//if(++nbad == 1)
werrstr("dwarf parse attrs: cannot skip form %d", f);
return -1;
}
}
#if 0
if(got == TBlock && (ptab[n].type&TConstant))
got = constblock(b->d, v, v);
#endif
*((uchar*)attrs+ptab[n].haveoff) = got;
}
if (attrs->have.name)
werrstr("%s: tag %x kids %d (last %x)\n", attrs->name, attrs->tag, attrs->haskids, b->p - b->d->info.data);
return 0;
}
static int
getulong(DwarfBuf *b, int form, ulong unit, ulong *u, int *type)
{
static int nbad;
uvlong uv;
switch(form){
default:
return -1;
/* addresses */
case FormAddr:
*type = TAddress;
*u = dwarfgetaddr(b);
return 0;
/* references */
case FormRefAddr:
/* absolute ref in .debug_info */
*type = TReference;
*u = dwarfgetaddr(b);
return 0;
case FormRef1:
*u = dwarfget1(b);
goto relativeref;
case FormRef2:
*u = dwarfget2(b);
goto relativeref;
case FormRef4:
*u = dwarfget4(b);
goto relativeref;
case FormRef8:
*u = dwarfget8(b);
goto relativeref;
case FormRefUdata:
*u = dwarfget128(b);
relativeref:
*u += unit;
*type = TReference;
return 0;
/* constants */
case FormData1:
*u = dwarfget1(b);
goto constant;
case FormData2:
*u = dwarfget2(b);
goto constant;
case FormData4:
*u = dwarfget4(b);
goto constant;
case FormData8:
uv = dwarfget8(b);
*u = uv;
if(uv != *u && ++nbad == 1)
werrstr("dwarf: truncating 64-bit attribute constants");
goto constant;
case FormSdata:
*u = dwarfget128s(b);
goto constant;
case FormUdata:
*u = dwarfget128(b);
constant:
*type = TConstant;
return 0;
}
}
static int
getuchar(DwarfBuf *b, int form, uchar *u)
{
switch(form){
default:
return -1;
case FormFlag:
*u = dwarfget1(b);
return 0;
}
}
static int
getstring(Dwarf *d, DwarfBuf *b, int form, char **s)
{
static int nbad;
ulong u, x;
switch(form){
default:
return -1;
case FormString:
x = b->p - d->info.data;
*s = dwarfgetstring(b);
for (u = 0; (*s)[u]; u++) {
assert(isprint((*s)[u]));
}
return 0;
case FormStrp:
u = dwarfget4(b);
if(u >= b->d->str.len){
if(++nbad == 1)
werrstr("dwarf: bad string pointer 0x%lux in attribute", u);
/* don't return error - maybe can proceed */
*s = nil;
}else
*s = (char*)b->d->str.data + u;
return 0;
}
}
static int
getblock(DwarfBuf *b, int form, DwarfBlock *bl)
{
ulong n;
switch(form){
default:
return -1;
case FormDwarfBlock:
n = dwarfget128(b);
goto copyn;
case FormDwarfBlock1:
n = dwarfget1(b);
goto copyn;
case FormDwarfBlock2:
n = dwarfget2(b);
goto copyn;
case FormDwarfBlock4:
n = dwarfget4(b);
copyn:
bl->data = dwarfgetnref(b, n);
bl->len = n;
if(bl->data == nil)
return -1;
return 0;
}
}
/* last resort */
static int
skipform(Dwarf *d, DwarfBuf *b, int form)
{
int type;
DwarfVal val;
if(getulong(b, form, 0, &val.c, &type) < 0
&& getuchar(b, form, (uchar*)&val) < 0
&& getstring(d, b, form, &val.s) < 0
&& getblock(b, form, &val.b) < 0)
return -1;
return 0;
}
void stackinit(DwarfStack *stack)
{
memset(stack, 0, sizeof(*stack));
stack->data = stack->storage;
stack->length = 0; stack->max = sizeof(stack->storage) / sizeof(stack->storage[0]);
}
void stackpush(DwarfStack *stack, ulong value)
{
if (stack->length == stack->max) {
ulong *newstack = malloc(sizeof(ulong)*stack->max*2);
memcpy(newstack, stack->data, sizeof(ulong)*stack->length);
if (stack->data != stack->storage)
free(stack->data);
stack->data = newstack;
stack->max *= 2;
}
werrstr("stack[%d] = %x", stack->length, value);
stack->data[stack->length++] = value;
}
ulong stackpop(DwarfStack *stack)
{
ASSERT(stack->length > 0);
ulong val = stack->data[--stack->length];
werrstr("pop stack[%d] -> %x", stack->length, val);
return val;
}
void stackfree(DwarfStack *stack)
{
if (stack->data != stack->storage)
free(stack->data);
}
// Returns -1 on failure
int dwarfgetarg(Dwarf *d, const char *name, DwarfBuf *buf, ulong cfa, PROSSYM_REGISTERS registers, ulong *result)
{
int ret = 0;
DwarfStack stack = { };
stackinit(&stack);
stackpush(&stack, cfa);
while (buf->p < buf->ep) {
int opcode = dwarfget1(buf);
werrstr("opcode %x", opcode);
switch (opcode) {
case 0:
buf->p = buf->ep;
break;
case OpAddr:
if (d->addrsize == 4) {
stackpush(&stack, dwarfget4(buf));
break;
} else {
werrstr("%s: we only support 4 byte addrs", name);
goto fatal;
}
case OpConst1s: {
signed char c = dwarfget1(buf);
stackpush(&stack, c);
} break;
case OpConst1u:
stackpush(&stack, dwarfget1(buf));
break;
case OpConst2s: {
signed short s = dwarfget2(buf);
stackpush(&stack, s);
} break;
case OpConst2u:
stackpush(&stack, dwarfget2(buf));
break;
case OpConst4s: {
signed int i = dwarfget4(buf);
stackpush(&stack, i);
} break;
case OpConst4u:
stackpush(&stack, dwarfget4(buf));
break;
case OpConst8s:
case OpConst8u:
werrstr("const 8 not yet supported");
goto fatal;
case OpConsts:
stackpush(&stack, dwarfget128s(buf));
break;
case OpConstu:
stackpush(&stack, dwarfget128(buf));
break;
case OpDup: {
ulong popped = stackpop(&stack);
stackpush(&stack, popped);
stackpush(&stack, popped);
} break;
case OpDrop:
stackpop(&stack);
break;
case OpOver: {
if (stack.length < 2) goto fatal;
stackpush(&stack, stack.data[stack.length-2]);
} break;
case OpPick: {
ulong arg = dwarfget1(buf);
if (arg >= stack.length) goto fatal;
arg = stack.data[stack.length-1-arg];
stackpush(&stack, arg);
} break;
case OpSwap: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b);
stackpush(&stack, a);
} break;
case OpRot: {
ulong a = stackpop(&stack), b = stackpop(&stack), c = stackpop(&stack);
stackpush(&stack, b);
stackpush(&stack, c);
stackpush(&stack, a);
} break;
case OpXderef:
case OpXderefSize:
werrstr("Xderef not yet supported");
goto fatal;
case OpAbs: {
long a = stackpop(&stack);
stackpush(&stack, a < 0 ? -a : a);
} break;
case OpAnd:
stackpush(&stack, stackpop(&stack) & stackpop(&stack));
break;
case OpDiv: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b / a);
} break;
case OpMinus: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b - a);
} break;
case OpMod: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b % a);
} break;
case OpMul:
stackpush(&stack, stackpop(&stack) * stackpop(&stack));
break;
case OpNeg:
stackpush(&stack, -stackpop(&stack));
break;
case OpNot:
stackpush(&stack, ~stackpop(&stack));
break;
case OpOr:
stackpush(&stack, stackpop(&stack) | stackpop(&stack));
break;
case OpPlus:
stackpush(&stack, stackpop(&stack) + stackpop(&stack));
break;
case OpPlusUconst:
stackpush(&stack, stackpop(&stack) + dwarfget128(buf));
break;
case OpShl: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b << a);
} break;
case OpShr: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b >> a);
} break;
case OpShra: {
ulong a = stackpop(&stack);
long b = stackpop(&stack);
if (b < 0)
b = -(-b >> a);
else
b = b >> a;
stackpush(&stack, b);
} break;
case OpXor:
stackpush(&stack, stackpop(&stack) ^ stackpop(&stack));
break;
case OpSkip:
buf->p += dwarfget2(buf);
break;
case OpBra: {
ulong a = dwarfget2(buf);
if (stackpop(&stack))
buf->p += a;
} break;
case OpEq:
stackpush(&stack, stackpop(&stack) == stackpop(&stack));
break;
case OpGe: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b >= a);
} break;
case OpGt: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b > a);
} break;
case OpLe: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b <= a);
} break;
case OpLt: {
ulong a = stackpop(&stack), b = stackpop(&stack);
stackpush(&stack, b < a);
} break;
case OpNe:
stackpush(&stack, stackpop(&stack) != stackpop(&stack));
break;
case OpNop:
break;
case OpDeref: {
ulong val;
void* addr = (void*)stackpop(&stack);
if (!RosSymCallbacks.MemGetProc
(d->pe->fd,
&val,
addr,
d->addrsize))
goto fatal;
stackpush(&stack, val);
} break;
case OpDerefSize: {
ulong val, size = dwarfget1(buf);
void* addr = (void*)stackpop(&stack);
if (!RosSymCallbacks.MemGetProc
(d->pe->fd,
&val,
addr,
size))
goto fatal;
stackpush(&stack, val);
} break;
case OpFbreg: {
ulong val, offset = dwarfget128s(buf);;
void* addr = (void*)cfa;
werrstr("FBREG cfa %x offset %x", cfa, offset);
if (!RosSymCallbacks.MemGetProc
(d->pe->fd,
&val,
(PVOID)((ULONG_PTR)addr+offset),
d->addrsize))
goto fatal;
stackpush(&stack, val);
} break;
case OpPiece:
werrstr("OpPiece not supported");
goto fatal;
default:
if (opcode >= OpLit0 && opcode < OpReg0)
stackpush(&stack, opcode - OpLit0);
else if (opcode >= OpReg0 && opcode < OpBreg0) {
ulong reg = opcode - OpReg0;
werrstr("REG[%d] value %x", reg, (ulong)registers->Registers[reg]);
stackpush(&stack, registers->Registers[reg]);
} else if (opcode >= OpBreg0 && opcode < OpRegx) {
ulong val,
reg = opcode - OpBreg0,
offset = dwarfget128s(buf);
void* addr = (void*)(ULONG_PTR)registers->Registers[reg];
werrstr("BREG[%d] reg %x offset %x", reg, addr, offset);
if (!RosSymCallbacks.MemGetProc
((PVOID)d->pe->fd,
&val,
(PVOID)((ULONG_PTR)addr + offset),
d->addrsize))
goto fatal;
stackpush(&stack, val);
} else {
werrstr("opcode %x not supported", opcode);
goto fatal;
}
break;
}
}
if (stack.length < 1) goto fatal;
*result = stackpop(&stack);
werrstr("%s: value %x", name, *result);
goto finish;
fatal:
ret = -1;
finish:
stackfree(&stack);
return ret;
}
int dwarfargvalue(Dwarf *d, DwarfSym *proc, ulong pc, ulong cfa, PROSSYM_REGISTERS registers, DwarfParam *parameter)
{
int gotarg;
DwarfSym unit = { };
if (dwarfenumunit(d, proc->unit, &unit) == -1)
return -1;
werrstr("lookup in unit %x-%x, pc %x", unit.attrs.lowpc, unit.attrs.highpc, pc);
pc -= unit.attrs.lowpc;
werrstr("paramblock %s -> unit %x type %x fde %x len %d registers %x",
parameter->name,
parameter->unit,
parameter->type,
parameter->fde,
parameter->len,
registers);
// Seek our range in loc
DwarfBuf locbuf;
DwarfBuf instream = { };
locbuf.d = d;
locbuf.addrsize = d->addrsize;
if (parameter->loctype == TConstant) {
locbuf.p = d->loc.data + parameter->fde;
locbuf.ep = d->loc.data + d->loc.len;
ulong start, end, len;
do {
len = 0;
start = dwarfget4(&locbuf);
end = dwarfget4(&locbuf);
if (start && end) {
len = dwarfget2(&locbuf);
instream = locbuf;
instream.ep = instream.p + len;
locbuf.p = instream.ep;
}
werrstr("ip %x s %x e %x (%x bytes)", pc, start, end, len);
} while (start && end && (start > pc || end <= pc));
} else if (parameter->loctype == TBlock) {
instream = locbuf;
instream.p = (void *)parameter->fde;
instream.ep = instream.p + parameter->len;
} else {
werrstr("Wrong block type for parameter %s", parameter->name);
return -1;
}
gotarg = dwarfgetarg(d, parameter->name, &instream, cfa, registers, &parameter->value);
if (gotarg == -1)
return -1;
return 0;
}
void
dwarfdumpsym(Dwarf *d, DwarfSym *s)
{
int j;
werrstr("tag %x\n", s->attrs.tag);
for (j = 0; plist[j].name; j++) {
char *have = ((char*)&s->attrs) + plist[j].haveoff;
char *attr = ((char*)&s->attrs) + plist[j].off;
if (*have == TString) {
char *str = *((char **)attr);
werrstr("%s: %s\n", plist[j].namestr, str);
} else if (*have == TReference) {
DwarfVal *val = ((DwarfVal*)attr);
werrstr("%s: %x:%x\n", plist[j].namestr, val->b.data, val->b.len);
} else if (*have)
werrstr("%s: (%x)\n", plist[j].namestr, *have);
}
}
int
dwarfgetparams(Dwarf *d, DwarfSym *s, ulong pc, int pnum, DwarfParam *paramblocks)
{
int ip = 0;
DwarfSym param = { };
int res = dwarfnextsymat(d, s, &param);
while (res == 0 && ip < pnum) {
if (param.attrs.tag == TagFormalParameter &&
param.attrs.have.name &&
param.attrs.have.location) {
paramblocks[ip].name = malloc(strlen(param.attrs.name)+1);
strcpy(paramblocks[ip].name, param.attrs.name);
paramblocks[ip].unit = param.unit;
paramblocks[ip].type = param.attrs.type;
paramblocks[ip].loctype = param.attrs.have.location;
paramblocks[ip].len = param.attrs.location.b.len;
paramblocks[ip].fde = (ulong)param.attrs.location.b.data;
werrstr("param[%d] block %s -> type %x loctype %x fde %x len %x",
ip,
paramblocks[ip].name,
paramblocks[ip].type,
paramblocks[ip].loctype,
paramblocks[ip].fde,
paramblocks[ip].len);
ip++;
}
res = dwarfnextsymat(d, s, &param);
}
return ip;
}
Reference in a new issue View git blame Copy permalink