1 a84cbb2a 2004-04-19 devnull #include <u.h>
2 a84cbb2a 2004-04-19 devnull #include <libc.h>
3 a84cbb2a 2004-04-19 devnull #include <bio.h>
4 a84cbb2a 2004-04-19 devnull #include <mach.h>
6 a84cbb2a 2004-04-19 devnull int machdebug = 0;
8 a84cbb2a 2004-04-19 devnull Fhdr *fhdrlist;
9 a84cbb2a 2004-04-19 devnull static Fhdr *last;
11 a84cbb2a 2004-04-19 devnull static void
12 a84cbb2a 2004-04-19 devnull relocsym(Symbol *dst, Symbol *src, ulong base)
14 a84cbb2a 2004-04-19 devnull if(dst != src)
15 a84cbb2a 2004-04-19 devnull *dst = *src;
16 a84cbb2a 2004-04-19 devnull if(dst->loc.type == LADDR)
17 a84cbb2a 2004-04-19 devnull dst->loc.addr += base;
18 a84cbb2a 2004-04-19 devnull if(dst->hiloc.type == LADDR)
19 a84cbb2a 2004-04-19 devnull dst->hiloc.addr += base;
23 a84cbb2a 2004-04-19 devnull _addhdr(Fhdr *h)
25 a84cbb2a 2004-04-19 devnull h->next = nil;
26 a84cbb2a 2004-04-19 devnull if(fhdrlist == nil){
27 a84cbb2a 2004-04-19 devnull fhdrlist = h;
28 a84cbb2a 2004-04-19 devnull last = h;
30 a84cbb2a 2004-04-19 devnull last->next = h;
31 a84cbb2a 2004-04-19 devnull last = h;
36 a84cbb2a 2004-04-19 devnull _delhdr(Fhdr *h)
40 a84cbb2a 2004-04-19 devnull if(h == fhdrlist)
41 a84cbb2a 2004-04-19 devnull fhdrlist = h->next;
43 a84cbb2a 2004-04-19 devnull for(p=fhdrlist; p && p->next!=h; p=p->next)
46 a84cbb2a 2004-04-19 devnull p->next = h->next;
47 dd944ec7 2005-01-23 devnull if(p->next == nil)
48 dd944ec7 2005-01-23 devnull last = p;
51 a84cbb2a 2004-04-19 devnull h->next = nil;
55 1cc215aa 2004-12-25 devnull findhdr(char *name)
57 1cc215aa 2004-12-25 devnull int len, plen;
60 1cc215aa 2004-12-25 devnull len = strlen(name);
61 1cc215aa 2004-12-25 devnull for(p=fhdrlist; p; p=p->next){
62 1cc215aa 2004-12-25 devnull plen = strlen(p->filename);
63 1cc215aa 2004-12-25 devnull if(plen >= len)
64 1cc215aa 2004-12-25 devnull if(strcmp(p->filename+plen-len, name) == 0)
65 1cc215aa 2004-12-25 devnull if(plen == len || p->filename[plen-len-1] == '/')
66 1cc215aa 2004-12-25 devnull return p;
68 1cc215aa 2004-12-25 devnull return nil;
72 a84cbb2a 2004-04-19 devnull pc2file(ulong pc, char *file, uint nfile, ulong *line)
76 a84cbb2a 2004-04-19 devnull for(p=fhdrlist; p; p=p->next)
77 a84cbb2a 2004-04-19 devnull if(p->pc2file && p->pc2file(p, pc-p->base, file, nfile, line) >= 0)
78 a84cbb2a 2004-04-19 devnull return 0;
79 a84cbb2a 2004-04-19 devnull werrstr("no source file for 0x%lux", pc);
80 a84cbb2a 2004-04-19 devnull return -1;
84 a84cbb2a 2004-04-19 devnull pc2line(ulong pc, ulong *line)
86 a84cbb2a 2004-04-19 devnull char tmp[10]; /* just in case */
87 a84cbb2a 2004-04-19 devnull return pc2file(pc, tmp, sizeof tmp, line);
91 a84cbb2a 2004-04-19 devnull file2pc(char *file, ulong line, ulong *addr)
95 a84cbb2a 2004-04-19 devnull for(p=fhdrlist; p; p=p->next)
96 a84cbb2a 2004-04-19 devnull if(p->file2pc && p->file2pc(p, file, line, addr) >= 0){
97 a84cbb2a 2004-04-19 devnull *addr += p->base;
98 a84cbb2a 2004-04-19 devnull return 0;
100 a84cbb2a 2004-04-19 devnull werrstr("no instructions at %s:%lud", file, line);
101 a84cbb2a 2004-04-19 devnull return -1;
105 a84cbb2a 2004-04-19 devnull line2pc(ulong basepc, ulong line, ulong *pc)
107 a84cbb2a 2004-04-19 devnull Fhdr *p;
109 a84cbb2a 2004-04-19 devnull for(p=fhdrlist; p; p=p->next)
110 a84cbb2a 2004-04-19 devnull if(p->line2pc && p->line2pc(p, basepc-p->base, line, pc) >= 0){
111 a84cbb2a 2004-04-19 devnull *pc += p->base;
112 a84cbb2a 2004-04-19 devnull return 0;
114 a84cbb2a 2004-04-19 devnull werrstr("no instructions on line %lud", line);
115 a84cbb2a 2004-04-19 devnull return -1;
119 a84cbb2a 2004-04-19 devnull fnbound(ulong pc, ulong *bounds)
121 a84cbb2a 2004-04-19 devnull Fhdr *p;
123 a84cbb2a 2004-04-19 devnull Symbol *s;
125 a84cbb2a 2004-04-19 devnull for(p=fhdrlist; p; p=p->next){
126 a84cbb2a 2004-04-19 devnull l = locaddr(pc - p->base);
127 a84cbb2a 2004-04-19 devnull if((s = ffindsym(p, l, CANY)) != nil){
128 a84cbb2a 2004-04-19 devnull if(s->loc.type != LADDR){
129 a84cbb2a 2004-04-19 devnull werrstr("function %s has weird location %L", s->name, s->loc);
130 a84cbb2a 2004-04-19 devnull return -1;
132 a84cbb2a 2004-04-19 devnull bounds[0] = s->loc.addr + p->base;
133 a84cbb2a 2004-04-19 devnull if(s->hiloc.type != LADDR){
134 a84cbb2a 2004-04-19 devnull werrstr("can't find upper bound for function %s", s->name);
135 a84cbb2a 2004-04-19 devnull return -1;
137 a84cbb2a 2004-04-19 devnull bounds[1] = s->hiloc.addr + p->base;
138 a84cbb2a 2004-04-19 devnull return 0;
141 a84cbb2a 2004-04-19 devnull werrstr("no function contains 0x%lux", pc);
142 a84cbb2a 2004-04-19 devnull return -1;
146 a84cbb2a 2004-04-19 devnull fileline(ulong pc, char *a, uint n)
148 a84cbb2a 2004-04-19 devnull ulong line;
150 a84cbb2a 2004-04-19 devnull if(pc2file(pc, a, n, &line) < 0)
151 a84cbb2a 2004-04-19 devnull return -1;
152 a84cbb2a 2004-04-19 devnull seprint(a+strlen(a), a+n, ":%lud", line);
153 a84cbb2a 2004-04-19 devnull return 0;
157 a84cbb2a 2004-04-19 devnull flookupsym(Fhdr *fhdr, char *name)
159 a84cbb2a 2004-04-19 devnull Symbol **a, *t;
160 a84cbb2a 2004-04-19 devnull uint n, m;
163 a84cbb2a 2004-04-19 devnull a = fhdr->byname;
164 a84cbb2a 2004-04-19 devnull n = fhdr->nsym;
165 a84cbb2a 2004-04-19 devnull if(a == nil)
166 a84cbb2a 2004-04-19 devnull return nil;
168 a84cbb2a 2004-04-19 devnull while(n > 0){
169 a84cbb2a 2004-04-19 devnull m = n/2;
170 a84cbb2a 2004-04-19 devnull t = a[m];
171 a84cbb2a 2004-04-19 devnull i = strcmp(name, t->name);
172 a84cbb2a 2004-04-19 devnull if(i < 0)
174 a84cbb2a 2004-04-19 devnull else if(i > 0){
175 a84cbb2a 2004-04-19 devnull n -= m+1;
176 a84cbb2a 2004-04-19 devnull a += m+1;
178 a84cbb2a 2004-04-19 devnull /* found! */
179 a84cbb2a 2004-04-19 devnull m += a - fhdr->byname;
180 a84cbb2a 2004-04-19 devnull a = fhdr->byname;
181 a84cbb2a 2004-04-19 devnull assert(strcmp(name, a[m]->name) == 0);
182 a84cbb2a 2004-04-19 devnull while(m > 0 && strcmp(name, a[m-1]->name) == 0)
184 a84cbb2a 2004-04-19 devnull return a[m];
187 a84cbb2a 2004-04-19 devnull return nil;
191 a84cbb2a 2004-04-19 devnull lookupsym(char *fn, char *var, Symbol *s)
193 a84cbb2a 2004-04-19 devnull Symbol *t, s1;
194 a84cbb2a 2004-04-19 devnull Fhdr *p;
195 a84cbb2a 2004-04-19 devnull char *nam;
197 a84cbb2a 2004-04-19 devnull nam = fn ? fn : var;
198 a84cbb2a 2004-04-19 devnull if(nam == nil)
199 a84cbb2a 2004-04-19 devnull return -1;
200 a84cbb2a 2004-04-19 devnull t = nil;
201 a84cbb2a 2004-04-19 devnull for(p=fhdrlist; p; p=p->next)
202 a84cbb2a 2004-04-19 devnull if((t=flookupsym(p, nam)) != nil){
203 a84cbb2a 2004-04-19 devnull relocsym(&s1, t, p->base);
206 a84cbb2a 2004-04-19 devnull if(t == nil)
207 a84cbb2a 2004-04-19 devnull goto err;
208 a84cbb2a 2004-04-19 devnull if(fn && var)
209 a84cbb2a 2004-04-19 devnull return lookuplsym(&s1, var, s);
210 a84cbb2a 2004-04-19 devnull *s = s1;
211 a84cbb2a 2004-04-19 devnull return 0;
214 a84cbb2a 2004-04-19 devnull werrstr("unknown symbol %s%s%s", fn ? fn : "",
215 a84cbb2a 2004-04-19 devnull fn && var ? ":" : "", var ? var : "");
216 a84cbb2a 2004-04-19 devnull return -1;
220 a84cbb2a 2004-04-19 devnull findexsym(Fhdr *fp, uint i, Symbol *s)
222 a84cbb2a 2004-04-19 devnull if(i >= fp->nsym)
223 a84cbb2a 2004-04-19 devnull return -1;
224 a84cbb2a 2004-04-19 devnull relocsym(s, &fp->sym[i], fp->base);
225 a84cbb2a 2004-04-19 devnull return 0;
229 a84cbb2a 2004-04-19 devnull indexsym(uint ndx, Symbol *s)
232 a84cbb2a 2004-04-19 devnull Fhdr *p;
234 a84cbb2a 2004-04-19 devnull for(p=fhdrlist; p; p=p->next){
235 a84cbb2a 2004-04-19 devnull t = p->nsym;
236 a84cbb2a 2004-04-19 devnull if(t < ndx)
237 a84cbb2a 2004-04-19 devnull ndx -= t;
239 a84cbb2a 2004-04-19 devnull relocsym(s, &p->sym[ndx], p->base);
240 a84cbb2a 2004-04-19 devnull return 0;
243 a84cbb2a 2004-04-19 devnull return -1;
247 a84cbb2a 2004-04-19 devnull ffindsym(Fhdr *fhdr, Loc loc, uint class)
249 a84cbb2a 2004-04-19 devnull Symbol *a, *t;
250 a84cbb2a 2004-04-19 devnull int n, i, hi, lo;
251 a84cbb2a 2004-04-19 devnull int cmp;
253 a84cbb2a 2004-04-19 devnull a = fhdr->sym;
254 a84cbb2a 2004-04-19 devnull n = fhdr->nsym;
255 a84cbb2a 2004-04-19 devnull if(a == nil || n <= 0)
256 a84cbb2a 2004-04-19 devnull return nil;
259 a84cbb2a 2004-04-19 devnull * We have a list of possibly duplicate locations in a.
260 a84cbb2a 2004-04-19 devnull * We want to find the largest index i such that
261 a84cbb2a 2004-04-19 devnull * a[i] <= loc. This cannot be done with a simple
262 a84cbb2a 2004-04-19 devnull * binary search. Instead we binary search to find
263 a84cbb2a 2004-04-19 devnull * where the location should be.
267 a84cbb2a 2004-04-19 devnull while(lo < hi){
268 a84cbb2a 2004-04-19 devnull i = (lo+hi)/2;
269 a84cbb2a 2004-04-19 devnull cmp = loccmp(&loc, &a[i].loc);
270 a84cbb2a 2004-04-19 devnull if(cmp < 0) /* loc < a[i].loc */
272 a84cbb2a 2004-04-19 devnull if(cmp > 0) /* loc > a[i].loc */
273 a84cbb2a 2004-04-19 devnull lo = i+1;
274 a84cbb2a 2004-04-19 devnull if(cmp == 0)
275 a84cbb2a 2004-04-19 devnull goto found;
278 a84cbb2a 2004-04-19 devnull /* found position where value would go, but not there -- go back one */
279 a84cbb2a 2004-04-19 devnull if(lo == 0)
280 a84cbb2a 2004-04-19 devnull return nil;
281 a84cbb2a 2004-04-19 devnull i = lo-1;
285 a84cbb2a 2004-04-19 devnull * might be in a run of all-the-same -- go back to beginning of run.
286 a84cbb2a 2004-04-19 devnull * if runs were long, could binary search for a[i].loc instead.
288 a84cbb2a 2004-04-19 devnull while(i > 0 && loccmp(&a[i-1].loc, &a[i].loc) == 0)
291 a84cbb2a 2004-04-19 devnull t = &a[i];
292 a84cbb2a 2004-04-19 devnull if(t->hiloc.type && loccmp(&loc, &t->hiloc) >= 0)
293 a84cbb2a 2004-04-19 devnull return nil;
294 a84cbb2a 2004-04-19 devnull if(class != CANY && class != t->class)
295 a84cbb2a 2004-04-19 devnull return nil;
296 a84cbb2a 2004-04-19 devnull return t;
300 a84cbb2a 2004-04-19 devnull findsym(Loc loc, uint class, Symbol *s)
302 a84cbb2a 2004-04-19 devnull Fhdr *p, *bestp;
303 a84cbb2a 2004-04-19 devnull Symbol *t, *best;
304 a84cbb2a 2004-04-19 devnull long bestd, d;
307 a84cbb2a 2004-04-19 devnull l = loc;
308 a84cbb2a 2004-04-19 devnull best = nil;
309 a84cbb2a 2004-04-19 devnull bestp = nil;
310 a84cbb2a 2004-04-19 devnull bestd = 0;
311 a84cbb2a 2004-04-19 devnull for(p=fhdrlist; p; p=p->next){
312 a84cbb2a 2004-04-19 devnull if(l.type == LADDR)
313 a84cbb2a 2004-04-19 devnull l.addr = loc.addr - p->base;
314 a84cbb2a 2004-04-19 devnull if((t = ffindsym(p, l, CANY)) != nil){
315 a84cbb2a 2004-04-19 devnull d = l.addr - t->loc.addr;
316 62c277ef 2004-04-20 devnull if(0 <= d && d < 4096)
317 a84cbb2a 2004-04-19 devnull if(best == nil || d < bestd){
318 a84cbb2a 2004-04-19 devnull best = t;
319 a84cbb2a 2004-04-19 devnull bestp = p;
320 a84cbb2a 2004-04-19 devnull bestd = d;
324 a84cbb2a 2004-04-19 devnull if(best){
325 a84cbb2a 2004-04-19 devnull if(class != CANY && class != best->class)
326 a84cbb2a 2004-04-19 devnull goto err;
327 a84cbb2a 2004-04-19 devnull relocsym(s, best, bestp->base);
328 a84cbb2a 2004-04-19 devnull return 0;
331 a84cbb2a 2004-04-19 devnull werrstr("could not find symbol at %L", loc);
332 a84cbb2a 2004-04-19 devnull return -1;
336 a84cbb2a 2004-04-19 devnull lookuplsym(Symbol *s1, char *name, Symbol *s2)
338 a84cbb2a 2004-04-19 devnull Fhdr *p;
340 a84cbb2a 2004-04-19 devnull p = s1->fhdr;
341 a84cbb2a 2004-04-19 devnull if(p->lookuplsym && p->lookuplsym(p, s1, name, s2) >= 0){
342 a84cbb2a 2004-04-19 devnull relocsym(s2, s2, p->base);
343 a84cbb2a 2004-04-19 devnull return 0;
345 a84cbb2a 2004-04-19 devnull return -1;
349 a84cbb2a 2004-04-19 devnull indexlsym(Symbol *s1, uint ndx, Symbol *s2)
351 a84cbb2a 2004-04-19 devnull Fhdr *p;
353 a84cbb2a 2004-04-19 devnull p = s1->fhdr;
354 a84cbb2a 2004-04-19 devnull if(p->indexlsym && p->indexlsym(p, s1, ndx, s2) >= 0){
355 a84cbb2a 2004-04-19 devnull relocsym(s2, s2, p->base);
356 a84cbb2a 2004-04-19 devnull return 0;
358 a84cbb2a 2004-04-19 devnull return -1;
362 a84cbb2a 2004-04-19 devnull findlsym(Symbol *s1, Loc loc, Symbol *s2)
364 a84cbb2a 2004-04-19 devnull Fhdr *p;
366 a84cbb2a 2004-04-19 devnull p = s1->fhdr;
367 a84cbb2a 2004-04-19 devnull if(p->findlsym && p->findlsym(p, s1, loc, s2) >= 0){
368 a84cbb2a 2004-04-19 devnull relocsym(s2, s2, p->base);
369 a84cbb2a 2004-04-19 devnull return 0;
371 a84cbb2a 2004-04-19 devnull return -1;
375 1cc215aa 2004-12-25 devnull unwindframe(Map *map, Regs *regs, ulong *next, Symbol *sym)
377 a84cbb2a 2004-04-19 devnull Fhdr *p;
379 a84cbb2a 2004-04-19 devnull for(p=fhdrlist; p; p=p->next)
380 1cc215aa 2004-12-25 devnull if(p->unwind && p->unwind(p, map, regs, next, sym) >= 0)
381 a84cbb2a 2004-04-19 devnull return 0;
382 1cc215aa 2004-12-25 devnull if(mach->unwind && mach->unwind(map, regs, next, sym) >= 0)
383 a84cbb2a 2004-04-19 devnull return 0;
384 a84cbb2a 2004-04-19 devnull return -1;
388 a84cbb2a 2004-04-19 devnull symoff(char *a, uint n, ulong addr, uint class)
391 a84cbb2a 2004-04-19 devnull Symbol s;
393 a84cbb2a 2004-04-19 devnull l.type = LADDR;
394 a84cbb2a 2004-04-19 devnull l.addr = addr;
395 a84cbb2a 2004-04-19 devnull if(findsym(l, class, &s) < 0 || addr-s.loc.addr >= 4096){
396 fbca1e1c 2005-02-11 devnull snprint(a, n, "%#lux", addr);
397 a84cbb2a 2004-04-19 devnull return -1;
399 a84cbb2a 2004-04-19 devnull if(addr != s.loc.addr)
400 fbca1e1c 2005-02-11 devnull snprint(a, n, "%s+%#lx", s.name, addr-s.loc.addr);
402 a84cbb2a 2004-04-19 devnull snprint(a, n, "%s", s.name);
403 a84cbb2a 2004-04-19 devnull return 0;
406 a84cbb2a 2004-04-19 devnull /* location, class, name */
407 a84cbb2a 2004-04-19 devnull static int
408 a84cbb2a 2004-04-19 devnull byloccmp(const void *va, const void *vb)
411 a84cbb2a 2004-04-19 devnull Symbol *a, *b;
413 a84cbb2a 2004-04-19 devnull a = (Symbol*)va;
414 a84cbb2a 2004-04-19 devnull b = (Symbol*)vb;
415 a84cbb2a 2004-04-19 devnull i = loccmp(&a->loc, &b->loc);
416 a84cbb2a 2004-04-19 devnull if(i != 0)
417 a84cbb2a 2004-04-19 devnull return i;
418 a84cbb2a 2004-04-19 devnull i = a->class - b->class;
419 a84cbb2a 2004-04-19 devnull if(i != 0)
420 a84cbb2a 2004-04-19 devnull return i;
421 a84cbb2a 2004-04-19 devnull return strcmp(a->name, b->name);
424 a84cbb2a 2004-04-19 devnull /* name, location, class */
425 a84cbb2a 2004-04-19 devnull static int
426 a84cbb2a 2004-04-19 devnull bynamecmp(const void *va, const void *vb)
429 a84cbb2a 2004-04-19 devnull Symbol *a, *b;
431 a84cbb2a 2004-04-19 devnull a = *(Symbol**)va;
432 a84cbb2a 2004-04-19 devnull b = *(Symbol**)vb;
433 a84cbb2a 2004-04-19 devnull i = strcmp(a->name, b->name);
434 a84cbb2a 2004-04-19 devnull if(i != 0)
435 a84cbb2a 2004-04-19 devnull return i;
436 a84cbb2a 2004-04-19 devnull i = loccmp(&a->loc, &b->loc);
437 a84cbb2a 2004-04-19 devnull if(i != 0)
438 a84cbb2a 2004-04-19 devnull return i;
439 a84cbb2a 2004-04-19 devnull return a->class - b->class;
443 39dbe6e7 2005-01-07 devnull symopen(Fhdr *hdr)
446 a84cbb2a 2004-04-19 devnull Symbol *r, *w, *es;
448 a8763864 2004-07-09 devnull if(hdr->syminit == 0){
449 a84cbb2a 2004-04-19 devnull werrstr("no debugging symbols");
450 a84cbb2a 2004-04-19 devnull return -1;
452 a84cbb2a 2004-04-19 devnull if(hdr->syminit(hdr) < 0)
453 a84cbb2a 2004-04-19 devnull return -1;
455 a84cbb2a 2004-04-19 devnull qsort(hdr->sym, hdr->nsym, sizeof(hdr->sym[0]), byloccmp);
456 a84cbb2a 2004-04-19 devnull es = hdr->sym+hdr->nsym;
457 a84cbb2a 2004-04-19 devnull for(r=w=hdr->sym; r<es; r++){
458 a84cbb2a 2004-04-19 devnull if(w > hdr->sym
459 a84cbb2a 2004-04-19 devnull && strcmp((w-1)->name, r->name) ==0
460 a84cbb2a 2004-04-19 devnull && loccmp(&(w-1)->loc, &r->loc) == 0){
461 a84cbb2a 2004-04-19 devnull /* skip it */
463 a84cbb2a 2004-04-19 devnull *w++ = *r;
465 a84cbb2a 2004-04-19 devnull hdr->nsym = w - hdr->sym;
467 a84cbb2a 2004-04-19 devnull hdr->byname = malloc(hdr->nsym*sizeof(hdr->byname[0]));
468 a84cbb2a 2004-04-19 devnull if(hdr->byname == nil){
469 a84cbb2a 2004-04-19 devnull fprint(2, "could not allocate table to sort by location\n");
471 a84cbb2a 2004-04-19 devnull for(i=0; i<hdr->nsym; i++)
472 a84cbb2a 2004-04-19 devnull hdr->byname[i] = &hdr->sym[i];
473 a84cbb2a 2004-04-19 devnull qsort(hdr->byname, hdr->nsym, sizeof(hdr->byname[0]), bynamecmp);
475 a84cbb2a 2004-04-19 devnull return 0;
479 39dbe6e7 2005-01-07 devnull symclose(Fhdr *hdr)
481 39dbe6e7 2005-01-07 devnull _delhdr(hdr);
482 39dbe6e7 2005-01-07 devnull if(hdr->symclose)
483 39dbe6e7 2005-01-07 devnull hdr->symclose(hdr);
484 39dbe6e7 2005-01-07 devnull free(hdr->byname);
485 39dbe6e7 2005-01-07 devnull hdr->byname = nil;
486 39dbe6e7 2005-01-07 devnull free(hdr->sym);
487 39dbe6e7 2005-01-07 devnull hdr->sym = nil;
488 39dbe6e7 2005-01-07 devnull hdr->nsym = 0;
492 39dbe6e7 2005-01-07 devnull _addsym(Fhdr *fp, Symbol *sym)
494 a84cbb2a 2004-04-19 devnull Symbol *s;
496 a84cbb2a 2004-04-19 devnull if(fp->nsym%128 == 0){
497 a84cbb2a 2004-04-19 devnull s = realloc(fp->sym, (fp->nsym+128)*sizeof(fp->sym[0]));
498 a84cbb2a 2004-04-19 devnull if(s == nil)
499 a84cbb2a 2004-04-19 devnull return nil;
500 a84cbb2a 2004-04-19 devnull fp->sym = s;
502 a84cbb2a 2004-04-19 devnull if(machdebug)
503 a84cbb2a 2004-04-19 devnull fprint(2, "sym %s %c %L\n", sym->name, sym->type, sym->loc);
504 a84cbb2a 2004-04-19 devnull sym->fhdr = fp;
505 a84cbb2a 2004-04-19 devnull s = &fp->sym[fp->nsym++];
506 a84cbb2a 2004-04-19 devnull *s = *sym;
507 a84cbb2a 2004-04-19 devnull return s;