1 a84cbb2a 2004-04-19 devnull /*
  2 a84cbb2a 2004-04-19 devnull  * Dwarf info parse and search.
  3 a84cbb2a 2004-04-19 devnull  */
  4 a84cbb2a 2004-04-19 devnull 
  5 a84cbb2a 2004-04-19 devnull #include <u.h>
  6 a84cbb2a 2004-04-19 devnull #include <libc.h>
  7 a84cbb2a 2004-04-19 devnull #include <bio.h>
  8 a84cbb2a 2004-04-19 devnull #include "elf.h"
  9 a84cbb2a 2004-04-19 devnull #include "dwarf.h"
 10 a84cbb2a 2004-04-19 devnull 
 11 a84cbb2a 2004-04-19 devnull enum
 12 a84cbb2a 2004-04-19 devnull {
 13 a84cbb2a 2004-04-19 devnull 	DwarfAttrSibling = 0x01,
 14 a84cbb2a 2004-04-19 devnull 	DwarfAttrLocation = 0x02,
 15 a84cbb2a 2004-04-19 devnull 	DwarfAttrName = 0x03,
 16 a84cbb2a 2004-04-19 devnull 	DwarfAttrOrdering = 0x09,
 17 a84cbb2a 2004-04-19 devnull 	DwarfAttrByteSize = 0x0B,
 18 a84cbb2a 2004-04-19 devnull 	DwarfAttrBitOffset = 0x0C,
 19 a84cbb2a 2004-04-19 devnull 	DwarfAttrBitSize = 0x0D,
 20 a84cbb2a 2004-04-19 devnull 	DwarfAttrStmtList = 0x10,
 21 a84cbb2a 2004-04-19 devnull 	DwarfAttrLowpc = 0x11,
 22 a84cbb2a 2004-04-19 devnull 	DwarfAttrHighpc = 0x12,
 23 a84cbb2a 2004-04-19 devnull 	DwarfAttrLanguage = 0x13,
 24 a84cbb2a 2004-04-19 devnull 	DwarfAttrDiscr = 0x15,
 25 a84cbb2a 2004-04-19 devnull 	DwarfAttrDiscrValue = 0x16,
 26 a84cbb2a 2004-04-19 devnull 	DwarfAttrVisibility = 0x17,
 27 a84cbb2a 2004-04-19 devnull 	DwarfAttrImport = 0x18,
 28 a84cbb2a 2004-04-19 devnull 	DwarfAttrStringLength = 0x19,
 29 a84cbb2a 2004-04-19 devnull 	DwarfAttrCommonRef = 0x1A,
 30 a84cbb2a 2004-04-19 devnull 	DwarfAttrCompDir = 0x1B,
 31 a84cbb2a 2004-04-19 devnull 	DwarfAttrConstValue = 0x1C,
 32 a84cbb2a 2004-04-19 devnull 	DwarfAttrContainingType = 0x1D,
 33 a84cbb2a 2004-04-19 devnull 	DwarfAttrDefaultValue = 0x1E,
 34 a84cbb2a 2004-04-19 devnull 	DwarfAttrInline = 0x20,
 35 a84cbb2a 2004-04-19 devnull 	DwarfAttrIsOptional = 0x21,
 36 a84cbb2a 2004-04-19 devnull 	DwarfAttrLowerBound = 0x22,
 37 a84cbb2a 2004-04-19 devnull 	DwarfAttrProducer = 0x25,
 38 a84cbb2a 2004-04-19 devnull 	DwarfAttrPrototyped = 0x27,
 39 a84cbb2a 2004-04-19 devnull 	DwarfAttrReturnAddr = 0x2A,
 40 a84cbb2a 2004-04-19 devnull 	DwarfAttrStartScope = 0x2C,
 41 a84cbb2a 2004-04-19 devnull 	DwarfAttrStrideSize = 0x2E,
 42 a84cbb2a 2004-04-19 devnull 	DwarfAttrUpperBound = 0x2F,
 43 a84cbb2a 2004-04-19 devnull 	DwarfAttrAbstractOrigin = 0x31,
 44 a84cbb2a 2004-04-19 devnull 	DwarfAttrAccessibility = 0x32,
 45 a84cbb2a 2004-04-19 devnull 	DwarfAttrAddrClass = 0x33,
 46 a84cbb2a 2004-04-19 devnull 	DwarfAttrArtificial = 0x34,
 47 a84cbb2a 2004-04-19 devnull 	DwarfAttrBaseTypes = 0x35,
 48 a84cbb2a 2004-04-19 devnull 	DwarfAttrCalling = 0x36,
 49 a84cbb2a 2004-04-19 devnull 	DwarfAttrCount = 0x37,
 50 a84cbb2a 2004-04-19 devnull 	DwarfAttrDataMemberLoc = 0x38,
 51 a84cbb2a 2004-04-19 devnull 	DwarfAttrDeclColumn = 0x39,
 52 a84cbb2a 2004-04-19 devnull 	DwarfAttrDeclFile = 0x3A,
 53 a84cbb2a 2004-04-19 devnull 	DwarfAttrDeclLine = 0x3B,
 54 a84cbb2a 2004-04-19 devnull 	DwarfAttrDeclaration = 0x3C,
 55 a84cbb2a 2004-04-19 devnull 	DwarfAttrDiscrList = 0x3D,
 56 a84cbb2a 2004-04-19 devnull 	DwarfAttrEncoding = 0x3E,
 57 a84cbb2a 2004-04-19 devnull 	DwarfAttrExternal = 0x3F,
 58 a84cbb2a 2004-04-19 devnull 	DwarfAttrFrameBase = 0x40,
 59 a84cbb2a 2004-04-19 devnull 	DwarfAttrFriend = 0x41,
 60 a84cbb2a 2004-04-19 devnull 	DwarfAttrIdentifierCase = 0x42,
 61 a84cbb2a 2004-04-19 devnull 	DwarfAttrMacroInfo = 0x43,
 62 a84cbb2a 2004-04-19 devnull 	DwarfAttrNamelistItem = 0x44,
 63 a84cbb2a 2004-04-19 devnull 	DwarfAttrPriority = 0x45,
 64 a84cbb2a 2004-04-19 devnull 	DwarfAttrSegment = 0x46,
 65 a84cbb2a 2004-04-19 devnull 	DwarfAttrSpecification = 0x47,
 66 a84cbb2a 2004-04-19 devnull 	DwarfAttrStaticLink = 0x48,
 67 a84cbb2a 2004-04-19 devnull 	DwarfAttrType = 0x49,
 68 a84cbb2a 2004-04-19 devnull 	DwarfAttrUseLocation = 0x4A,
 69 a84cbb2a 2004-04-19 devnull 	DwarfAttrVarParam = 0x4B,
 70 a84cbb2a 2004-04-19 devnull 	DwarfAttrVirtuality = 0x4C,
 71 a84cbb2a 2004-04-19 devnull 	DwarfAttrVtableElemLoc = 0x4D,
 72 a84cbb2a 2004-04-19 devnull 	DwarfAttrAllocated = 0x4E,
 73 a84cbb2a 2004-04-19 devnull 	DwarfAttrAssociated = 0x4F,
 74 a84cbb2a 2004-04-19 devnull 	DwarfAttrDataLocation = 0x50,
 75 a84cbb2a 2004-04-19 devnull 	DwarfAttrStride = 0x51,
 76 a84cbb2a 2004-04-19 devnull 	DwarfAttrEntrypc = 0x52,
 77 a84cbb2a 2004-04-19 devnull 	DwarfAttrUseUTF8 = 0x53,
 78 a84cbb2a 2004-04-19 devnull 	DwarfAttrExtension = 0x54,
 79 a84cbb2a 2004-04-19 devnull 	DwarfAttrRanges = 0x55,
 80 a84cbb2a 2004-04-19 devnull 	DwarfAttrTrampoline = 0x56,
 81 a84cbb2a 2004-04-19 devnull 	DwarfAttrCallColumn = 0x57,
 82 a84cbb2a 2004-04-19 devnull 	DwarfAttrCallFile = 0x58,
 83 a84cbb2a 2004-04-19 devnull 	DwarfAttrCallLine = 0x59,
 84 a84cbb2a 2004-04-19 devnull 	DwarfAttrDescription = 0x5A,
 85 a84cbb2a 2004-04-19 devnull 	DwarfAttrMax,
 86 a84cbb2a 2004-04-19 devnull 
 87 a84cbb2a 2004-04-19 devnull 	FormAddr = 0x01,
 88 a84cbb2a 2004-04-19 devnull 	FormDwarfBlock2 = 0x03,
 89 a84cbb2a 2004-04-19 devnull 	FormDwarfBlock4 = 0x04,
 90 a84cbb2a 2004-04-19 devnull 	FormData2 = 0x05,
 91 a84cbb2a 2004-04-19 devnull 	FormData4 = 0x06,
 92 a84cbb2a 2004-04-19 devnull 	FormData8 = 0x07,
 93 a84cbb2a 2004-04-19 devnull 	FormString = 0x08,
 94 a84cbb2a 2004-04-19 devnull 	FormDwarfBlock = 0x09,
 95 a84cbb2a 2004-04-19 devnull 	FormDwarfBlock1 = 0x0A,
 96 a84cbb2a 2004-04-19 devnull 	FormData1 = 0x0B,
 97 a84cbb2a 2004-04-19 devnull 	FormFlag = 0x0C,
 98 a84cbb2a 2004-04-19 devnull 	FormSdata = 0x0D,
 99 a84cbb2a 2004-04-19 devnull 	FormStrp = 0x0E,
100 a84cbb2a 2004-04-19 devnull 	FormUdata = 0x0F,
101 a84cbb2a 2004-04-19 devnull 	FormRefAddr = 0x10,
102 a84cbb2a 2004-04-19 devnull 	FormRef1 = 0x11,
103 a84cbb2a 2004-04-19 devnull 	FormRef2 = 0x12,
104 a84cbb2a 2004-04-19 devnull 	FormRef4 = 0x13,
105 a84cbb2a 2004-04-19 devnull 	FormRef8 = 0x14,
106 a84cbb2a 2004-04-19 devnull 	FormRefUdata = 0x15,
107 cbeb0b26 2006-04-01 devnull 	FormIndirect = 0x16
108 a84cbb2a 2004-04-19 devnull };
109 a84cbb2a 2004-04-19 devnull 
110 a84cbb2a 2004-04-19 devnull static int parseattrs(DwarfBuf*, ulong, DwarfAbbrev*, DwarfAttrs*);
111 a84cbb2a 2004-04-19 devnull static int getulong(DwarfBuf*, int, ulong, ulong*, int*);
112 a84cbb2a 2004-04-19 devnull static int getuchar(DwarfBuf*, int, uchar*);
113 a84cbb2a 2004-04-19 devnull static int getstring(DwarfBuf*, int, char**);
114 a84cbb2a 2004-04-19 devnull static int getblock(DwarfBuf*, int, DwarfBlock*);
115 a84cbb2a 2004-04-19 devnull static int skipform(DwarfBuf*, int);
116 a84cbb2a 2004-04-19 devnull static int constblock(Dwarf*, DwarfBlock*, ulong*);
117 a84cbb2a 2004-04-19 devnull 
118 a84cbb2a 2004-04-19 devnull int
119 a84cbb2a 2004-04-19 devnull dwarflookupnameinunit(Dwarf *d, ulong unit, char *name, DwarfSym *s)
120 a84cbb2a 2004-04-19 devnull {
121 a84cbb2a 2004-04-19 devnull 	if(dwarfenumunit(d, unit, s) < 0)
122 a84cbb2a 2004-04-19 devnull 		return -1;
123 a84cbb2a 2004-04-19 devnull 
124 95f57b01 2004-04-21 devnull 	dwarfnextsymat(d, s, 0);	/* s is now the CompileUnit */
125 95f57b01 2004-04-21 devnull 	while(dwarfnextsymat(d, s, 1) == 1)
126 95f57b01 2004-04-21 devnull 		if(s->attrs.name && strcmp(s->attrs.name, name) == 0)
127 95f57b01 2004-04-21 devnull 			return 0;
128 a84cbb2a 2004-04-19 devnull 	werrstr("symbol '%s' not found", name);
129 a84cbb2a 2004-04-19 devnull 	return -1;
130 a84cbb2a 2004-04-19 devnull }
131 a84cbb2a 2004-04-19 devnull 
132 fa325e9b 2020-01-10 cross 
133 a84cbb2a 2004-04-19 devnull int
134 a84cbb2a 2004-04-19 devnull dwarflookupsubname(Dwarf *d, DwarfSym *parent, char *name, DwarfSym *s)
135 a84cbb2a 2004-04-19 devnull {
136 a84cbb2a 2004-04-19 devnull 	*s = *parent;
137 95f57b01 2004-04-21 devnull 	while(dwarfnextsymat(d, s, parent->depth+1))
138 95f57b01 2004-04-21 devnull 		if(s->attrs.name && strcmp(s->attrs.name, name) == 0)
139 95f57b01 2004-04-21 devnull 			return 0;
140 a84cbb2a 2004-04-19 devnull 	werrstr("symbol '%s' not found", name);
141 a84cbb2a 2004-04-19 devnull 	return -1;
142 a84cbb2a 2004-04-19 devnull }
143 a84cbb2a 2004-04-19 devnull 
144 a84cbb2a 2004-04-19 devnull int
145 a84cbb2a 2004-04-19 devnull dwarflookuptag(Dwarf *d, ulong unit, ulong tag, DwarfSym *s)
146 a84cbb2a 2004-04-19 devnull {
147 a84cbb2a 2004-04-19 devnull 	if(dwarfenumunit(d, unit, s) < 0)
148 a84cbb2a 2004-04-19 devnull 		return -1;
149 a84cbb2a 2004-04-19 devnull 
150 95f57b01 2004-04-21 devnull 	dwarfnextsymat(d, s, 0);	/* s is now the CompileUnit */
151 a84cbb2a 2004-04-19 devnull 	if(s->attrs.tag == tag)
152 a84cbb2a 2004-04-19 devnull 		return 0;
153 95f57b01 2004-04-21 devnull 	while(dwarfnextsymat(d, s, 1) == 1)
154 95f57b01 2004-04-21 devnull 		if(s->attrs.tag == tag)
155 95f57b01 2004-04-21 devnull 			return 0;
156 a84cbb2a 2004-04-19 devnull 	werrstr("symbol with tag 0x%lux not found", tag);
157 a84cbb2a 2004-04-19 devnull 	return -1;
158 a84cbb2a 2004-04-19 devnull }
159 a84cbb2a 2004-04-19 devnull 
160 a84cbb2a 2004-04-19 devnull int
161 a84cbb2a 2004-04-19 devnull dwarfseeksym(Dwarf *d, ulong unit, ulong off, DwarfSym *s)
162 a84cbb2a 2004-04-19 devnull {
163 a84cbb2a 2004-04-19 devnull 	if(dwarfenumunit(d, unit, s) < 0)
164 a84cbb2a 2004-04-19 devnull 		return -1;
165 a84cbb2a 2004-04-19 devnull 	s->b.p = d->info.data + unit + off;
166 95f57b01 2004-04-21 devnull 	if(dwarfnextsymat(d, s, 0) != 1)
167 a84cbb2a 2004-04-19 devnull 		return -1;
168 a84cbb2a 2004-04-19 devnull 	return 0;
169 a84cbb2a 2004-04-19 devnull }
170 a84cbb2a 2004-04-19 devnull 
171 a84cbb2a 2004-04-19 devnull int
172 a84cbb2a 2004-04-19 devnull dwarflookupfn(Dwarf *d, ulong unit, ulong pc, DwarfSym *s)
173 a84cbb2a 2004-04-19 devnull {
174 a84cbb2a 2004-04-19 devnull 	if(dwarfenumunit(d, unit, s) < 0)
175 a84cbb2a 2004-04-19 devnull 		return -1;
176 a84cbb2a 2004-04-19 devnull 
177 95f57b01 2004-04-21 devnull 	if(dwarfnextsymat(d, s, 0) != 1)
178 a84cbb2a 2004-04-19 devnull 		return -1;
179 a84cbb2a 2004-04-19 devnull 	/* s is now the CompileUnit */
180 a84cbb2a 2004-04-19 devnull 
181 95f57b01 2004-04-21 devnull 	while(dwarfnextsymat(d, s, 1) == 1){
182 95f57b01 2004-04-21 devnull 		if(s->attrs.tag != TagSubprogram)
183 95f57b01 2004-04-21 devnull 			continue;
184 95f57b01 2004-04-21 devnull 		if(s->attrs.lowpc <= pc && pc < s->attrs.highpc)
185 95f57b01 2004-04-21 devnull 			return 0;
186 fa325e9b 2020-01-10 cross 	}
187 a84cbb2a 2004-04-19 devnull 	werrstr("fn containing pc 0x%lux not found", pc);
188 a84cbb2a 2004-04-19 devnull 	return -1;
189 a84cbb2a 2004-04-19 devnull }
190 a84cbb2a 2004-04-19 devnull 
191 a84cbb2a 2004-04-19 devnull int
192 a84cbb2a 2004-04-19 devnull dwarfenumunit(Dwarf *d, ulong unit, DwarfSym *s)
193 a84cbb2a 2004-04-19 devnull {
194 a84cbb2a 2004-04-19 devnull 	int i;
195 a84cbb2a 2004-04-19 devnull 	ulong aoff, len;
196 a84cbb2a 2004-04-19 devnull 
197 a84cbb2a 2004-04-19 devnull 	if(unit >= d->info.len){
198 a84cbb2a 2004-04-19 devnull 		werrstr("dwarf unit address 0x%lux >= 0x%lux out of range", unit, d->info.len);
199 a84cbb2a 2004-04-19 devnull 		return -1;
200 a84cbb2a 2004-04-19 devnull 	}
201 a84cbb2a 2004-04-19 devnull 	memset(s, 0, sizeof *s);
202 a84cbb2a 2004-04-19 devnull 	memset(&s->b, 0, sizeof s->b);
203 a84cbb2a 2004-04-19 devnull 	s->b.d = d;
204 a84cbb2a 2004-04-19 devnull 	s->b.p = d->info.data + unit;
205 a84cbb2a 2004-04-19 devnull 	s->b.ep = d->info.data + d->info.len;
206 a84cbb2a 2004-04-19 devnull 	len = dwarfget4(&s->b);
207 a84cbb2a 2004-04-19 devnull 	s->nextunit = unit + 4 + len;
208 a84cbb2a 2004-04-19 devnull 
209 a84cbb2a 2004-04-19 devnull 	if(s->b.ep - s->b.p < len){
210 a84cbb2a 2004-04-19 devnull 	badheader:
211 a84cbb2a 2004-04-19 devnull 		werrstr("bad dwarf unit header at unit 0x%lux", unit);
212 a84cbb2a 2004-04-19 devnull 		return -1;
213 a84cbb2a 2004-04-19 devnull 	}
214 a84cbb2a 2004-04-19 devnull 	s->b.ep = s->b.p+len;
215 a84cbb2a 2004-04-19 devnull 	if((i=dwarfget2(&s->b)) != 2)
216 a84cbb2a 2004-04-19 devnull 		goto badheader;
217 a84cbb2a 2004-04-19 devnull 	aoff = dwarfget4(&s->b);
218 a84cbb2a 2004-04-19 devnull 	s->b.addrsize = dwarfget1(&s->b);
219 a84cbb2a 2004-04-19 devnull 	if(d->addrsize == 0)
220 a84cbb2a 2004-04-19 devnull 		d->addrsize = s->b.addrsize;
221 a84cbb2a 2004-04-19 devnull 	if(s->b.p == nil)
222 a84cbb2a 2004-04-19 devnull 		goto badheader;
223 a84cbb2a 2004-04-19 devnull 
224 a84cbb2a 2004-04-19 devnull 	s->aoff = aoff;
225 a84cbb2a 2004-04-19 devnull 	s->unit = unit;
226 a84cbb2a 2004-04-19 devnull 	s->depth = 0;
227 a84cbb2a 2004-04-19 devnull 	return 0;
228 a84cbb2a 2004-04-19 devnull }
229 a84cbb2a 2004-04-19 devnull 
230 a84cbb2a 2004-04-19 devnull int
231 a84cbb2a 2004-04-19 devnull dwarfenum(Dwarf *d, DwarfSym *s)
232 a84cbb2a 2004-04-19 devnull {
233 a84cbb2a 2004-04-19 devnull 	if(dwarfenumunit(d, 0, s) < 0)
234 a84cbb2a 2004-04-19 devnull 		return -1;
235 a84cbb2a 2004-04-19 devnull 	s->allunits = 1;
236 a84cbb2a 2004-04-19 devnull 	return 0;
237 a84cbb2a 2004-04-19 devnull }
238 a84cbb2a 2004-04-19 devnull 
239 95f57b01 2004-04-21 devnull int
240 95f57b01 2004-04-21 devnull dwarfnextsym(Dwarf *d, DwarfSym *s)
241 a84cbb2a 2004-04-19 devnull {
242 a84cbb2a 2004-04-19 devnull 	ulong num;
243 a84cbb2a 2004-04-19 devnull 	DwarfAbbrev *a;
244 a84cbb2a 2004-04-19 devnull 
245 a84cbb2a 2004-04-19 devnull 	if(s->attrs.haskids)
246 a84cbb2a 2004-04-19 devnull 		s->depth++;
247 a84cbb2a 2004-04-19 devnull top:
248 a84cbb2a 2004-04-19 devnull 	if(s->b.p >= s->b.ep){
249 a84cbb2a 2004-04-19 devnull 		if(s->allunits && s->nextunit < d->info.len){
250 a84cbb2a 2004-04-19 devnull 			if(dwarfenumunit(d, s->nextunit, s) < 0)
251 a84cbb2a 2004-04-19 devnull 				return -1;
252 a84cbb2a 2004-04-19 devnull 			s->allunits = 1;
253 a84cbb2a 2004-04-19 devnull 			goto top;
254 a84cbb2a 2004-04-19 devnull 		}
255 a84cbb2a 2004-04-19 devnull 		return 0;
256 a84cbb2a 2004-04-19 devnull 	}
257 a84cbb2a 2004-04-19 devnull 
258 a84cbb2a 2004-04-19 devnull 	s->uoff = s->b.p - (d->info.data+s->unit);
259 a84cbb2a 2004-04-19 devnull 	num = dwarfget128(&s->b);
260 a84cbb2a 2004-04-19 devnull 	if(num == 0){
261 a84cbb2a 2004-04-19 devnull 		if(s->depth == 0)
262 a84cbb2a 2004-04-19 devnull 			return 0;
263 a84cbb2a 2004-04-19 devnull 		if(s->depth > 0)
264 a84cbb2a 2004-04-19 devnull 			s->depth--;
265 a84cbb2a 2004-04-19 devnull 		goto top;
266 a84cbb2a 2004-04-19 devnull 	}
267 a84cbb2a 2004-04-19 devnull 
268 a84cbb2a 2004-04-19 devnull 	a = dwarfgetabbrev(d, s->aoff, num);
269 a84cbb2a 2004-04-19 devnull 	if(a == nil){
270 eaf56db5 2004-04-21 devnull 		fprint(2, "getabbrev %ud %ud for %ud,%ud: %r\n", s->aoff, num, s->unit, s->uoff);
271 eaf56db5 2004-04-21 devnull 		abort();
272 a84cbb2a 2004-04-19 devnull 		return -1;
273 a84cbb2a 2004-04-19 devnull 	}
274 a84cbb2a 2004-04-19 devnull 	if(parseattrs(&s->b, s->unit, a, &s->attrs) < 0)
275 a84cbb2a 2004-04-19 devnull 		return -1;
276 a84cbb2a 2004-04-19 devnull 	return 1;
277 a84cbb2a 2004-04-19 devnull }
278 a84cbb2a 2004-04-19 devnull 
279 a84cbb2a 2004-04-19 devnull int
280 95f57b01 2004-04-21 devnull dwarfnextsymat(Dwarf *d, DwarfSym *s, int depth)
281 a84cbb2a 2004-04-19 devnull {
282 a84cbb2a 2004-04-19 devnull 	int r;
283 95f57b01 2004-04-21 devnull 	DwarfSym t;
284 95f57b01 2004-04-21 devnull 	uint sib;
285 a84cbb2a 2004-04-19 devnull 
286 95f57b01 2004-04-21 devnull 	if(s->depth == depth && s->attrs.have.sibling){
287 a84cbb2a 2004-04-19 devnull 		sib = s->attrs.sibling;
288 a84cbb2a 2004-04-19 devnull 		if(sib < d->info.len && d->info.data+sib >= s->b.p)
289 a84cbb2a 2004-04-19 devnull 			s->b.p = d->info.data+sib;
290 a84cbb2a 2004-04-19 devnull 		s->attrs.haskids = 0;
291 a84cbb2a 2004-04-19 devnull 	}
292 a84cbb2a 2004-04-19 devnull 
293 95f57b01 2004-04-21 devnull 	/*
294 fa325e9b 2020-01-10 cross 	 * The funny game with t and s make sure that
295 95f57b01 2004-04-21 devnull 	 * if we get to the end of a run of a particular
296 95f57b01 2004-04-21 devnull 	 * depth, we leave s so that a call to nextsymat with depth-1
297 95f57b01 2004-04-21 devnull 	 * will actually produce the desired guy.  We could change
298 fa325e9b 2020-01-10 cross 	 * the interface to dwarfnextsym instead, but I'm scared
299 95f57b01 2004-04-21 devnull 	 * to touch it.
300 95f57b01 2004-04-21 devnull 	 */
301 95f57b01 2004-04-21 devnull 	t = *s;
302 95f57b01 2004-04-21 devnull 	for(;;){
303 95f57b01 2004-04-21 devnull 		if((r = dwarfnextsym(d, &t)) != 1)
304 a84cbb2a 2004-04-19 devnull 			return r;
305 95f57b01 2004-04-21 devnull 		if(t.depth < depth){
306 95f57b01 2004-04-21 devnull 			/* went too far - nothing to see */
307 95f57b01 2004-04-21 devnull 			return 0;
308 95f57b01 2004-04-21 devnull 		}
309 95f57b01 2004-04-21 devnull 		*s = t;
310 95f57b01 2004-04-21 devnull 		if(t.depth == depth)
311 95f57b01 2004-04-21 devnull 			return 1;
312 95f57b01 2004-04-21 devnull 	}
313 a84cbb2a 2004-04-19 devnull }
314 a84cbb2a 2004-04-19 devnull 
315 a84cbb2a 2004-04-19 devnull typedef struct Parse Parse;
316 a84cbb2a 2004-04-19 devnull struct Parse {
317 a84cbb2a 2004-04-19 devnull 	int name;
318 a84cbb2a 2004-04-19 devnull 	int off;
319 a84cbb2a 2004-04-19 devnull 	int haveoff;
320 a84cbb2a 2004-04-19 devnull 	int type;
321 a84cbb2a 2004-04-19 devnull };
322 a84cbb2a 2004-04-19 devnull 
323 a84cbb2a 2004-04-19 devnull #define OFFSET(x) offsetof(DwarfAttrs, x), offsetof(DwarfAttrs, have.x)
324 a84cbb2a 2004-04-19 devnull 
325 a84cbb2a 2004-04-19 devnull static Parse plist[] = {	/* Font Tab 4 */
326 a84cbb2a 2004-04-19 devnull 	DwarfAttrAbstractOrigin,	OFFSET(abstractorigin),		TReference,
327 a84cbb2a 2004-04-19 devnull 	DwarfAttrAccessibility,	OFFSET(accessibility),		TConstant,
328 a84cbb2a 2004-04-19 devnull 	DwarfAttrAddrClass, 		OFFSET(addrclass), 			TConstant,
329 a84cbb2a 2004-04-19 devnull 	DwarfAttrArtificial,		OFFSET(isartificial), 		TFlag,
330 a84cbb2a 2004-04-19 devnull 	DwarfAttrBaseTypes,		OFFSET(basetypes),			TReference,
331 a84cbb2a 2004-04-19 devnull 	DwarfAttrBitOffset,		OFFSET(bitoffset),			TConstant,
332 a84cbb2a 2004-04-19 devnull 	DwarfAttrBitSize,		OFFSET(bitsize),			TConstant,
333 a84cbb2a 2004-04-19 devnull 	DwarfAttrByteSize,		OFFSET(bytesize),			TConstant,
334 a84cbb2a 2004-04-19 devnull 	DwarfAttrCalling,		OFFSET(calling),			TConstant,
335 a84cbb2a 2004-04-19 devnull 	DwarfAttrCommonRef,		OFFSET(commonref),			TReference,
336 a84cbb2a 2004-04-19 devnull 	DwarfAttrCompDir,		OFFSET(compdir),			TString,
337 a84cbb2a 2004-04-19 devnull 	DwarfAttrConstValue,		OFFSET(constvalue),			TString|TConstant|TBlock,
338 a84cbb2a 2004-04-19 devnull 	DwarfAttrContainingType,	OFFSET(containingtype),		TReference,
339 a84cbb2a 2004-04-19 devnull 	DwarfAttrCount,			OFFSET(count),				TConstant|TReference,
340 a84cbb2a 2004-04-19 devnull 	DwarfAttrDataMemberLoc,	OFFSET(datamemberloc),		TBlock|TConstant|TReference,
341 a84cbb2a 2004-04-19 devnull 	DwarfAttrDeclColumn,		OFFSET(declcolumn),			TConstant,
342 a84cbb2a 2004-04-19 devnull 	DwarfAttrDeclFile,		OFFSET(declfile),			TConstant,
343 a84cbb2a 2004-04-19 devnull 	DwarfAttrDeclLine,		OFFSET(declline),			TConstant,
344 a84cbb2a 2004-04-19 devnull 	DwarfAttrDeclaration,	OFFSET(isdeclaration),		TFlag,
345 a84cbb2a 2004-04-19 devnull 	DwarfAttrDefaultValue,	OFFSET(defaultvalue),		TReference,
346 a84cbb2a 2004-04-19 devnull 	DwarfAttrDiscr,			OFFSET(discr),				TReference,
347 a84cbb2a 2004-04-19 devnull 	DwarfAttrDiscrList,		OFFSET(discrlist),			TBlock,
348 a84cbb2a 2004-04-19 devnull 	DwarfAttrDiscrValue,		OFFSET(discrvalue),			TConstant,
349 a84cbb2a 2004-04-19 devnull 	DwarfAttrEncoding,		OFFSET(encoding),			TConstant,
350 a84cbb2a 2004-04-19 devnull 	DwarfAttrExternal,		OFFSET(isexternal),			TFlag,
351 a84cbb2a 2004-04-19 devnull 	DwarfAttrFrameBase,		OFFSET(framebase),			TBlock|TConstant,
352 a84cbb2a 2004-04-19 devnull 	DwarfAttrFriend,			OFFSET(friend),				TReference,
353 a84cbb2a 2004-04-19 devnull 	DwarfAttrHighpc,			OFFSET(highpc),				TAddress,
354 a84cbb2a 2004-04-19 devnull 	DwarfAttrIdentifierCase,	OFFSET(identifiercase),		TConstant,
355 a84cbb2a 2004-04-19 devnull 	DwarfAttrImport,			OFFSET(import),				TReference,
356 a84cbb2a 2004-04-19 devnull 	DwarfAttrInline,			OFFSET(inlined),			TConstant,
357 a84cbb2a 2004-04-19 devnull 	DwarfAttrIsOptional,		OFFSET(isoptional),			TFlag,
358 a84cbb2a 2004-04-19 devnull 	DwarfAttrLanguage,		OFFSET(language),			TConstant,
359 a84cbb2a 2004-04-19 devnull 	DwarfAttrLocation,		OFFSET(location),			TBlock|TConstant,
360 a84cbb2a 2004-04-19 devnull 	DwarfAttrLowerBound,		OFFSET(lowerbound),			TConstant|TReference,
361 a84cbb2a 2004-04-19 devnull 	DwarfAttrLowpc,			OFFSET(lowpc),				TAddress,
362 a84cbb2a 2004-04-19 devnull 	DwarfAttrMacroInfo,		OFFSET(macroinfo),			TConstant,
363 a84cbb2a 2004-04-19 devnull 	DwarfAttrName,			OFFSET(name),				TString,
364 a84cbb2a 2004-04-19 devnull 	DwarfAttrNamelistItem,	OFFSET(namelistitem),		TBlock,
365 a84cbb2a 2004-04-19 devnull 	DwarfAttrOrdering, 		OFFSET(ordering),			TConstant,
366 a84cbb2a 2004-04-19 devnull 	DwarfAttrPriority,		OFFSET(priority),			TReference,
367 a84cbb2a 2004-04-19 devnull 	DwarfAttrProducer,		OFFSET(producer),			TString,
368 a84cbb2a 2004-04-19 devnull 	DwarfAttrPrototyped,		OFFSET(isprototyped),		TFlag,
369 a84cbb2a 2004-04-19 devnull 	DwarfAttrRanges,			OFFSET(ranges),				TReference,
370 a84cbb2a 2004-04-19 devnull 	DwarfAttrReturnAddr,		OFFSET(returnaddr),			TBlock|TConstant,
371 a84cbb2a 2004-04-19 devnull 	DwarfAttrSegment,		OFFSET(segment),			TBlock|TConstant,
372 a84cbb2a 2004-04-19 devnull 	DwarfAttrSibling,		OFFSET(sibling),			TReference,
373 a84cbb2a 2004-04-19 devnull 	DwarfAttrSpecification,	OFFSET(specification),		TReference,
374 a84cbb2a 2004-04-19 devnull 	DwarfAttrStartScope,		OFFSET(startscope),			TConstant,
375 a84cbb2a 2004-04-19 devnull 	DwarfAttrStaticLink,		OFFSET(staticlink),			TBlock|TConstant,
376 a84cbb2a 2004-04-19 devnull 	DwarfAttrStmtList,		OFFSET(stmtlist),			TConstant,
377 a84cbb2a 2004-04-19 devnull 	DwarfAttrStrideSize,		OFFSET(stridesize),			TConstant,
378 a84cbb2a 2004-04-19 devnull 	DwarfAttrStringLength,	OFFSET(stringlength),		TBlock|TConstant,
379 a84cbb2a 2004-04-19 devnull 	DwarfAttrType,			OFFSET(type),				TReference,
380 a84cbb2a 2004-04-19 devnull 	DwarfAttrUpperBound,		OFFSET(upperbound),			TConstant|TReference,
381 a84cbb2a 2004-04-19 devnull 	DwarfAttrUseLocation,	OFFSET(uselocation),		TBlock|TConstant,
382 a84cbb2a 2004-04-19 devnull 	DwarfAttrVarParam,		OFFSET(isvarparam),			TFlag,
383 a84cbb2a 2004-04-19 devnull 	DwarfAttrVirtuality,		OFFSET(virtuality),			TConstant,
384 a84cbb2a 2004-04-19 devnull 	DwarfAttrVisibility,		OFFSET(visibility),			TConstant,
385 a84cbb2a 2004-04-19 devnull 	DwarfAttrVtableElemLoc,	OFFSET(vtableelemloc),		TBlock|TReference,
386 a84cbb2a 2004-04-19 devnull };
387 a84cbb2a 2004-04-19 devnull 
388 a84cbb2a 2004-04-19 devnull static Parse ptab[DwarfAttrMax];
389 a84cbb2a 2004-04-19 devnull 
390 a84cbb2a 2004-04-19 devnull static int
391 a84cbb2a 2004-04-19 devnull parseattrs(DwarfBuf *b, ulong unit, DwarfAbbrev *a, DwarfAttrs *attrs)
392 a84cbb2a 2004-04-19 devnull {
393 a84cbb2a 2004-04-19 devnull 	int i, f, n, got;
394 a84cbb2a 2004-04-19 devnull 	static int nbad;
395 a84cbb2a 2004-04-19 devnull 	void *v;
396 a84cbb2a 2004-04-19 devnull 
397 a84cbb2a 2004-04-19 devnull 	/* initialize ptab first time through for quick access */
398 a84cbb2a 2004-04-19 devnull 	if(ptab[DwarfAttrName].name != DwarfAttrName)
399 a84cbb2a 2004-04-19 devnull 		for(i=0; i<nelem(plist); i++)
400 a84cbb2a 2004-04-19 devnull 			ptab[plist[i].name] = plist[i];
401 a84cbb2a 2004-04-19 devnull 
402 a84cbb2a 2004-04-19 devnull 	memset(attrs, 0, sizeof *attrs);
403 a84cbb2a 2004-04-19 devnull 	attrs->tag = a->tag;
404 a84cbb2a 2004-04-19 devnull 	attrs->haskids = a->haskids;
405 a84cbb2a 2004-04-19 devnull 
406 a84cbb2a 2004-04-19 devnull 	for(i=0; i<a->nattr; i++){
407 a84cbb2a 2004-04-19 devnull 		n = a->attr[i].name;
408 a84cbb2a 2004-04-19 devnull 		f = a->attr[i].form;
409 a84cbb2a 2004-04-19 devnull 		if(n < 0 || n >= nelem(ptab) || ptab[n].name==0){
410 a84cbb2a 2004-04-19 devnull 			if(++nbad == 1)
411 a84cbb2a 2004-04-19 devnull 				fprint(2, "dwarf parse attrs: unexpected attribute name 0x%ux\n", n);
412 a84cbb2a 2004-04-19 devnull 			return -1;
413 a84cbb2a 2004-04-19 devnull 		}
414 a84cbb2a 2004-04-19 devnull 		v = (char*)attrs + ptab[n].off;
415 a84cbb2a 2004-04-19 devnull 		got = 0;
416 a84cbb2a 2004-04-19 devnull 		if(f == FormIndirect)
417 a84cbb2a 2004-04-19 devnull 			f = dwarfget128(b);
418 a84cbb2a 2004-04-19 devnull 		if((ptab[n].type&(TConstant|TReference|TAddress))
419 a84cbb2a 2004-04-19 devnull 		&& getulong(b, f, unit, v, &got) >= 0)
420 a84cbb2a 2004-04-19 devnull 			;
421 a84cbb2a 2004-04-19 devnull 		else if((ptab[n].type&TFlag) && getuchar(b, f, v) >= 0)
422 a84cbb2a 2004-04-19 devnull 			got = TFlag;
423 a84cbb2a 2004-04-19 devnull 		else if((ptab[n].type&TString) && getstring(b, f, v) >= 0)
424 a84cbb2a 2004-04-19 devnull 			got = TString;
425 a84cbb2a 2004-04-19 devnull 		else if((ptab[n].type&TBlock) && getblock(b, f, v) >= 0)
426 a84cbb2a 2004-04-19 devnull 			got = TBlock;
427 a84cbb2a 2004-04-19 devnull 		else{
428 a84cbb2a 2004-04-19 devnull 			if(skipform(b, f) < 0){
429 a84cbb2a 2004-04-19 devnull 				if(++nbad == 1)
430 a84cbb2a 2004-04-19 devnull 					fprint(2, "dwarf parse attrs: cannot skip form %d\n", f);
431 a84cbb2a 2004-04-19 devnull 				return -1;
432 a84cbb2a 2004-04-19 devnull 			}
433 a84cbb2a 2004-04-19 devnull 		}
434 a84cbb2a 2004-04-19 devnull 		if(got == TBlock && (ptab[n].type&TConstant))
435 a84cbb2a 2004-04-19 devnull 			got = constblock(b->d, v, v);
436 a84cbb2a 2004-04-19 devnull 		*((uchar*)attrs+ptab[n].haveoff) = got;
437 a84cbb2a 2004-04-19 devnull 	}
438 a84cbb2a 2004-04-19 devnull 	return 0;
439 a84cbb2a 2004-04-19 devnull }
440 a84cbb2a 2004-04-19 devnull 
441 a84cbb2a 2004-04-19 devnull static int
442 a84cbb2a 2004-04-19 devnull getulong(DwarfBuf *b, int form, ulong unit, ulong *u, int *type)
443 a84cbb2a 2004-04-19 devnull {
444 a84cbb2a 2004-04-19 devnull 	static int nbad;
445 a84cbb2a 2004-04-19 devnull 	uvlong uv;
446 a84cbb2a 2004-04-19 devnull 
447 a84cbb2a 2004-04-19 devnull 	switch(form){
448 a84cbb2a 2004-04-19 devnull 	default:
449 a84cbb2a 2004-04-19 devnull 		return -1;
450 a84cbb2a 2004-04-19 devnull 
451 a84cbb2a 2004-04-19 devnull 	/* addresses */
452 a84cbb2a 2004-04-19 devnull 	case FormAddr:
453 a84cbb2a 2004-04-19 devnull 		*type = TAddress;
454 a84cbb2a 2004-04-19 devnull 		*u = dwarfgetaddr(b);
455 a84cbb2a 2004-04-19 devnull 		return 0;
456 a84cbb2a 2004-04-19 devnull 
457 a84cbb2a 2004-04-19 devnull 	/* references */
458 a84cbb2a 2004-04-19 devnull 	case FormRefAddr:
459 a84cbb2a 2004-04-19 devnull 		/* absolute ref in .debug_info */
460 a84cbb2a 2004-04-19 devnull 		*type = TReference;
461 a84cbb2a 2004-04-19 devnull 		*u = dwarfgetaddr(b);
462 a84cbb2a 2004-04-19 devnull 		return 0;
463 a84cbb2a 2004-04-19 devnull 	case FormRef1:
464 a84cbb2a 2004-04-19 devnull 		*u = dwarfget1(b);
465 a84cbb2a 2004-04-19 devnull 		goto relativeref;
466 a84cbb2a 2004-04-19 devnull 	case FormRef2:
467 a84cbb2a 2004-04-19 devnull 		*u = dwarfget2(b);
468 a84cbb2a 2004-04-19 devnull 		goto relativeref;
469 a84cbb2a 2004-04-19 devnull 	case FormRef4:
470 a84cbb2a 2004-04-19 devnull 		*u = dwarfget4(b);
471 a84cbb2a 2004-04-19 devnull 		goto relativeref;
472 a84cbb2a 2004-04-19 devnull 	case FormRef8:
473 a84cbb2a 2004-04-19 devnull 		*u = dwarfget8(b);
474 a84cbb2a 2004-04-19 devnull 		goto relativeref;
475 a84cbb2a 2004-04-19 devnull 	case FormRefUdata:
476 a84cbb2a 2004-04-19 devnull 		*u = dwarfget128(b);
477 a84cbb2a 2004-04-19 devnull 	relativeref:
478 a84cbb2a 2004-04-19 devnull 		*u += unit;
479 a84cbb2a 2004-04-19 devnull 		*type = TReference;
480 a84cbb2a 2004-04-19 devnull 		return 0;
481 a84cbb2a 2004-04-19 devnull 
482 a84cbb2a 2004-04-19 devnull 	/* constants */
483 a84cbb2a 2004-04-19 devnull 	case FormData1:
484 a84cbb2a 2004-04-19 devnull 		*u = dwarfget1(b);
485 a84cbb2a 2004-04-19 devnull 		goto constant;
486 a84cbb2a 2004-04-19 devnull 	case FormData2:
487 a84cbb2a 2004-04-19 devnull 		*u = dwarfget2(b);
488 a84cbb2a 2004-04-19 devnull 		goto constant;
489 a84cbb2a 2004-04-19 devnull 	case FormData4:
490 a84cbb2a 2004-04-19 devnull 		*u = dwarfget4(b);
491 a84cbb2a 2004-04-19 devnull 		goto constant;
492 a84cbb2a 2004-04-19 devnull 	case FormData8:
493 a84cbb2a 2004-04-19 devnull 		uv = dwarfget8(b);
494 a84cbb2a 2004-04-19 devnull 		*u = uv;
495 a84cbb2a 2004-04-19 devnull 		if(uv != *u && ++nbad == 1)
496 a84cbb2a 2004-04-19 devnull 			fprint(2, "dwarf: truncating 64-bit attribute constants\n");
497 a84cbb2a 2004-04-19 devnull 		goto constant;
498 a84cbb2a 2004-04-19 devnull 	case FormSdata:
499 a84cbb2a 2004-04-19 devnull 		*u = dwarfget128s(b);
500 a84cbb2a 2004-04-19 devnull 		goto constant;
501 a84cbb2a 2004-04-19 devnull 	case FormUdata:
502 a84cbb2a 2004-04-19 devnull 		*u = dwarfget128(b);
503 a84cbb2a 2004-04-19 devnull 	constant:
504 a84cbb2a 2004-04-19 devnull 		*type = TConstant;
505 a84cbb2a 2004-04-19 devnull 		return 0;
506 a84cbb2a 2004-04-19 devnull 	}
507 a84cbb2a 2004-04-19 devnull }
508 a84cbb2a 2004-04-19 devnull 
509 a84cbb2a 2004-04-19 devnull static int
510 a84cbb2a 2004-04-19 devnull getuchar(DwarfBuf *b, int form, uchar *u)
511 a84cbb2a 2004-04-19 devnull {
512 a84cbb2a 2004-04-19 devnull 	switch(form){
513 a84cbb2a 2004-04-19 devnull 	default:
514 a84cbb2a 2004-04-19 devnull 		return -1;
515 a84cbb2a 2004-04-19 devnull 
516 a84cbb2a 2004-04-19 devnull 	case FormFlag:
517 a84cbb2a 2004-04-19 devnull 		*u = dwarfget1(b);
518 a84cbb2a 2004-04-19 devnull 		return 0;
519 a84cbb2a 2004-04-19 devnull 	}
520 a84cbb2a 2004-04-19 devnull }
521 a84cbb2a 2004-04-19 devnull 
522 a84cbb2a 2004-04-19 devnull static int
523 a84cbb2a 2004-04-19 devnull getstring(DwarfBuf *b, int form, char **s)
524 a84cbb2a 2004-04-19 devnull {
525 a84cbb2a 2004-04-19 devnull 	static int nbad;
526 a84cbb2a 2004-04-19 devnull 	ulong u;
527 a84cbb2a 2004-04-19 devnull 
528 a84cbb2a 2004-04-19 devnull 	switch(form){
529 a84cbb2a 2004-04-19 devnull 	default:
530 a84cbb2a 2004-04-19 devnull 		return -1;
531 a84cbb2a 2004-04-19 devnull 
532 a84cbb2a 2004-04-19 devnull 	case FormString:
533 a84cbb2a 2004-04-19 devnull 		*s = dwarfgetstring(b);
534 a84cbb2a 2004-04-19 devnull 		return 0;
535 a84cbb2a 2004-04-19 devnull 
536 a84cbb2a 2004-04-19 devnull 	case FormStrp:
537 a84cbb2a 2004-04-19 devnull 		u = dwarfget4(b);
538 a84cbb2a 2004-04-19 devnull 		if(u >= b->d->str.len){
539 a84cbb2a 2004-04-19 devnull 			if(++nbad == 1)
540 a84cbb2a 2004-04-19 devnull 				fprint(2, "dwarf: bad string pointer 0x%lux in attribute\n", u);
541 a84cbb2a 2004-04-19 devnull 			/* don't return error - maybe can proceed */
542 a84cbb2a 2004-04-19 devnull 			*s = nil;
543 a84cbb2a 2004-04-19 devnull 		}else
544 929ba9b9 2004-04-20 devnull 			*s = (char*)b->d->str.data + u;
545 a84cbb2a 2004-04-19 devnull 		return 0;
546 a84cbb2a 2004-04-19 devnull 
547 a84cbb2a 2004-04-19 devnull 	}
548 a84cbb2a 2004-04-19 devnull }
549 a84cbb2a 2004-04-19 devnull 
550 a84cbb2a 2004-04-19 devnull static int
551 a84cbb2a 2004-04-19 devnull getblock(DwarfBuf *b, int form, DwarfBlock *bl)
552 a84cbb2a 2004-04-19 devnull {
553 a84cbb2a 2004-04-19 devnull 	ulong n;
554 a84cbb2a 2004-04-19 devnull 
555 a84cbb2a 2004-04-19 devnull 	switch(form){
556 a84cbb2a 2004-04-19 devnull 	default:
557 a84cbb2a 2004-04-19 devnull 		return -1;
558 a84cbb2a 2004-04-19 devnull 	case FormDwarfBlock:
559 a84cbb2a 2004-04-19 devnull 		n = dwarfget128(b);
560 a84cbb2a 2004-04-19 devnull 		goto copyn;
561 a84cbb2a 2004-04-19 devnull 	case FormDwarfBlock1:
562 a84cbb2a 2004-04-19 devnull 		n = dwarfget1(b);
563 a84cbb2a 2004-04-19 devnull 		goto copyn;
564 a84cbb2a 2004-04-19 devnull 	case FormDwarfBlock2:
565 a84cbb2a 2004-04-19 devnull 		n = dwarfget2(b);
566 a84cbb2a 2004-04-19 devnull 		goto copyn;
567 a84cbb2a 2004-04-19 devnull 	case FormDwarfBlock4:
568 a84cbb2a 2004-04-19 devnull 		n = dwarfget4(b);
569 a84cbb2a 2004-04-19 devnull 	copyn:
570 a84cbb2a 2004-04-19 devnull 		bl->data = dwarfgetnref(b, n);
571 a84cbb2a 2004-04-19 devnull 		bl->len = n;
572 a84cbb2a 2004-04-19 devnull 		if(bl->data == nil)
573 a84cbb2a 2004-04-19 devnull 			return -1;
574 a84cbb2a 2004-04-19 devnull 		return 0;
575 a84cbb2a 2004-04-19 devnull 	}
576 a84cbb2a 2004-04-19 devnull }
577 a84cbb2a 2004-04-19 devnull 
578 a84cbb2a 2004-04-19 devnull static int
579 a84cbb2a 2004-04-19 devnull constblock(Dwarf *d, DwarfBlock *bl, ulong *pval)
580 a84cbb2a 2004-04-19 devnull {
581 a84cbb2a 2004-04-19 devnull 	DwarfBuf b;
582 a84cbb2a 2004-04-19 devnull 
583 a84cbb2a 2004-04-19 devnull 	memset(&b, 0, sizeof b);
584 a84cbb2a 2004-04-19 devnull 	b.p = bl->data;
585 a84cbb2a 2004-04-19 devnull 	b.ep = bl->data+bl->len;
586 a84cbb2a 2004-04-19 devnull 	b.d = d;
587 a84cbb2a 2004-04-19 devnull 
588 a84cbb2a 2004-04-19 devnull 	switch(dwarfget1(&b)){
589 a84cbb2a 2004-04-19 devnull 	case OpAddr:
590 a84cbb2a 2004-04-19 devnull 		*pval = dwarfgetaddr(&b);
591 a84cbb2a 2004-04-19 devnull 		return TConstant;
592 a84cbb2a 2004-04-19 devnull 	case OpConst1u:
593 a84cbb2a 2004-04-19 devnull 		*pval = dwarfget1(&b);
594 a84cbb2a 2004-04-19 devnull 		return TConstant;
595 a84cbb2a 2004-04-19 devnull 	case OpConst1s:
596 a84cbb2a 2004-04-19 devnull 		*pval = (schar)dwarfget1(&b);
597 a84cbb2a 2004-04-19 devnull 		return TConstant;
598 a84cbb2a 2004-04-19 devnull 	case OpConst2u:
599 a84cbb2a 2004-04-19 devnull 		*pval = dwarfget2(&b);
600 a84cbb2a 2004-04-19 devnull 		return TConstant;
601 a84cbb2a 2004-04-19 devnull 	case OpConst2s:
602 a84cbb2a 2004-04-19 devnull 		*pval = (s16int)dwarfget2(&b);
603 a84cbb2a 2004-04-19 devnull 		return TConstant;
604 a84cbb2a 2004-04-19 devnull 	case OpConst4u:
605 a84cbb2a 2004-04-19 devnull 		*pval = dwarfget4(&b);
606 a84cbb2a 2004-04-19 devnull 		return TConstant;
607 a84cbb2a 2004-04-19 devnull 	case OpConst4s:
608 a84cbb2a 2004-04-19 devnull 		*pval = (s32int)dwarfget4(&b);
609 a84cbb2a 2004-04-19 devnull 		return TConstant;
610 a84cbb2a 2004-04-19 devnull 	case OpConst8u:
611 a84cbb2a 2004-04-19 devnull 		*pval = (u64int)dwarfget8(&b);
612 a84cbb2a 2004-04-19 devnull 		return TConstant;
613 a84cbb2a 2004-04-19 devnull 	case OpConst8s:
614 a84cbb2a 2004-04-19 devnull 		*pval = (s64int)dwarfget8(&b);
615 a84cbb2a 2004-04-19 devnull 		return TConstant;
616 a84cbb2a 2004-04-19 devnull 	case OpConstu:
617 a84cbb2a 2004-04-19 devnull 		*pval = dwarfget128(&b);
618 a84cbb2a 2004-04-19 devnull 		return TConstant;
619 a84cbb2a 2004-04-19 devnull 	case OpConsts:
620 a84cbb2a 2004-04-19 devnull 		*pval = dwarfget128s(&b);
621 a84cbb2a 2004-04-19 devnull 		return TConstant;
622 a84cbb2a 2004-04-19 devnull 	case OpPlusUconst:
623 a84cbb2a 2004-04-19 devnull 		*pval = dwarfget128(&b);
624 a84cbb2a 2004-04-19 devnull 		return TConstant;
625 a84cbb2a 2004-04-19 devnull 	default:
626 a84cbb2a 2004-04-19 devnull 		return TBlock;
627 a84cbb2a 2004-04-19 devnull 	}
628 a84cbb2a 2004-04-19 devnull }
629 a84cbb2a 2004-04-19 devnull 
630 a84cbb2a 2004-04-19 devnull /* last resort */
631 a84cbb2a 2004-04-19 devnull static int
632 a84cbb2a 2004-04-19 devnull skipform(DwarfBuf *b, int form)
633 a84cbb2a 2004-04-19 devnull {
634 a84cbb2a 2004-04-19 devnull 	int type;
635 a84cbb2a 2004-04-19 devnull 	DwarfVal val;
636 a84cbb2a 2004-04-19 devnull 
637 a84cbb2a 2004-04-19 devnull 	if(getulong(b, form, 0, &val.c, &type) < 0
638 a84cbb2a 2004-04-19 devnull 	&& getuchar(b, form, (uchar*)&val) < 0
639 a84cbb2a 2004-04-19 devnull 	&& getstring(b, form, &val.s) < 0
640 a84cbb2a 2004-04-19 devnull 	&& getblock(b, form, &val.b) < 0)
641 a84cbb2a 2004-04-19 devnull 		return -1;
642 a84cbb2a 2004-04-19 devnull 	return 0;
643 a84cbb2a 2004-04-19 devnull }