mirror of
https://github.com/golang/go
synced 2024-11-22 05:34:39 -07:00
Dwarf output for 6l.
Part 1, general scaffolding and pc/lc sections. R=rsc, r, ken2 CC=golang-dev https://golang.org/cl/1987042
This commit is contained in:
Luuk van Dijk
parent
632417e5e7
commit
ca9098ee94
@ -9,6 +9,7 @@ TARG=\
|
||||
|
||||
OFILES=\
|
||||
asm.$O\
|
||||
dwarf.$O\
|
||||
elf.$O\
|
||||
enam.$O\
|
||||
go.$O\
|
||||
@ -26,6 +27,7 @@ HFILES=\
|
||||
../ld/lib.h\
|
||||
../ld/elf.h\
|
||||
../ld/macho.h\
|
||||
../ld/dwarf.h\
|
||||
|
||||
$(TARG): $(OFILES)
|
||||
$(LD) -o $(TARG) -L"$(GOROOT)"/lib $(OFILES) -lbio -l9
|
||||
|
||||
@ -31,6 +31,7 @@
|
||||
#include "l.h"
|
||||
#include "../ld/lib.h"
|
||||
#include "../ld/elf.h"
|
||||
#include "../ld/dwarf.h"
|
||||
#include "../ld/macho.h"
|
||||
|
||||
#define Dbufslop 100
|
||||
@ -300,10 +301,9 @@ doelf(void)
|
||||
elfstr[ElfStrGosymcounts] = addstring(shstrtab, ".gosymcounts");
|
||||
elfstr[ElfStrGosymtab] = addstring(shstrtab, ".gosymtab");
|
||||
elfstr[ElfStrGopclntab] = addstring(shstrtab, ".gopclntab");
|
||||
if(debug['e']) {
|
||||
elfstr[ElfStrSymtab] = addstring(shstrtab, ".symtab");
|
||||
elfstr[ElfStrStrtab] = addstring(shstrtab, ".strtab");
|
||||
}
|
||||
elfstr[ElfStrSymtab] = addstring(shstrtab, ".symtab");
|
||||
elfstr[ElfStrStrtab] = addstring(shstrtab, ".strtab");
|
||||
dwarfaddshstrings(shstrtab);
|
||||
}
|
||||
elfstr[ElfStrShstrtab] = addstring(shstrtab, ".shstrtab");
|
||||
|
||||
@ -546,7 +546,7 @@ asmb(void)
|
||||
seek(cout, v, 0);
|
||||
|
||||
/* index of elf text section; needed by asmelfsym, double-checked below */
|
||||
/* debug['d'] causes 8 extra sections before the .text section */
|
||||
/* !debug['d'] causes 8 extra sections before the .text section */
|
||||
elftextsh = 1;
|
||||
if(!debug['d'])
|
||||
elftextsh += 8;
|
||||
@ -627,7 +627,7 @@ asmb(void)
|
||||
lputl(symsize);
|
||||
lputl(lcsize);
|
||||
cflush();
|
||||
if(!debug['s'] && debug['e']) {
|
||||
if(!debug['s']) {
|
||||
elfsymo = symo+8+symsize+lcsize;
|
||||
seek(cout, elfsymo, 0);
|
||||
asmelfsym();
|
||||
@ -635,6 +635,11 @@ asmb(void)
|
||||
elfstro = seek(cout, 0, 1);
|
||||
elfsymsize = elfstro - elfsymo;
|
||||
write(cout, elfstrdat, elfstrsize);
|
||||
|
||||
if(debug['v'])
|
||||
Bprint(&bso, "%5.2f dwarf\n", cputime());
|
||||
|
||||
dwarfemitdebugsections();
|
||||
}
|
||||
} else
|
||||
if(dlm){
|
||||
@ -911,21 +916,21 @@ asmb(void)
|
||||
sh->addralign = 1;
|
||||
sh->addr = symdatva + 8 + symsize;
|
||||
|
||||
if(debug['e']) {
|
||||
sh = newElfShdr(elfstr[ElfStrSymtab]);
|
||||
sh->type = SHT_SYMTAB;
|
||||
sh->off = elfsymo;
|
||||
sh->size = elfsymsize;
|
||||
sh->addralign = 8;
|
||||
sh->entsize = 24;
|
||||
sh->link = eh->shnum; // link to strtab
|
||||
sh = newElfShdr(elfstr[ElfStrSymtab]);
|
||||
sh->type = SHT_SYMTAB;
|
||||
sh->off = elfsymo;
|
||||
sh->size = elfsymsize;
|
||||
sh->addralign = 8;
|
||||
sh->entsize = 24;
|
||||
sh->link = eh->shnum; // link to strtab
|
||||
|
||||
sh = newElfShdr(elfstr[ElfStrStrtab]);
|
||||
sh->type = SHT_STRTAB;
|
||||
sh->off = elfstro;
|
||||
sh->size = elfstrsize;
|
||||
sh->addralign = 1;
|
||||
}
|
||||
sh = newElfShdr(elfstr[ElfStrStrtab]);
|
||||
sh->type = SHT_STRTAB;
|
||||
sh->off = elfstro;
|
||||
sh->size = elfstrsize;
|
||||
sh->addralign = 1;
|
||||
|
||||
dwarfaddheaders();
|
||||
}
|
||||
|
||||
sh = newElfShstrtab(elfstr[ElfStrShstrtab]);
|
||||
@ -977,6 +982,13 @@ cflush(void)
|
||||
cbc = sizeof(buf.cbuf);
|
||||
}
|
||||
|
||||
/* Current position in file */
|
||||
vlong
|
||||
cpos(void)
|
||||
{
|
||||
return seek(cout, 0, 1) + sizeof(buf.cbuf) - cbc;
|
||||
}
|
||||
|
||||
void
|
||||
outa(int n, uchar *cast, uchar *map, vlong l)
|
||||
{
|
||||
@ -1322,4 +1334,3 @@ rnd(vlong v, vlong r)
|
||||
v -= c;
|
||||
return v;
|
||||
}
|
||||
|
||||
|
||||
@ -394,6 +394,7 @@ Prog* brchain(Prog*);
|
||||
Prog* brloop(Prog*);
|
||||
void buildop(void);
|
||||
void cflush(void);
|
||||
vlong cpos(void);
|
||||
void ckoff(Sym*, int32);
|
||||
Prog* copyp(Prog*);
|
||||
double cputime(void);
|
||||
|
||||
@ -33,6 +33,7 @@
|
||||
#include "../ld/lib.h"
|
||||
#include "../ld/elf.h"
|
||||
#include "../ld/macho.h"
|
||||
#include "../ld/dwarf.h"
|
||||
#include <ar.h>
|
||||
|
||||
char *noname = "<none>";
|
||||
@ -575,6 +576,7 @@ loop:
|
||||
histfrogp++;
|
||||
} else
|
||||
collapsefrog(s);
|
||||
dwarfaddfrag(s->value, s->name);
|
||||
}
|
||||
goto loop;
|
||||
}
|
||||
@ -1058,4 +1060,3 @@ doprof2(void)
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
815
src/cmd/ld/dwarf.c
Normal file
815
src/cmd/ld/dwarf.c
Normal file
@ -0,0 +1,815 @@
|
||||
// Copyright 2010 The Go Authors. All rights reserved.
|
||||
// Use of this source code is governed by a BSD-style
|
||||
// license that can be found in the LICENSE file.
|
||||
|
||||
#include "l.h"
|
||||
#include "lib.h"
|
||||
#include "../ld/dwarf.h"
|
||||
#include "../ld/dwarf_defs.h"
|
||||
#include "../ld/elf.h"
|
||||
|
||||
/*
|
||||
* Offsets and sizes of the .debug_* sections in the cout file.
|
||||
*/
|
||||
|
||||
static vlong abbrevo;
|
||||
static vlong abbrevsize;
|
||||
static vlong lineo;
|
||||
static vlong linesize;
|
||||
static vlong infoo;
|
||||
static vlong infosize;
|
||||
|
||||
|
||||
/*
|
||||
* Defining Abbrevs. This is hardcoded, and there will be
|
||||
* only a handful of them. The DWARF spec places no restriction on
|
||||
* the ordering of atributes in the Abbrevs and DIEs, and we will
|
||||
* always write them out in the order of declaration in the abbrev.
|
||||
* This implementation relies on tag, attr < 127, so they serialize as
|
||||
* a char, hence we do not support user-defined tags or attributes.
|
||||
*/
|
||||
typedef struct DWAttrForm DWAttrForm;
|
||||
struct DWAttrForm {
|
||||
uint8 attr;
|
||||
uint8 form;
|
||||
};
|
||||
|
||||
// index into the abbrevs table below.
|
||||
enum
|
||||
{
|
||||
DW_ABRV_NULL,
|
||||
DW_ABRV_COMPUNIT,
|
||||
DW_NABRV
|
||||
};
|
||||
|
||||
typedef struct DWAbbrev DWAbbrev;
|
||||
struct DWAbbrev {
|
||||
uint8 tag;
|
||||
uint8 children;
|
||||
DWAttrForm attr[30];
|
||||
} abbrevs[DW_NABRV] = {
|
||||
/* The mandatory DW_ABRV_NULL entry. */
|
||||
{ 0 },
|
||||
/* COMPUNIT */
|
||||
{
|
||||
DW_TAG_compile_unit, DW_CHILDREN_yes,
|
||||
DW_AT_name, DW_FORM_string,
|
||||
DW_AT_language, DW_FORM_data1,
|
||||
DW_AT_low_pc, DW_FORM_addr,
|
||||
DW_AT_high_pc, DW_FORM_addr,
|
||||
DW_AT_stmt_list, DW_FORM_data4,
|
||||
0, 0
|
||||
},
|
||||
};
|
||||
|
||||
/*
|
||||
* Debugging Information Entries and their attributes
|
||||
*/
|
||||
|
||||
|
||||
// for string and block, value contains the length, and data the data,
|
||||
// for all others, value is the whole thing and data is null.
|
||||
|
||||
typedef struct DWAttr DWAttr;
|
||||
struct DWAttr {
|
||||
DWAttr *link;
|
||||
uint8 atr; // DW_AT_
|
||||
uint8 cls; // DW_CLS_
|
||||
vlong value;
|
||||
char *data;
|
||||
};
|
||||
|
||||
typedef struct DWDie DWDie;
|
||||
struct DWDie {
|
||||
int abbrev;
|
||||
DWDie *link;
|
||||
DWDie *child;
|
||||
DWAttr *attr;
|
||||
};
|
||||
|
||||
// top level compilation unit DIE's
|
||||
static DWDie *dwinfo;
|
||||
|
||||
static DWDie*
|
||||
newdie(DWDie *link, int abbrev)
|
||||
{
|
||||
DWDie *die;
|
||||
|
||||
die = mal(sizeof *die);
|
||||
die->abbrev = abbrev;
|
||||
die->link = link;
|
||||
return die;
|
||||
}
|
||||
|
||||
static DWAttr*
|
||||
newattr(DWDie *die, uint8 attr, int cls, vlong value, char *data)
|
||||
{
|
||||
DWAttr *a;
|
||||
|
||||
a = mal(sizeof *a);
|
||||
a->link = die->attr;
|
||||
die->attr = a;
|
||||
a->atr = attr;
|
||||
a->cls = cls;
|
||||
a->value = value;
|
||||
a->data = data;
|
||||
return a;
|
||||
}
|
||||
|
||||
static void
|
||||
uleb128put(uvlong v)
|
||||
{
|
||||
uint8 c;
|
||||
|
||||
do {
|
||||
c = v & 0x7f;
|
||||
v >>= 7;
|
||||
if (v) c |= 0x80;
|
||||
cput(c);
|
||||
} while (c & 0x80);
|
||||
};
|
||||
|
||||
static void
|
||||
sleb128put(vlong v)
|
||||
{
|
||||
uint8 c, s;
|
||||
|
||||
do {
|
||||
c = v & 0x7f;
|
||||
s = c & 0x40;
|
||||
v >>= 7;
|
||||
if ((v != -1 || !s) && (v != 0 || s))
|
||||
c |= 0x80;
|
||||
cput(c);
|
||||
} while(c & 0x80);
|
||||
};
|
||||
|
||||
static void
|
||||
putattr(int form, int cls, vlong value, char *data)
|
||||
{
|
||||
switch(form) {
|
||||
case DW_FORM_addr: // address
|
||||
VPUT(value);
|
||||
break;
|
||||
|
||||
case DW_FORM_block1: // block
|
||||
value &= 0xff;
|
||||
cput(value);
|
||||
while(value--)
|
||||
cput(*data++);
|
||||
break;
|
||||
|
||||
case DW_FORM_block2: // block
|
||||
value &= 0xffff;
|
||||
WPUT(value);
|
||||
while(value--)
|
||||
cput(*data++);
|
||||
break;
|
||||
|
||||
case DW_FORM_block4: // block
|
||||
value &= 0xffffffff;
|
||||
LPUT(value);
|
||||
while(value--)
|
||||
cput(*data++);
|
||||
break;
|
||||
|
||||
case DW_FORM_block: // block
|
||||
uleb128put(value);
|
||||
while(value--)
|
||||
cput(*data++);
|
||||
break;
|
||||
|
||||
case DW_FORM_data1: // constant
|
||||
cput(value);
|
||||
break;
|
||||
|
||||
case DW_FORM_data2: // constant
|
||||
WPUT(value);
|
||||
break;
|
||||
|
||||
case DW_FORM_data4: // constant, lineptr, loclistptr, macptr, rangelistptr
|
||||
LPUT(value);
|
||||
break;
|
||||
|
||||
case DW_FORM_data8: // constant, lineptr, loclistptr, macptr, rangelistptr
|
||||
VPUT(value);
|
||||
break;
|
||||
|
||||
case DW_FORM_sdata: // constant
|
||||
sleb128put(value);
|
||||
break;
|
||||
|
||||
case DW_FORM_udata: // constant
|
||||
uleb128put(value);
|
||||
break;
|
||||
|
||||
case DW_FORM_string: // string
|
||||
strnput(data, value+1);
|
||||
break;
|
||||
|
||||
case DW_FORM_flag: // flag
|
||||
cput(value?1:0);
|
||||
break;
|
||||
|
||||
case DW_FORM_strp: // string
|
||||
case DW_FORM_ref_addr: // reference
|
||||
case DW_FORM_ref1: // reference
|
||||
case DW_FORM_ref2: // reference
|
||||
case DW_FORM_ref4: // reference
|
||||
case DW_FORM_ref8: // reference
|
||||
case DW_FORM_ref_udata: // reference
|
||||
case DW_FORM_indirect: // (see Section 7.5.3)
|
||||
default:
|
||||
diag("Unsupported atribute form %d / class %d", form, cls);
|
||||
errorexit();
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
putattrs(int abbrev, DWAttr* attr)
|
||||
{
|
||||
DWAttr *attrs[DW_AT_recursive + 1];
|
||||
DWAttrForm* af;
|
||||
|
||||
memset(attrs, 0, sizeof attrs);
|
||||
for( ; attr; attr = attr->link)
|
||||
attrs[attr->atr] = attr;
|
||||
for(af = abbrevs[abbrev].attr; af->attr; af++)
|
||||
if (attrs[af->attr])
|
||||
putattr(af->form,
|
||||
attrs[af->attr]->cls,
|
||||
attrs[af->attr]->value,
|
||||
attrs[af->attr]->data);
|
||||
else
|
||||
putattr(af->form, 0, 0, 0);
|
||||
}
|
||||
|
||||
static void putdie(DWDie* die);
|
||||
|
||||
static void
|
||||
putdies(DWDie* die)
|
||||
{
|
||||
for(; die; die = die->link)
|
||||
putdie(die);
|
||||
}
|
||||
|
||||
static void
|
||||
putdie(DWDie* die)
|
||||
{
|
||||
uleb128put(die->abbrev);
|
||||
putattrs(die->abbrev, die->attr);
|
||||
if (abbrevs[die->abbrev].children) {
|
||||
putdies(die->child);
|
||||
cput(0);
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
reverselist(DWDie** list)
|
||||
{
|
||||
DWDie *curr, * prev;
|
||||
|
||||
curr = *list;
|
||||
prev = 0;
|
||||
while(curr) {
|
||||
DWDie* next = curr->link;
|
||||
curr->link = prev;
|
||||
prev = curr;
|
||||
curr = next;
|
||||
}
|
||||
*list = prev;
|
||||
}
|
||||
|
||||
/*
|
||||
* Filename fragments for the line history stack.
|
||||
*/
|
||||
|
||||
static char **ftab;
|
||||
static int ftabsize;
|
||||
|
||||
void
|
||||
dwarfaddfrag(int n, char *frag)
|
||||
{
|
||||
int s;
|
||||
|
||||
if (n >= ftabsize) {
|
||||
s = ftabsize;
|
||||
ftabsize = 1 + n + (n >> 2);
|
||||
ftab = realloc(ftab, ftabsize * sizeof(ftab[0]));
|
||||
memset(ftab + s, 0, (ftabsize - s) * sizeof(ftab[0]));
|
||||
}
|
||||
|
||||
if (*frag == '<')
|
||||
frag++;
|
||||
ftab[n] = frag;
|
||||
}
|
||||
|
||||
// Returns a malloc'ed string, piecewise copied from the ftab.
|
||||
static char *
|
||||
decodez(char *s)
|
||||
{
|
||||
int len, o;
|
||||
char *ss, *f;
|
||||
char *r, *rb, *re;
|
||||
|
||||
len = 0;
|
||||
ss = s + 1; // first is 0
|
||||
while((o = ((uint8)ss[0] << 8) | (uint8)ss[1]) != 0) {
|
||||
if (o < 0 || o >= ftabsize) {
|
||||
diag("corrupt z entry");
|
||||
return 0;
|
||||
}
|
||||
f = ftab[o];
|
||||
if (!f) {
|
||||
diag("corrupt z entry");
|
||||
return 0;
|
||||
}
|
||||
len += strlen(f) + 1; // for the '/'
|
||||
ss += 2;
|
||||
}
|
||||
|
||||
if (len == 0)
|
||||
return 0;
|
||||
|
||||
r = malloc(len + 1);
|
||||
rb = r;
|
||||
re = rb + len + 1;
|
||||
|
||||
s++;
|
||||
while((o = ((uint8)s[0] << 8) | (uint8)s[1]) != 0) {
|
||||
f = ftab[o];
|
||||
if (rb == r || rb[-1] == '/')
|
||||
rb = seprint(rb, re, "%s", f);
|
||||
else
|
||||
rb = seprint(rb, re, "/%s", f);
|
||||
s += 2;
|
||||
}
|
||||
return r;
|
||||
}
|
||||
|
||||
/*
|
||||
* The line history itself
|
||||
*/
|
||||
|
||||
static char **histfile; // [0] holds the empty string.
|
||||
static int histfilesize;
|
||||
static int histfilecap;
|
||||
|
||||
static void
|
||||
clearhistfile(void)
|
||||
{
|
||||
int i;
|
||||
|
||||
// [0] holds the empty string.
|
||||
for (i = 1; i < histfilesize; i++)
|
||||
free(histfile[i]);
|
||||
histfilesize = 0;
|
||||
}
|
||||
|
||||
static int
|
||||
addhistfile(char *zentry)
|
||||
{
|
||||
char *fname;
|
||||
|
||||
if (histfilesize == histfilecap) {
|
||||
histfilecap = 2 * histfilecap + 2;
|
||||
histfile = realloc(histfile, histfilecap * sizeof(char*));
|
||||
}
|
||||
if (histfilesize == 0)
|
||||
histfile[histfilesize++] = "<eof>";
|
||||
|
||||
fname = decodez(zentry);
|
||||
if (fname == 0)
|
||||
return -1;
|
||||
// Don't fill with duplicates (check only top one).
|
||||
if (strcmp(fname, histfile[histfilesize-1]) == 0) {
|
||||
free(fname);
|
||||
return histfilesize - 1;
|
||||
}
|
||||
histfile[histfilesize++] = fname;
|
||||
return histfilesize - 1;
|
||||
}
|
||||
|
||||
// Go's runtime C sources are sane, and Go sources nest only 1 level,
|
||||
// so 16 should be plenty.
|
||||
static struct {
|
||||
int file;
|
||||
vlong line;
|
||||
} includestack[16];
|
||||
static int includetop;
|
||||
static vlong absline;
|
||||
|
||||
typedef struct Linehist Linehist;
|
||||
struct Linehist {
|
||||
Linehist *link;
|
||||
vlong absline;
|
||||
vlong line;
|
||||
int file;
|
||||
};
|
||||
|
||||
static Linehist *linehist;
|
||||
|
||||
static void
|
||||
checknesting(void)
|
||||
{
|
||||
int i;
|
||||
|
||||
if (includetop < 0) {
|
||||
diag("corrupt z stack");
|
||||
errorexit();
|
||||
}
|
||||
if (includetop >= nelem(includestack)) {
|
||||
diag("nesting too deep");
|
||||
for (i = 0; i < nelem(includestack); i++)
|
||||
diag("\t%s", histfile[includestack[i].file]);
|
||||
errorexit();
|
||||
}
|
||||
}
|
||||
|
||||
/* find z and Z entries in the Auto list (of a Prog), and reset the history stack */
|
||||
static char *
|
||||
inithist(Auto *a)
|
||||
{
|
||||
char *unitname;
|
||||
Linehist *lh;
|
||||
|
||||
for (; a; a = a->link)
|
||||
if (a->type == D_FILE)
|
||||
break;
|
||||
if (a==nil)
|
||||
return 0;
|
||||
|
||||
// We have a new history. They are guaranteed to come completely
|
||||
// at the beginning of the compilation unit.
|
||||
if (a->aoffset != 1) {
|
||||
diag("stray 'z' with offset %d", a->aoffset);
|
||||
return 0;
|
||||
}
|
||||
|
||||
unitname = decodez(a->asym->name);
|
||||
|
||||
// Clear the history.
|
||||
clearhistfile();
|
||||
includetop = 0;
|
||||
includestack[includetop].file = 0;
|
||||
includestack[includetop].line = -1;
|
||||
absline = 0;
|
||||
while (linehist != nil) {
|
||||
lh = linehist->link;
|
||||
free(linehist);
|
||||
linehist = lh;
|
||||
}
|
||||
|
||||
// Construct the new one.
|
||||
for (; a; a = a->link) {
|
||||
if (a->type == D_FILE) { // 'z'
|
||||
int f = addhistfile(a->asym->name);
|
||||
if (f < 0) { // pop file
|
||||
includetop--;
|
||||
checknesting();
|
||||
} else if(f != includestack[includetop].file) { // pushed a new file
|
||||
includestack[includetop].line += a->aoffset - absline;
|
||||
includetop++;
|
||||
checknesting();
|
||||
includestack[includetop].file = f;
|
||||
includestack[includetop].line = 1;
|
||||
|
||||
}
|
||||
absline = a->aoffset;
|
||||
} else if (a->type == D_FILE1) { // 'Z'
|
||||
// We could just fixup the current
|
||||
// linehist->line, but there doesn't appear to
|
||||
// be a guarantee that every 'Z' is preceded
|
||||
// by it's own 'z', so do the safe thing and
|
||||
// update the stack and push a new Linehist
|
||||
// entry
|
||||
includestack[includetop].line = a->aoffset;
|
||||
} else
|
||||
continue;
|
||||
if (linehist == 0 || linehist->absline != absline) {
|
||||
Linehist* lh = malloc(sizeof *lh);
|
||||
lh->link = linehist;
|
||||
lh->absline = absline;
|
||||
linehist = lh;
|
||||
}
|
||||
linehist->file = includestack[includetop].file;
|
||||
linehist->line = includestack[includetop].line;
|
||||
}
|
||||
return unitname;
|
||||
}
|
||||
|
||||
static Linehist *
|
||||
searchhist(vlong absline)
|
||||
{
|
||||
Linehist *lh;
|
||||
|
||||
for (lh = linehist; lh; lh = lh->link)
|
||||
if (lh->absline <= absline)
|
||||
break;
|
||||
return lh;
|
||||
}
|
||||
|
||||
static void
|
||||
writeabbrev(void)
|
||||
{
|
||||
int i, n;
|
||||
|
||||
abbrevo = cpos();
|
||||
for (i = 1; i < DW_NABRV; i++) {
|
||||
// See section 7.5.3
|
||||
uleb128put(i);
|
||||
uleb128put(abbrevs[i].tag);
|
||||
cput(abbrevs[i].children);
|
||||
// 0 is not a valid attr or form, so we can treat this as
|
||||
// a string
|
||||
n = strlen((char *) abbrevs[i].attr) / 2;
|
||||
strnput((char *) abbrevs[i].attr,
|
||||
(n + 1) * sizeof(DWAttrForm));
|
||||
}
|
||||
cput(0);
|
||||
abbrevsize = cpos() - abbrevo;
|
||||
}
|
||||
|
||||
|
||||
static int
|
||||
guesslang(char *s)
|
||||
{
|
||||
if(strlen(s) >= 3 && strcmp(s+strlen(s)-3, ".go") == 0)
|
||||
return DW_LANG_Go;
|
||||
|
||||
return DW_LANG_C;
|
||||
}
|
||||
|
||||
/*
|
||||
* Generate short opcodes when possible, long ones when neccesary.
|
||||
* See section 6.2.5
|
||||
*/
|
||||
|
||||
enum {
|
||||
LINE_BASE = -1,
|
||||
LINE_RANGE = 4,
|
||||
OPCODE_BASE = 5
|
||||
};
|
||||
|
||||
static void
|
||||
putpclcdelta(vlong delta_pc, vlong delta_lc)
|
||||
{
|
||||
if (LINE_BASE <= delta_lc && delta_lc < LINE_BASE+LINE_RANGE) {
|
||||
vlong opcode = OPCODE_BASE + (delta_lc - LINE_BASE) + (LINE_RANGE * delta_pc);
|
||||
if (OPCODE_BASE <= opcode && opcode < 256) {
|
||||
cput(opcode);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
if (delta_pc) {
|
||||
cput(DW_LNS_advance_pc);
|
||||
sleb128put(delta_pc);
|
||||
}
|
||||
|
||||
cput(DW_LNS_advance_line);
|
||||
sleb128put(delta_lc);
|
||||
cput(DW_LNS_copy);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Walk prog table, emit line program and build DIE tree.
|
||||
*/
|
||||
|
||||
// flush previous compilation unit.
|
||||
static void
|
||||
flushunit(vlong pc, vlong unitstart)
|
||||
{
|
||||
vlong here;
|
||||
|
||||
if (dwinfo != 0 && pc != 0) {
|
||||
newattr(dwinfo, DW_AT_high_pc, DW_CLS_ADDRESS, pc, 0);
|
||||
}
|
||||
|
||||
if (unitstart >= 0) {
|
||||
cput(0); // start extended opcode
|
||||
uleb128put(1);
|
||||
cput(DW_LNE_end_sequence);
|
||||
cflush();
|
||||
|
||||
here = cpos();
|
||||
seek(cout, unitstart, 0);
|
||||
LPUT(here - unitstart - sizeof(int32));
|
||||
cflush();
|
||||
seek(cout, here, 0);
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
writelines(void)
|
||||
{
|
||||
Prog *p, *q;
|
||||
Sym *s;
|
||||
char *unitname;
|
||||
vlong unitstart;
|
||||
vlong pc, lc, llc, lline;
|
||||
int currfile;
|
||||
int i;
|
||||
Linehist *lh;
|
||||
|
||||
unitstart = -1;
|
||||
pc = 0;
|
||||
lc = 1;
|
||||
llc = 1;
|
||||
currfile = -1;
|
||||
lineo = cpos();
|
||||
|
||||
for (p = textp; p != P; p = p->pcond) {
|
||||
s = p->from.sym;
|
||||
if (s == nil || s->type != STEXT) {
|
||||
diag("->pcond was supposed to loop over STEXT: %P", p);
|
||||
continue;
|
||||
}
|
||||
|
||||
// Look for history stack. If we find one,
|
||||
// we're entering a new compilation unit
|
||||
if ((unitname = inithist(p->to.autom)) != 0) {
|
||||
flushunit(pc, unitstart);
|
||||
unitstart = cpos();
|
||||
if(debug['v'] > 1) {
|
||||
print("dwarf writelines found %s\n", unitname);
|
||||
Linehist* lh;
|
||||
for (lh = linehist; lh; lh = lh->link)
|
||||
print("\t%8lld: [%4lld]%s\n",
|
||||
lh->absline, lh->line, histfile[lh->file]);
|
||||
}
|
||||
dwinfo = newdie(dwinfo, DW_ABRV_COMPUNIT);
|
||||
newattr(dwinfo, DW_AT_name, DW_CLS_STRING, strlen(unitname), unitname);
|
||||
newattr(dwinfo, DW_AT_language, DW_CLS_CONSTANT, guesslang(unitname), 0);
|
||||
newattr(dwinfo, DW_AT_stmt_list, DW_CLS_PTR, unitstart - lineo, 0);
|
||||
newattr(dwinfo, DW_AT_low_pc, DW_CLS_ADDRESS, p->pc, 0);
|
||||
// Write .debug_line Line Number Program Header (sec 6.2.4)
|
||||
// Fields marked with (*) must be changed for 64-bit dwarf
|
||||
LPUT(0); // unit_length (*), will be filled in later.
|
||||
WPUT(3); // version
|
||||
LPUT(11); // header_length (*)
|
||||
cput(1); // minimum_instruction_length
|
||||
cput(1); // default_is_stmt
|
||||
cput(LINE_BASE); // line_base
|
||||
cput(LINE_RANGE); // line_range
|
||||
cput(OPCODE_BASE); // opcode_base (we only use 1..4)
|
||||
cput(0); // standard_opcode_lengths[1]
|
||||
cput(1); // standard_opcode_lengths[2]
|
||||
cput(1); // standard_opcode_lengths[3]
|
||||
cput(1); // standard_opcode_lengths[4]
|
||||
cput(0); // include_directories (empty)
|
||||
cput(0); // file_names (empty) (emitted by DW_LNE's below)
|
||||
for (i=1; i < histfilesize; i++) {
|
||||
cput(0); // start extended opcode
|
||||
uleb128put(1 + strlen(histfile[i]) + 4);
|
||||
cput(DW_LNE_define_file);
|
||||
strnput(histfile[i], strlen(histfile[i]) + 4);
|
||||
// 4 zeros: the string termination + 3 fields.
|
||||
}
|
||||
pc = p->pc;
|
||||
currfile = 1;
|
||||
lc = 1;
|
||||
llc = 1;
|
||||
cput(0); // start extended opcode
|
||||
uleb128put(1 + sizeof pc);
|
||||
cput(DW_LNE_set_address);
|
||||
VPUT(pc);
|
||||
}
|
||||
if (!p->from.sym->reachable)
|
||||
continue;
|
||||
if (unitstart < 0) {
|
||||
diag("Reachable code before seeing any history: %P", p);
|
||||
continue;
|
||||
}
|
||||
for(q = p; q != P && (q == p || q->as != ATEXT); q = q->link) {
|
||||
lh = searchhist(q->line);
|
||||
if (!lh) {
|
||||
diag("corrupt history or bad absolute line: %P", q);
|
||||
continue;
|
||||
}
|
||||
lline = lh->line + q->line - lh->absline;
|
||||
if (debug['v'] > 1)
|
||||
print("%6llux %s[%lld] %P\n", q->pc, histfile[lh->file], lline, q);
|
||||
// Only emit a line program statement if line has changed.
|
||||
if (q->line == lc)
|
||||
continue;
|
||||
if (currfile != lh->file) {
|
||||
currfile = lh->file;
|
||||
cput(DW_LNS_set_file);
|
||||
uleb128put(currfile);
|
||||
}
|
||||
putpclcdelta(q->pc - pc, lline - llc);
|
||||
pc = q->pc;
|
||||
lc = q->line;
|
||||
llc = lline;
|
||||
}
|
||||
}
|
||||
flushunit(pc, unitstart);
|
||||
linesize = cpos() - lineo;
|
||||
}
|
||||
|
||||
/*
|
||||
* Walk DWarfDebugInfoEntries, and emit .debug_info
|
||||
*/
|
||||
static void
|
||||
writeinfo(void)
|
||||
{
|
||||
DWDie *compunit;
|
||||
vlong unitstart;
|
||||
|
||||
reverselist(&dwinfo);
|
||||
|
||||
infoo = cpos();
|
||||
|
||||
for (compunit = dwinfo; compunit; compunit = compunit->link) {
|
||||
unitstart = cpos();
|
||||
|
||||
// Write .debug_info Compilation Unit Header (sec 7.5.1)
|
||||
// Fields marked with (*) must be changed for 64-bit dwarf
|
||||
LPUT(0); // unit_length (*), will be filled in later.
|
||||
WPUT(3); // version
|
||||
LPUT(0); // debug_abbrev_offset (*)
|
||||
cput(8); // address_size
|
||||
|
||||
putdie(compunit);
|
||||
|
||||
cflush();
|
||||
vlong here = cpos();
|
||||
seek(cout, unitstart, 0);
|
||||
LPUT(here - unitstart - sizeof(int32));
|
||||
cflush();
|
||||
seek(cout, here, 0);
|
||||
}
|
||||
|
||||
cflush();
|
||||
infosize = cpos() - infoo;
|
||||
}
|
||||
|
||||
/*
|
||||
* Elf sections.
|
||||
*/
|
||||
enum {
|
||||
ElfStrDebugAbbrev,
|
||||
ElfStrDebugAranges,
|
||||
ElfStrDebugFrame,
|
||||
ElfStrDebugInfo,
|
||||
ElfStrDebugLine,
|
||||
ElfStrDebugLoc,
|
||||
ElfStrDebugMacinfo,
|
||||
ElfStrDebugPubNames,
|
||||
ElfStrDebugPubTypes,
|
||||
ElfStrDebugRanges,
|
||||
ElfStrDebugStr,
|
||||
NElfStrDbg
|
||||
};
|
||||
|
||||
vlong elfstrdbg[NElfStrDbg];
|
||||
|
||||
void
|
||||
dwarfaddshstrings(Sym * shstrtab)
|
||||
{
|
||||
elfstrdbg[ElfStrDebugAbbrev] = addstring(shstrtab, ".debug_abbrev");
|
||||
elfstrdbg[ElfStrDebugAranges] = addstring(shstrtab, ".debug_aranges");
|
||||
elfstrdbg[ElfStrDebugFrame] = addstring(shstrtab, ".debug_frame");
|
||||
elfstrdbg[ElfStrDebugInfo] = addstring(shstrtab, ".debug_info");
|
||||
elfstrdbg[ElfStrDebugLine] = addstring(shstrtab, ".debug_line");
|
||||
elfstrdbg[ElfStrDebugLoc] = addstring(shstrtab, ".debug_loc");
|
||||
elfstrdbg[ElfStrDebugMacinfo] = addstring(shstrtab, ".debug_macinfo");
|
||||
elfstrdbg[ElfStrDebugPubNames] = addstring(shstrtab, ".debug_pubnames");
|
||||
elfstrdbg[ElfStrDebugPubTypes] = addstring(shstrtab, ".debug_pubtypes");
|
||||
elfstrdbg[ElfStrDebugRanges] = addstring(shstrtab, ".debug_ranges");
|
||||
elfstrdbg[ElfStrDebugStr] = addstring(shstrtab, ".debug_str");
|
||||
}
|
||||
|
||||
void
|
||||
dwarfemitdebugsections(void)
|
||||
{
|
||||
writeabbrev();
|
||||
writelines();
|
||||
writeinfo();
|
||||
}
|
||||
|
||||
void
|
||||
dwarfaddheaders(void)
|
||||
{
|
||||
ElfShdr *sh;
|
||||
|
||||
sh = newElfShdr(elfstrdbg[ElfStrDebugAbbrev]);
|
||||
sh->type = SHT_PROGBITS;
|
||||
sh->off = abbrevo;
|
||||
sh->size = abbrevsize;
|
||||
sh->addralign = 1;
|
||||
|
||||
sh = newElfShdr(elfstrdbg[ElfStrDebugLine]);
|
||||
sh->type = SHT_PROGBITS;
|
||||
sh->off = lineo;
|
||||
sh->size = linesize;
|
||||
sh->addralign = 1;
|
||||
|
||||
sh = newElfShdr(elfstrdbg[ElfStrDebugInfo]);
|
||||
sh->type = SHT_PROGBITS;
|
||||
sh->off = infoo;
|
||||
sh->size = infosize;
|
||||
sh->addralign = 1;
|
||||
}
|
||||
28
src/cmd/ld/dwarf.h
Normal file
28
src/cmd/ld/dwarf.h
Normal file
@ -0,0 +1,28 @@
|
||||
// Copyright 2010 The Go Authors. All rights reserved.
|
||||
// Use of this source code is governed by a BSD-style
|
||||
// license that can be found in the LICENSE file.
|
||||
|
||||
|
||||
/*
|
||||
* Register 'f' symbol file fragments. Doing this while parsing the
|
||||
* .6 input saves a pass over the symbol table later.
|
||||
*/
|
||||
void dwarfaddfrag(int n, char* frag);
|
||||
|
||||
/*
|
||||
* Add the dwarf section names to the ELF
|
||||
* s[ection]h[eader]str[ing]tab.
|
||||
*/
|
||||
void dwarfaddshstrings(Sym *shstrtab);
|
||||
|
||||
/*
|
||||
* Emit debug_abbrevs, debug_info and debug_line sections to current
|
||||
* offset in cout.
|
||||
*/
|
||||
void dwarfemitdebugsections(void);
|
||||
|
||||
/*
|
||||
* Add ELF section headers pointing to the sections emitted in
|
||||
* dwarfemitdebugsections.
|
||||
*/
|
||||
void dwarfaddheaders(void);
|
||||
454
src/cmd/ld/dwarf_defs.h
Normal file
454
src/cmd/ld/dwarf_defs.h
Normal file
@ -0,0 +1,454 @@
|
||||
// Copyright 2010 The Go Authors. All rights reserved.
|
||||
// Use of this source code is governed by a BSD-style
|
||||
// license that can be found in the LICENSE file.
|
||||
|
||||
// Cut, pasted, tr-and-awk'ed from tables in
|
||||
// http://dwarfstd.org/doc/Dwarf3.pdf
|
||||
|
||||
// Table 18
|
||||
enum
|
||||
{
|
||||
DW_TAG_array_type = 0x01,
|
||||
DW_TAG_class_type = 0x02,
|
||||
DW_TAG_entry_point = 0x03,
|
||||
DW_TAG_enumeration_type = 0x04,
|
||||
DW_TAG_formal_parameter = 0x05,
|
||||
DW_TAG_imported_declaration = 0x08,
|
||||
DW_TAG_label = 0x0a,
|
||||
DW_TAG_lexical_block = 0x0b,
|
||||
DW_TAG_member = 0x0d,
|
||||
DW_TAG_pointer_type = 0x0f,
|
||||
DW_TAG_reference_type = 0x10,
|
||||
DW_TAG_compile_unit = 0x11,
|
||||
DW_TAG_string_type = 0x12,
|
||||
DW_TAG_structure_type = 0x13,
|
||||
DW_TAG_subroutine_type = 0x15,
|
||||
DW_TAG_typedef = 0x16,
|
||||
DW_TAG_union_type = 0x17,
|
||||
DW_TAG_unspecified_parameters = 0x18,
|
||||
DW_TAG_variant = 0x19,
|
||||
DW_TAG_common_block = 0x1a,
|
||||
DW_TAG_common_inclusion = 0x1b,
|
||||
DW_TAG_inheritance = 0x1c,
|
||||
DW_TAG_inlined_subroutine = 0x1d,
|
||||
DW_TAG_module = 0x1e,
|
||||
DW_TAG_ptr_to_member_type = 0x1f,
|
||||
DW_TAG_set_type = 0x20,
|
||||
DW_TAG_subrange_type = 0x21,
|
||||
DW_TAG_with_stmt = 0x22,
|
||||
DW_TAG_access_declaration = 0x23,
|
||||
DW_TAG_base_type = 0x24,
|
||||
DW_TAG_catch_block = 0x25,
|
||||
DW_TAG_const_type = 0x26,
|
||||
DW_TAG_constant = 0x27,
|
||||
DW_TAG_enumerator = 0x28,
|
||||
DW_TAG_file_type = 0x29,
|
||||
DW_TAG_friend = 0x2a,
|
||||
DW_TAG_namelist = 0x2b,
|
||||
DW_TAG_namelist_item = 0x2c,
|
||||
DW_TAG_packed_type = 0x2d,
|
||||
DW_TAG_subprogram = 0x2e,
|
||||
DW_TAG_template_type_parameter = 0x2f,
|
||||
DW_TAG_template_value_parameter = 0x30,
|
||||
DW_TAG_thrown_type = 0x31,
|
||||
DW_TAG_try_block = 0x32,
|
||||
DW_TAG_variant_part = 0x33,
|
||||
DW_TAG_variable = 0x34,
|
||||
DW_TAG_volatile_type = 0x35,
|
||||
DW_TAG_dwarf_procedure = 0x36,
|
||||
DW_TAG_restrict_type = 0x37,
|
||||
DW_TAG_interface_type = 0x38,
|
||||
DW_TAG_namespace = 0x39,
|
||||
DW_TAG_imported_module = 0x3a,
|
||||
DW_TAG_unspecified_type = 0x3b,
|
||||
DW_TAG_partial_unit = 0x3c,
|
||||
DW_TAG_imported_unit = 0x3d,
|
||||
DW_TAG_condition = 0x3f,
|
||||
DW_TAG_shared_type = 0x40,
|
||||
DW_TAG_lo_user = 0x4080,
|
||||
DW_TAG_hi_user = 0xffff,
|
||||
|
||||
};
|
||||
|
||||
// Table 19
|
||||
enum
|
||||
{
|
||||
DW_CHILDREN_no = 0x00,
|
||||
DW_CHILDREN_yes = 0x01,
|
||||
};
|
||||
|
||||
// Not from the spec, but logicaly belongs here
|
||||
enum
|
||||
{
|
||||
DW_CLS_ADDRESS = 0x01,
|
||||
DW_CLS_BLOCK,
|
||||
DW_CLS_CONSTANT,
|
||||
DW_CLS_FLAG,
|
||||
DW_CLS_PTR, // lineptr, loclistptr, macptr, rangelistptr
|
||||
DW_CLS_REFERENCE,
|
||||
DW_CLS_STRING
|
||||
};
|
||||
|
||||
// Table 20
|
||||
enum
|
||||
{
|
||||
DW_AT_sibling = 0x01, // reference
|
||||
DW_AT_location = 0x02, // block, loclistptr
|
||||
DW_AT_name = 0x03, // string
|
||||
DW_AT_ordering = 0x09, // constant
|
||||
DW_AT_byte_size = 0x0b, // block, constant, reference
|
||||
DW_AT_bit_offset = 0x0c, // block, constant, reference
|
||||
DW_AT_bit_size = 0x0d, // block, constant, reference
|
||||
DW_AT_stmt_list = 0x10, // lineptr
|
||||
DW_AT_low_pc = 0x11, // address
|
||||
DW_AT_high_pc = 0x12, // address
|
||||
DW_AT_language = 0x13, // constant
|
||||
DW_AT_discr = 0x15, // reference
|
||||
DW_AT_discr_value = 0x16, // constant
|
||||
DW_AT_visibility = 0x17, // constant
|
||||
DW_AT_import = 0x18, // reference
|
||||
DW_AT_string_length = 0x19, // block, loclistptr
|
||||
DW_AT_common_reference = 0x1a, // reference
|
||||
DW_AT_comp_dir = 0x1b, // string
|
||||
DW_AT_const_value = 0x1c, // block, constant, string
|
||||
DW_AT_containing_type = 0x1d, // reference
|
||||
DW_AT_default_value = 0x1e, // reference
|
||||
DW_AT_inline = 0x20, // constant
|
||||
DW_AT_is_optional = 0x21, // flag
|
||||
DW_AT_lower_bound = 0x22, // block, constant, reference
|
||||
DW_AT_producer = 0x25, // string
|
||||
DW_AT_prototyped = 0x27, // flag
|
||||
DW_AT_return_addr = 0x2a, // block, loclistptr
|
||||
DW_AT_start_scope = 0x2c, // constant
|
||||
DW_AT_bit_stride = 0x2e, // constant
|
||||
DW_AT_upper_bound = 0x2f, // block, constant, reference
|
||||
DW_AT_abstract_origin = 0x31, // reference
|
||||
DW_AT_accessibility = 0x32, // constant
|
||||
DW_AT_address_class = 0x33, // constant
|
||||
DW_AT_artificial = 0x34, // flag
|
||||
DW_AT_base_types = 0x35, // reference
|
||||
DW_AT_calling_convention = 0x36, // constant
|
||||
DW_AT_count = 0x37, // block, constant, reference
|
||||
DW_AT_data_member_location = 0x38, // block, constant, loclistptr
|
||||
DW_AT_decl_column = 0x39, // constant
|
||||
DW_AT_decl_file = 0x3a, // constant
|
||||
DW_AT_decl_line = 0x3b, // constant
|
||||
DW_AT_declaration = 0x3c, // flag
|
||||
DW_AT_discr_list = 0x3d, // block
|
||||
DW_AT_encoding = 0x3e, // constant
|
||||
DW_AT_external = 0x3f, // flag
|
||||
DW_AT_frame_base = 0x40, // block, loclistptr
|
||||
DW_AT_friend = 0x41, // reference
|
||||
DW_AT_identifier_case = 0x42, // constant
|
||||
DW_AT_macro_info = 0x43, // macptr
|
||||
DW_AT_namelist_item = 0x44, // block
|
||||
DW_AT_priority = 0x45, // reference
|
||||
DW_AT_segment = 0x46, // block, loclistptr
|
||||
DW_AT_specification = 0x47, // reference
|
||||
DW_AT_static_link = 0x48, // block, loclistptr
|
||||
DW_AT_type = 0x49, // reference
|
||||
DW_AT_use_location = 0x4a, // block, loclistptr
|
||||
DW_AT_variable_parameter = 0x4b, // flag
|
||||
DW_AT_virtuality = 0x4c, // constant
|
||||
DW_AT_vtable_elem_location = 0x4d, // block, loclistptr
|
||||
DW_AT_allocated = 0x4e, // block, constant, reference
|
||||
DW_AT_associated = 0x4f, // block, constant, reference
|
||||
DW_AT_data_location = 0x50, // block
|
||||
DW_AT_byte_stride = 0x51, // block, constant, reference
|
||||
DW_AT_entry_pc = 0x52, // address
|
||||
DW_AT_use_UTF8 = 0x53, // flag
|
||||
DW_AT_extension = 0x54, // reference
|
||||
DW_AT_ranges = 0x55, // rangelistptr
|
||||
DW_AT_trampoline = 0x56, // address, flag, reference, string
|
||||
DW_AT_call_column = 0x57, // constant
|
||||
DW_AT_call_file = 0x58, // constant
|
||||
DW_AT_call_line = 0x59, // constant
|
||||
DW_AT_description = 0x5a, // string
|
||||
DW_AT_binary_scale = 0x5b, // constant
|
||||
DW_AT_decimal_scale = 0x5c, // constant
|
||||
DW_AT_small = 0x5d, // reference
|
||||
DW_AT_decimal_sign = 0x5e, // constant
|
||||
DW_AT_digit_count = 0x5f, // constant
|
||||
DW_AT_picture_string = 0x60, // string
|
||||
DW_AT_mutable = 0x61, // flag
|
||||
DW_AT_threads_scaled = 0x62, // flag
|
||||
DW_AT_explicit = 0x63, // flag
|
||||
DW_AT_object_pointer = 0x64, // reference
|
||||
DW_AT_endianity = 0x65, // constant
|
||||
DW_AT_elemental = 0x66, // flag
|
||||
DW_AT_pure = 0x67, // flag
|
||||
DW_AT_recursive = 0x68, // flag
|
||||
DW_AT_lo_user = 0x2000, // ---
|
||||
DW_AT_hi_user = 0x3fff, // ---
|
||||
|
||||
};
|
||||
|
||||
// Table 21
|
||||
enum
|
||||
{
|
||||
DW_FORM_addr = 0x01, // address
|
||||
DW_FORM_block2 = 0x03, // block
|
||||
DW_FORM_block4 = 0x04, // block
|
||||
DW_FORM_data2 = 0x05, // constant
|
||||
DW_FORM_data4 = 0x06, // constant, lineptr, loclistptr, macptr, rangelistptr
|
||||
DW_FORM_data8 = 0x07, // constant, lineptr, loclistptr, macptr, rangelistptr
|
||||
DW_FORM_string = 0x08, // string
|
||||
DW_FORM_block = 0x09, // block
|
||||
DW_FORM_block1 = 0x0a, // block
|
||||
DW_FORM_data1 = 0x0b, // constant
|
||||
DW_FORM_flag = 0x0c, // flag
|
||||
DW_FORM_sdata = 0x0d, // constant
|
||||
DW_FORM_strp = 0x0e, // string
|
||||
DW_FORM_udata = 0x0f, // constant
|
||||
DW_FORM_ref_addr = 0x10, // reference
|
||||
DW_FORM_ref1 = 0x11, // reference
|
||||
DW_FORM_ref2 = 0x12, // reference
|
||||
DW_FORM_ref4 = 0x13, // reference
|
||||
DW_FORM_ref8 = 0x14, // reference
|
||||
DW_FORM_ref_udata = 0x15, // reference
|
||||
DW_FORM_indirect = 0x16, // (see Section 7.5.3)
|
||||
};
|
||||
|
||||
// Table 24 (#operands, notes)
|
||||
enum
|
||||
{
|
||||
DW_OP_addr = 0x03, // 1 constant address (size target specific)
|
||||
DW_OP_deref = 0x06, // 0
|
||||
DW_OP_const1u = 0x08, // 1 1-byte constant
|
||||
DW_OP_const1s = 0x09, // 1 1-byte constant
|
||||
DW_OP_const2u = 0x0a, // 1 2-byte constant
|
||||
DW_OP_const2s = 0x0b, // 1 2-byte constant
|
||||
DW_OP_const4u = 0x0c, // 1 4-byte constant
|
||||
DW_OP_const4s = 0x0d, // 1 4-byte constant
|
||||
DW_OP_const8u = 0x0e, // 1 8-byte constant
|
||||
DW_OP_const8s = 0x0f, // 1 8-byte constant
|
||||
DW_OP_constu = 0x10, // 1 ULEB128 constant
|
||||
DW_OP_consts = 0x11, // 1 SLEB128 constant
|
||||
DW_OP_dup = 0x12, // 0
|
||||
DW_OP_drop = 0x13, // 0
|
||||
DW_OP_over = 0x14, // 0
|
||||
DW_OP_pick = 0x15, // 1 1-byte stack index
|
||||
DW_OP_swap = 0x16, // 0
|
||||
DW_OP_rot = 0x17, // 0
|
||||
DW_OP_xderef = 0x18, // 0
|
||||
DW_OP_abs = 0x19, // 0
|
||||
DW_OP_and = 0x1a, // 0
|
||||
DW_OP_div = 0x1b, // 0
|
||||
DW_OP_minus = 0x1c, // 0
|
||||
DW_OP_mod = 0x1d, // 0
|
||||
DW_OP_mul = 0x1e, // 0
|
||||
DW_OP_neg = 0x1f, // 0
|
||||
DW_OP_not = 0x20, // 0
|
||||
DW_OP_or = 0x21, // 0
|
||||
DW_OP_plus = 0x22, // 0
|
||||
DW_OP_plus_uconst = 0x23, // 1 ULEB128 addend
|
||||
DW_OP_shl = 0x24, // 0
|
||||
DW_OP_shr = 0x25, // 0
|
||||
DW_OP_shra = 0x26, // 0
|
||||
DW_OP_xor = 0x27, // 0
|
||||
DW_OP_skip = 0x2f, // 1 signed 2-byte constant
|
||||
DW_OP_bra = 0x28, // 1 signed 2-byte constant
|
||||
DW_OP_eq = 0x29, // 0
|
||||
DW_OP_ge = 0x2a, // 0
|
||||
DW_OP_gt = 0x2b, // 0
|
||||
DW_OP_le = 0x2c, // 0
|
||||
DW_OP_lt = 0x2d, // 0
|
||||
DW_OP_ne = 0x2e, // 0
|
||||
DW_OP_lit0 = 0x30, // 0 ...
|
||||
DW_OP_lit31 = 0x4f, // 0 literals 0..31 = (DW_OP_lit0 +
|
||||
// literal)
|
||||
DW_OP_reg0 = 0x50, // 0 ..
|
||||
DW_OP_reg31 = 0x6f, // 0 reg 0..31 = (DW_OP_reg0 + regnum)
|
||||
DW_OP_breg0 = 0x70, // 1 ...
|
||||
DW_OP_breg31 = 0x8f, // 1 SLEB128 offset base register 0..31 = (DW_OP_breg0 + regnum)
|
||||
DW_OP_regx = 0x90, // 1 ULEB128 register
|
||||
DW_OP_fbreg = 0x91, // 1 SLEB128 offset
|
||||
DW_OP_bregx = 0x92, // 2 ULEB128 register followed by SLEB128 offset
|
||||
DW_OP_piece = 0x93, // 1 ULEB128 size of piece addressed
|
||||
DW_OP_deref_size = 0x94, // 1 1-byte size of data retrieved
|
||||
DW_OP_xderef_size = 0x95, // 1 1-byte size of data retrieved
|
||||
DW_OP_nop = 0x96, // 0
|
||||
DW_OP_push_object_address = 0x97, // 0
|
||||
DW_OP_call2 = 0x98, // 1 2-byte offset of DIE
|
||||
DW_OP_call4 = 0x99, // 1 4-byte offset of DIE
|
||||
DW_OP_call_ref = 0x9a, // 1 4- or 8-byte offset of DIE
|
||||
DW_OP_form_tls_address = 0x9b, // 0
|
||||
DW_OP_call_frame_cfa = 0x9c, // 0
|
||||
DW_OP_bit_piece = 0x9d, // 2
|
||||
DW_OP_lo_user = 0xe0,
|
||||
DW_OP_hi_user = 0xff,
|
||||
};
|
||||
|
||||
// Table 25
|
||||
enum
|
||||
{
|
||||
DW_ATE_address = 0x01,
|
||||
DW_ATE_boolean = 0x02,
|
||||
DW_ATE_complex_float = 0x03,
|
||||
DW_ATE_float = 0x04,
|
||||
DW_ATE_signed = 0x05,
|
||||
DW_ATE_signed_char = 0x06,
|
||||
DW_ATE_unsigned = 0x07,
|
||||
DW_ATE_unsigned_char = 0x08,
|
||||
DW_ATE_imaginary_float = 0x09,
|
||||
DW_ATE_packed_decimal = 0x0a,
|
||||
DW_ATE_numeric_string = 0x0b,
|
||||
DW_ATE_edited = 0x0c,
|
||||
DW_ATE_signed_fixed = 0x0d,
|
||||
DW_ATE_unsigned_fixed = 0x0e,
|
||||
DW_ATE_decimal_float = 0x0f,
|
||||
DW_ATE_lo_user = 0x80,
|
||||
DW_ATE_hi_user = 0xff,
|
||||
};
|
||||
|
||||
// Table 26
|
||||
enum
|
||||
{
|
||||
DW_DS_unsigned = 0x01,
|
||||
DW_DS_leading_overpunch = 0x02,
|
||||
DW_DS_trailing_overpunch = 0x03,
|
||||
DW_DS_leading_separate = 0x04,
|
||||
DW_DS_trailing_separate = 0x05,
|
||||
};
|
||||
|
||||
// Table 27
|
||||
enum
|
||||
{
|
||||
DW_END_default = 0x00,
|
||||
DW_END_big = 0x01,
|
||||
DW_END_little = 0x02,
|
||||
DW_END_lo_user = 0x40,
|
||||
DW_END_hi_user = 0xff,
|
||||
};
|
||||
|
||||
// Table 28
|
||||
enum
|
||||
{
|
||||
DW_ACCESS_public = 0x01,
|
||||
DW_ACCESS_protected = 0x02,
|
||||
DW_ACCESS_private = 0x03,
|
||||
};
|
||||
|
||||
// Table 29
|
||||
enum
|
||||
{
|
||||
DW_VIS_local = 0x01,
|
||||
DW_VIS_exported = 0x02,
|
||||
DW_VIS_qualified = 0x03,
|
||||
};
|
||||
|
||||
// Table 30
|
||||
enum
|
||||
{
|
||||
DW_VIRTUALITY_none = 0x00,
|
||||
DW_VIRTUALITY_virtual = 0x01,
|
||||
DW_VIRTUALITY_pure_virtual = 0x02,
|
||||
};
|
||||
|
||||
// Table 31
|
||||
enum
|
||||
{
|
||||
DW_LANG_C89 = 0x0001,
|
||||
DW_LANG_C = 0x0002,
|
||||
DW_LANG_Ada83 = 0x0003,
|
||||
DW_LANG_C_plus_plus = 0x0004,
|
||||
DW_LANG_Cobol74 = 0x0005,
|
||||
DW_LANG_Cobol85 = 0x0006,
|
||||
DW_LANG_Fortran77 = 0x0007,
|
||||
DW_LANG_Fortran90 = 0x0008,
|
||||
DW_LANG_Pascal83 = 0x0009,
|
||||
DW_LANG_Modula2 = 0x000a,
|
||||
DW_LANG_Java = 0x000b,
|
||||
DW_LANG_C99 = 0x000c,
|
||||
DW_LANG_Ada95 = 0x000d,
|
||||
DW_LANG_Fortran95 = 0x000e,
|
||||
DW_LANG_PLI = 0x000f,
|
||||
DW_LANG_ObjC = 0x0010,
|
||||
DW_LANG_ObjC_plus_plus = 0x0011,
|
||||
DW_LANG_UPC = 0x0012,
|
||||
DW_LANG_D = 0x0013,
|
||||
DW_LANG_Python = 0x0014, // DWARF4
|
||||
|
||||
DW_LANG_lo_user = 0x8000,
|
||||
DW_LANG_Go = 0x8015, // TODO(lvd) Temporary
|
||||
DW_LANG_hi_user = 0xffff,
|
||||
};
|
||||
|
||||
// Table 32
|
||||
enum
|
||||
{
|
||||
DW_ID_case_sensitive = 0x00,
|
||||
DW_ID_up_case = 0x01,
|
||||
DW_ID_down_case = 0x02,
|
||||
DW_ID_case_insensitive = 0x03,
|
||||
};
|
||||
|
||||
// Table 33
|
||||
enum
|
||||
{
|
||||
DW_CC_normal = 0x01,
|
||||
DW_CC_program = 0x02,
|
||||
DW_CC_nocall = 0x03,
|
||||
DW_CC_lo_user = 0x40,
|
||||
DW_CC_hi_user = 0xff,
|
||||
};
|
||||
|
||||
// Table 34
|
||||
enum
|
||||
{
|
||||
DW_INL_not_inlined = 0x00,
|
||||
DW_INL_inlined = 0x01,
|
||||
DW_INL_declared_not_inlined = 0x02,
|
||||
DW_INL_declared_inlined = 0x03,
|
||||
};
|
||||
|
||||
// Table 35
|
||||
enum
|
||||
{
|
||||
DW_ORD_row_major = 0x00,
|
||||
DW_ORD_col_major = 0x01,
|
||||
};
|
||||
|
||||
// Table 36
|
||||
enum
|
||||
{
|
||||
DW_DSC_label = 0x00,
|
||||
DW_DSC_range = 0x01,
|
||||
};
|
||||
|
||||
// Table 37
|
||||
enum
|
||||
{
|
||||
DW_LNS_copy = 0x01,
|
||||
DW_LNS_advance_pc = 0x02,
|
||||
DW_LNS_advance_line = 0x03,
|
||||
DW_LNS_set_file = 0x04,
|
||||
DW_LNS_set_column = 0x05,
|
||||
DW_LNS_negate_stmt = 0x06,
|
||||
DW_LNS_set_basic_block = 0x07,
|
||||
DW_LNS_const_add_pc = 0x08,
|
||||
DW_LNS_fixed_advance_pc = 0x09,
|
||||
DW_LNS_set_prologue_end = 0x0a,
|
||||
DW_LNS_set_epilogue_begin = 0x0b,
|
||||
DW_LNS_set_isa = 0x0c,
|
||||
};
|
||||
|
||||
// Table 38
|
||||
enum
|
||||
{
|
||||
DW_LNE_end_sequence = 0x01,
|
||||
DW_LNE_set_address = 0x02,
|
||||
DW_LNE_define_file = 0x03,
|
||||
DW_LNE_lo_user = 0x80,
|
||||
DW_LNE_hi_user = 0xff,
|
||||
};
|
||||
|
||||
// Table 39
|
||||
enum
|
||||
{
|
||||
DW_MACINFO_define = 0x01,
|
||||
DW_MACINFO_undef = 0x02,
|
||||
DW_MACINFO_start_file = 0x03,
|
||||
DW_MACINFO_end_file = 0x04,
|
||||
DW_MACINFO_vendor_ext = 0xff,
|
||||
};
|
||||
Loading…
Reference in New Issue
Block a user