]>
Commit | Line | Data |
---|---|---|
7e2a8417 | 1 | /* xcoff.c -- Get debug data from an XCOFF file for backtraces. |
99dee823 | 2 | Copyright (C) 2012-2021 Free Software Foundation, Inc. |
7e2a8417 | 3 | Adapted from elf.c. |
b3530b94 TR |
4 | |
5 | Redistribution and use in source and binary forms, with or without | |
6 | modification, are permitted provided that the following conditions are | |
7 | met: | |
8 | ||
9 | (1) Redistributions of source code must retain the above copyright | |
10 | notice, this list of conditions and the following disclaimer. | |
11 | ||
12 | (2) Redistributions in binary form must reproduce the above copyright | |
13 | notice, this list of conditions and the following disclaimer in | |
14 | the documentation and/or other materials provided with the | |
15 | distribution. | |
16 | ||
17 | (3) The name of the author may not be used to | |
18 | endorse or promote products derived from this software without | |
19 | specific prior written permission. | |
20 | ||
21 | THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR | |
22 | IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED | |
23 | WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE | |
24 | DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, | |
25 | INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES | |
26 | (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |
27 | SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
28 | HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | |
29 | STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING | |
30 | IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | |
31 | POSSIBILITY OF SUCH DAMAGE. */ | |
32 | ||
33 | #include "config.h" | |
34 | ||
7e2a8417 TR |
35 | #include <errno.h> |
36 | #include <stdlib.h> | |
37 | #include <string.h> | |
b3530b94 TR |
38 | #include <sys/types.h> |
39 | ||
7e2a8417 TR |
40 | #ifdef HAVE_LOADQUERY |
41 | #include <sys/ldr.h> | |
42 | #endif | |
43 | ||
b3530b94 TR |
44 | #include "backtrace.h" |
45 | #include "internal.h" | |
46 | ||
7e2a8417 TR |
47 | /* The configure script must tell us whether we are 32-bit or 64-bit |
48 | XCOFF. We could make this code test and support either possibility, | |
49 | but there is no point. This code only works for the currently | |
50 | running executable, which means that we know the XCOFF mode at | |
51 | configure time. */ | |
52 | ||
53 | #if BACKTRACE_XCOFF_SIZE != 32 && BACKTRACE_XCOFF_SIZE != 64 | |
54 | #error "Unknown BACKTRACE_XCOFF_SIZE" | |
55 | #endif | |
56 | ||
57 | /* XCOFF file header. */ | |
58 | ||
59 | #if BACKTRACE_XCOFF_SIZE == 32 | |
60 | ||
61 | typedef struct { | |
62 | uint16_t f_magic; | |
63 | uint16_t f_nscns; | |
64 | uint32_t f_timdat; | |
65 | uint32_t f_symptr; | |
66 | uint32_t f_nsyms; | |
67 | uint16_t f_opthdr; | |
68 | uint16_t f_flags; | |
69 | } b_xcoff_filhdr; | |
70 | ||
71 | #define XCOFF_MAGIC 0737 | |
72 | ||
73 | #else /* BACKTRACE_XCOFF_SIZE != 32 */ | |
74 | ||
75 | typedef struct { | |
76 | uint16_t f_magic; | |
77 | uint16_t f_nscns; | |
78 | uint32_t f_timdat; | |
79 | uint64_t f_symptr; | |
80 | uint16_t f_opthdr; | |
81 | uint16_t f_flags; | |
82 | uint32_t f_nsyms; | |
83 | } b_xcoff_filhdr; | |
84 | ||
85 | #define XCOFF_MAGIC 0767 | |
86 | ||
87 | #endif /* BACKTRACE_XCOFF_SIZE != 32 */ | |
88 | ||
89 | #define F_SHROBJ 0x2000 /* File is a shared object. */ | |
90 | ||
91 | /* XCOFF section header. */ | |
92 | ||
93 | #if BACKTRACE_XCOFF_SIZE == 32 | |
94 | ||
95 | typedef struct { | |
96 | char s_name[8]; | |
97 | uint32_t s_paddr; | |
98 | uint32_t s_vaddr; | |
99 | uint32_t s_size; | |
100 | uint32_t s_scnptr; | |
101 | uint32_t s_relptr; | |
102 | uint32_t s_lnnoptr; | |
103 | uint16_t s_nreloc; | |
104 | uint16_t s_nlnno; | |
105 | uint32_t s_flags; | |
106 | } b_xcoff_scnhdr; | |
107 | ||
108 | #define _OVERFLOW_MARKER 65535 | |
109 | ||
110 | #else /* BACKTRACE_XCOFF_SIZE != 32 */ | |
111 | ||
112 | typedef struct { | |
113 | char name[8]; | |
114 | uint64_t s_paddr; | |
115 | uint64_t s_vaddr; | |
116 | uint64_t s_size; | |
117 | uint64_t s_scnptr; | |
118 | uint64_t s_relptr; | |
119 | uint64_t s_lnnoptr; | |
120 | uint32_t s_nreloc; | |
121 | uint32_t s_nlnno; | |
122 | uint32_t s_flags; | |
123 | } b_xcoff_scnhdr; | |
124 | ||
125 | #endif /* BACKTRACE_XCOFF_SIZE != 32 */ | |
126 | ||
e90c74f5 | 127 | #define STYP_DWARF 0x10 /* DWARF debugging section. */ |
7e2a8417 TR |
128 | #define STYP_TEXT 0x20 /* Executable text (code) section. */ |
129 | #define STYP_OVRFLO 0x8000 /* Line-number field overflow section. */ | |
130 | ||
e90c74f5 TR |
131 | #define SSUBTYP_DWINFO 0x10000 /* DWARF info section. */ |
132 | #define SSUBTYP_DWLINE 0x20000 /* DWARF line-number section. */ | |
133 | #define SSUBTYP_DWARNGE 0x50000 /* DWARF aranges section. */ | |
134 | #define SSUBTYP_DWABREV 0x60000 /* DWARF abbreviation section. */ | |
135 | #define SSUBTYP_DWSTR 0x70000 /* DWARF strings section. */ | |
136 | ||
7e2a8417 TR |
137 | /* XCOFF symbol. */ |
138 | ||
139 | #define SYMNMLEN 8 | |
140 | ||
141 | #if BACKTRACE_XCOFF_SIZE == 32 | |
142 | ||
143 | typedef struct { | |
144 | union { | |
145 | char _name[SYMNMLEN]; | |
146 | struct { | |
147 | uint32_t _zeroes; | |
148 | uint32_t _offset; | |
149 | } _s; | |
150 | } _u; | |
151 | #define n_name _u._name | |
152 | #define n_zeroes _u._s._zeroes | |
153 | #define n_offset_ _u._s._offset | |
154 | ||
155 | uint32_t n_value; | |
156 | int16_t n_scnum; | |
157 | uint16_t n_type; | |
158 | uint8_t n_sclass; | |
159 | uint8_t n_numaux; | |
160 | } __attribute__ ((packed)) b_xcoff_syment; | |
161 | ||
162 | #else /* BACKTRACE_XCOFF_SIZE != 32 */ | |
163 | ||
164 | typedef struct { | |
165 | uint64_t n_value; | |
166 | uint32_t n_offset_; | |
167 | int16_t n_scnum; | |
168 | uint16_t n_type; | |
169 | uint8_t n_sclass; | |
170 | uint8_t n_numaux; | |
171 | } __attribute__ ((packed)) b_xcoff_syment; | |
172 | ||
173 | #endif /* BACKTRACE_XCOFF_SIZE != 32 */ | |
174 | ||
175 | #define SYMESZ 18 | |
176 | ||
177 | #define C_EXT 2 /* External symbol. */ | |
178 | #define C_FCN 101 /* Beginning or end of function. */ | |
179 | #define C_FILE 103 /* Source file name. */ | |
180 | #define C_HIDEXT 107 /* Unnamed external symbol. */ | |
181 | #define C_BINCL 108 /* Beginning of include file. */ | |
182 | #define C_EINCL 109 /* End of include file. */ | |
183 | #define C_WEAKEXT 111 /* Weak external symbol. */ | |
184 | ||
185 | #define ISFCN(x) ((x) & 0x0020) | |
186 | ||
187 | /* XCOFF AUX entry. */ | |
188 | ||
189 | #define AUXESZ 18 | |
190 | #define FILNMLEN 14 | |
191 | ||
192 | typedef union { | |
193 | #if BACKTRACE_XCOFF_SIZE == 32 | |
194 | struct { | |
195 | uint16_t pad; | |
196 | uint16_t x_lnnohi; | |
197 | uint16_t x_lnno; | |
198 | } x_block; | |
199 | #else | |
200 | struct { | |
201 | uint32_t x_lnno; | |
202 | } x_block; | |
203 | #endif | |
204 | union { | |
205 | char x_fname[FILNMLEN]; | |
206 | struct { | |
207 | uint32_t x_zeroes; | |
208 | uint32_t x_offset; | |
209 | char pad[FILNMLEN-8]; | |
210 | uint8_t x_ftype; | |
211 | } _x; | |
212 | } x_file; | |
213 | #if BACKTRACE_XCOFF_SIZE == 32 | |
214 | struct { | |
215 | uint32_t x_exptr; | |
216 | uint32_t x_fsize; | |
217 | uint32_t x_lnnoptr; | |
218 | uint32_t x_endndx; | |
219 | } x_fcn; | |
220 | #else | |
221 | struct { | |
222 | uint64_t x_lnnoptr; | |
223 | uint32_t x_fsize; | |
224 | uint32_t x_endndx; | |
225 | } x_fcn; | |
226 | #endif | |
227 | struct { | |
228 | uint8_t pad[AUXESZ-1]; | |
229 | uint8_t x_auxtype; | |
230 | } x_auxtype; | |
231 | } __attribute__ ((packed)) b_xcoff_auxent; | |
232 | ||
233 | /* XCOFF line number entry. */ | |
234 | ||
235 | #if BACKTRACE_XCOFF_SIZE == 32 | |
236 | ||
237 | typedef struct { | |
238 | union { | |
239 | uint32_t l_symndx; | |
240 | uint32_t l_paddr; | |
241 | } l_addr; | |
242 | uint16_t l_lnno; | |
243 | } b_xcoff_lineno; | |
244 | ||
245 | #define LINESZ 6 | |
246 | ||
247 | #else /* BACKTRACE_XCOFF_SIZE != 32 */ | |
248 | ||
249 | typedef struct { | |
250 | union { | |
251 | uint32_t l_symndx; | |
252 | uint64_t l_paddr; | |
253 | } l_addr; | |
254 | uint32_t l_lnno; | |
255 | } b_xcoff_lineno; | |
256 | ||
257 | #define LINESZ 12 | |
258 | ||
259 | #endif /* BACKTRACE_XCOFF_SIZE != 32 */ | |
260 | ||
261 | #if BACKTRACE_XCOFF_SIZE == 32 | |
262 | #define XCOFF_AIX_TEXTBASE 0x10000000u | |
263 | #else | |
264 | #define XCOFF_AIX_TEXTBASE 0x100000000ul | |
265 | #endif | |
266 | ||
267 | /* AIX big archive fixed-length header. */ | |
268 | ||
269 | #define AIAMAGBIG "<bigaf>\n" | |
270 | ||
271 | typedef struct { | |
272 | char fl_magic[8]; /* Archive magic string. */ | |
273 | char fl_memoff[20]; /* Offset to member table. */ | |
274 | char fl_gstoff[20]; /* Offset to global symbol table. */ | |
275 | char fl_gst64off[20]; /* Offset to global symbol table for 64-bit objects. */ | |
276 | char fl_fstmoff[20]; /* Offset to first archive member. */ | |
277 | char fl_freeoff[20]; /* Offset to first member on free list. */ | |
278 | } b_ar_fl_hdr; | |
279 | ||
280 | /* AIX big archive file member header. */ | |
281 | ||
282 | typedef struct { | |
283 | char ar_size[20]; /* File member size - decimal. */ | |
284 | char ar_nxtmem[20]; /* Next member offset - decimal. */ | |
285 | char ar_prvmem[20]; /* Previous member offset - decimal. */ | |
286 | char ar_date[12]; /* File member date - decimal. */ | |
287 | char ar_uid[12]; /* File member userid - decimal. */ | |
288 | char ar_gid[12]; /* File member group id - decimal. */ | |
289 | char ar_mode[12]; /* File member mode - octal. */ | |
290 | char ar_namlen[4]; /* File member name length - decimal. */ | |
291 | char ar_name[2]; /* Start of member name. */ | |
292 | } b_ar_hdr; | |
293 | ||
294 | ||
295 | /* Information we keep for an XCOFF symbol. */ | |
296 | ||
297 | struct xcoff_symbol | |
298 | { | |
299 | /* The name of the symbol. */ | |
300 | const char *name; | |
301 | /* The address of the symbol. */ | |
302 | uintptr_t address; | |
303 | /* The size of the symbol. */ | |
304 | size_t size; | |
305 | }; | |
306 | ||
307 | /* Information to pass to xcoff_syminfo. */ | |
308 | ||
309 | struct xcoff_syminfo_data | |
310 | { | |
311 | /* Symbols for the next module. */ | |
312 | struct xcoff_syminfo_data *next; | |
313 | /* The XCOFF symbols, sorted by address. */ | |
314 | struct xcoff_symbol *symbols; | |
315 | /* The number of symbols. */ | |
316 | size_t count; | |
317 | }; | |
318 | ||
319 | /* Information about an include file. */ | |
320 | ||
321 | struct xcoff_incl | |
322 | { | |
323 | /* File name. */ | |
324 | const char *filename; | |
325 | /* Offset to first line number from the include file. */ | |
326 | uintptr_t begin; | |
327 | /* Offset to last line number from the include file. */ | |
328 | uintptr_t end; | |
329 | }; | |
330 | ||
331 | /* A growable vector of include files information. */ | |
332 | ||
333 | struct xcoff_incl_vector | |
334 | { | |
335 | /* Memory. This is an array of struct xcoff_incl. */ | |
336 | struct backtrace_vector vec; | |
337 | /* Number of include files. */ | |
338 | size_t count; | |
339 | }; | |
340 | ||
ca9a1314 | 341 | /* A growable vector of functions information. */ |
7e2a8417 | 342 | |
ca9a1314 | 343 | struct xcoff_func |
7e2a8417 TR |
344 | { |
345 | /* PC. */ | |
346 | uintptr_t pc; | |
ca9a1314 TR |
347 | /* The size of the function. */ |
348 | size_t size; | |
7e2a8417 | 349 | /* Function name. */ |
ca9a1314 TR |
350 | const char *name; |
351 | /* File name. */ | |
352 | const char *filename; | |
353 | /* Pointer to first lnno entry. */ | |
354 | uintptr_t lnnoptr; | |
355 | /* Base address of containing section. */ | |
356 | uintptr_t sect_base; | |
357 | /* Starting source line number. */ | |
358 | int lnno; | |
7e2a8417 TR |
359 | }; |
360 | ||
ca9a1314 TR |
361 | /* A growable vector of function information. This is used while |
362 | reading the function symbols. */ | |
7e2a8417 | 363 | |
ca9a1314 | 364 | struct xcoff_func_vector |
7e2a8417 | 365 | { |
ca9a1314 | 366 | /* Memory. This is an array of struct xcoff_func. */ |
7e2a8417 TR |
367 | struct backtrace_vector vec; |
368 | /* Number of valid mappings. */ | |
369 | size_t count; | |
370 | }; | |
371 | ||
372 | /* The information we need to map a PC to a file and line. */ | |
373 | ||
374 | struct xcoff_fileline_data | |
375 | { | |
376 | /* The data for the next file we know about. */ | |
377 | struct xcoff_fileline_data *next; | |
ca9a1314 TR |
378 | /* Functions information. */ |
379 | struct xcoff_func_vector func_vec; | |
380 | /* Include files information. */ | |
381 | struct xcoff_incl_vector incl_vec; | |
382 | /* Line numbers information. */ | |
383 | const unsigned char *linenos; | |
384 | size_t linenos_size; | |
385 | uint64_t lnnoptr0; | |
386 | /* Loader address. */ | |
387 | uintptr_t base_address; | |
7e2a8417 TR |
388 | }; |
389 | ||
e90c74f5 TR |
390 | /* Information we gather for the DWARF sections we care about. */ |
391 | ||
392 | struct dwsect_info | |
393 | { | |
394 | /* Section file offset. */ | |
395 | off_t offset; | |
396 | /* Section size. */ | |
397 | size_t size; | |
398 | /* Section contents, after read from file. */ | |
399 | const unsigned char *data; | |
400 | }; | |
7e2a8417 TR |
401 | |
402 | /* A dummy callback function used when we can't find any debug info. */ | |
b3530b94 TR |
403 | |
404 | static int | |
7e2a8417 TR |
405 | xcoff_nodebug (struct backtrace_state *state ATTRIBUTE_UNUSED, |
406 | uintptr_t pc ATTRIBUTE_UNUSED, | |
407 | backtrace_full_callback callback ATTRIBUTE_UNUSED, | |
408 | backtrace_error_callback error_callback, void *data) | |
409 | { | |
410 | error_callback (data, "no debug info in XCOFF executable", -1); | |
411 | return 0; | |
412 | } | |
b3530b94 | 413 | |
7e2a8417 TR |
414 | /* A dummy callback function used when we can't find a symbol |
415 | table. */ | |
416 | ||
417 | static void | |
418 | xcoff_nosyms (struct backtrace_state *state ATTRIBUTE_UNUSED, | |
419 | uintptr_t addr ATTRIBUTE_UNUSED, | |
420 | backtrace_syminfo_callback callback ATTRIBUTE_UNUSED, | |
421 | backtrace_error_callback error_callback, void *data) | |
b3530b94 | 422 | { |
7e2a8417 TR |
423 | error_callback (data, "no symbol table in XCOFF executable", -1); |
424 | } | |
425 | ||
426 | /* Compare struct xcoff_symbol for qsort. */ | |
b3530b94 | 427 | |
7e2a8417 TR |
428 | static int |
429 | xcoff_symbol_compare (const void *v1, const void *v2) | |
430 | { | |
431 | const struct xcoff_symbol *e1 = (const struct xcoff_symbol *) v1; | |
432 | const struct xcoff_symbol *e2 = (const struct xcoff_symbol *) v2; | |
433 | ||
434 | if (e1->address < e2->address) | |
435 | return -1; | |
436 | else if (e1->address > e2->address) | |
437 | return 1; | |
438 | else | |
439 | return 0; | |
440 | } | |
441 | ||
442 | /* Compare an ADDR against an xcoff_symbol for bsearch. */ | |
443 | ||
444 | static int | |
445 | xcoff_symbol_search (const void *vkey, const void *ventry) | |
446 | { | |
447 | const uintptr_t *key = (const uintptr_t *) vkey; | |
448 | const struct xcoff_symbol *entry = (const struct xcoff_symbol *) ventry; | |
449 | uintptr_t addr; | |
450 | ||
451 | addr = *key; | |
452 | if (addr < entry->address) | |
453 | return -1; | |
454 | else if ((entry->size == 0 && addr > entry->address) | |
455 | || (entry->size > 0 && addr >= entry->address + entry->size)) | |
456 | return 1; | |
457 | else | |
458 | return 0; | |
459 | } | |
460 | ||
461 | /* Add XDATA to the list in STATE. */ | |
462 | ||
463 | static void | |
464 | xcoff_add_syminfo_data (struct backtrace_state *state, | |
465 | struct xcoff_syminfo_data *xdata) | |
466 | { | |
467 | if (!state->threaded) | |
468 | { | |
469 | struct xcoff_syminfo_data **pp; | |
470 | ||
471 | for (pp = (struct xcoff_syminfo_data **) (void *) &state->syminfo_data; | |
472 | *pp != NULL; | |
473 | pp = &(*pp)->next) | |
474 | ; | |
475 | *pp = xdata; | |
476 | } | |
477 | else | |
478 | { | |
479 | while (1) | |
480 | { | |
481 | struct xcoff_syminfo_data **pp; | |
482 | ||
483 | pp = (struct xcoff_syminfo_data **) (void *) &state->syminfo_data; | |
484 | ||
485 | while (1) | |
486 | { | |
487 | struct xcoff_syminfo_data *p; | |
488 | ||
489 | p = backtrace_atomic_load_pointer (pp); | |
490 | ||
491 | if (p == NULL) | |
492 | break; | |
493 | ||
494 | pp = &p->next; | |
495 | } | |
496 | ||
497 | if (__sync_bool_compare_and_swap (pp, NULL, xdata)) | |
498 | break; | |
499 | } | |
500 | } | |
b3530b94 TR |
501 | } |
502 | ||
7e2a8417 TR |
503 | /* Return the symbol name and value for an ADDR. */ |
504 | ||
b3530b94 TR |
505 | static void |
506 | xcoff_syminfo (struct backtrace_state *state ATTRIBUTE_UNUSED, uintptr_t addr, | |
7e2a8417 TR |
507 | backtrace_syminfo_callback callback, |
508 | backtrace_error_callback error_callback ATTRIBUTE_UNUSED, | |
509 | void *data) | |
510 | { | |
511 | struct xcoff_syminfo_data *edata; | |
512 | struct xcoff_symbol *sym = NULL; | |
ca9a1314 | 513 | const char *name; |
7e2a8417 TR |
514 | |
515 | if (!state->threaded) | |
516 | { | |
517 | for (edata = (struct xcoff_syminfo_data *) state->syminfo_data; | |
518 | edata != NULL; | |
519 | edata = edata->next) | |
520 | { | |
521 | sym = ((struct xcoff_symbol *) | |
522 | bsearch (&addr, edata->symbols, edata->count, | |
523 | sizeof (struct xcoff_symbol), xcoff_symbol_search)); | |
524 | if (sym != NULL) | |
525 | break; | |
526 | } | |
527 | } | |
528 | else | |
529 | { | |
530 | struct xcoff_syminfo_data **pp; | |
531 | ||
532 | pp = (struct xcoff_syminfo_data **) (void *) &state->syminfo_data; | |
533 | while (1) | |
534 | { | |
535 | edata = backtrace_atomic_load_pointer (pp); | |
536 | if (edata == NULL) | |
537 | break; | |
538 | ||
539 | sym = ((struct xcoff_symbol *) | |
540 | bsearch (&addr, edata->symbols, edata->count, | |
541 | sizeof (struct xcoff_symbol), xcoff_symbol_search)); | |
542 | if (sym != NULL) | |
543 | break; | |
544 | ||
545 | pp = &edata->next; | |
546 | } | |
547 | } | |
548 | ||
549 | if (sym == NULL) | |
550 | callback (data, addr, NULL, 0, 0); | |
551 | else | |
ca9a1314 TR |
552 | { |
553 | name = sym->name; | |
554 | /* AIX prepends a '.' to function entry points, remove it. */ | |
555 | if (name && *name == '.') | |
556 | ++name; | |
557 | callback (data, addr, name, sym->address, sym->size); | |
558 | } | |
7e2a8417 TR |
559 | } |
560 | ||
561 | /* Return the name of an XCOFF symbol. */ | |
562 | ||
563 | static const char * | |
564 | xcoff_symname (const b_xcoff_syment *asym, | |
565 | const unsigned char *strtab, size_t strtab_size) | |
566 | { | |
567 | #if BACKTRACE_XCOFF_SIZE == 32 | |
568 | if (asym->n_zeroes != 0) | |
569 | { | |
570 | /* Make a copy as we will release the symtab view. */ | |
571 | char name[SYMNMLEN+1]; | |
572 | strncpy (name, asym->n_name, SYMNMLEN); | |
573 | name[SYMNMLEN] = '\0'; | |
574 | return strdup (name); | |
575 | } | |
576 | #endif | |
577 | if (asym->n_sclass & 0x80) | |
578 | return NULL; /* .debug */ | |
579 | if (asym->n_offset_ >= strtab_size) | |
580 | return NULL; | |
581 | return (const char *) strtab + asym->n_offset_; | |
582 | } | |
583 | ||
584 | /* Initialize the symbol table info for xcoff_syminfo. */ | |
585 | ||
586 | static int | |
587 | xcoff_initialize_syminfo (struct backtrace_state *state, | |
588 | uintptr_t base_address, | |
589 | const b_xcoff_scnhdr *sects, | |
590 | const b_xcoff_syment *syms, size_t nsyms, | |
591 | const unsigned char *strtab, size_t strtab_size, | |
592 | backtrace_error_callback error_callback, void *data, | |
593 | struct xcoff_syminfo_data *sdata) | |
594 | { | |
595 | size_t xcoff_symbol_count; | |
596 | size_t xcoff_symbol_size; | |
597 | struct xcoff_symbol *xcoff_symbols; | |
598 | size_t i; | |
599 | unsigned int j; | |
600 | ||
601 | /* We only care about function symbols. Count them. */ | |
602 | xcoff_symbol_count = 0; | |
603 | for (i = 0; i < nsyms; ++i) | |
604 | { | |
605 | const b_xcoff_syment *asym = &syms[i]; | |
606 | if ((asym->n_sclass == C_EXT || asym->n_sclass == C_HIDEXT | |
607 | || asym->n_sclass == C_WEAKEXT) | |
608 | && ISFCN (asym->n_type) && asym->n_numaux > 0 && asym->n_scnum > 0) | |
609 | ++xcoff_symbol_count; | |
610 | ||
611 | i += asym->n_numaux; | |
612 | } | |
613 | ||
614 | xcoff_symbol_size = xcoff_symbol_count * sizeof (struct xcoff_symbol); | |
615 | xcoff_symbols = ((struct xcoff_symbol *) | |
616 | backtrace_alloc (state, xcoff_symbol_size, error_callback, | |
617 | data)); | |
618 | if (xcoff_symbols == NULL) | |
619 | return 0; | |
620 | ||
621 | j = 0; | |
622 | for (i = 0; i < nsyms; ++i) | |
623 | { | |
624 | const b_xcoff_syment *asym = &syms[i]; | |
625 | if ((asym->n_sclass == C_EXT || asym->n_sclass == C_HIDEXT | |
626 | || asym->n_sclass == C_WEAKEXT) | |
627 | && ISFCN (asym->n_type) && asym->n_numaux > 0 && asym->n_scnum > 0) | |
628 | { | |
629 | const b_xcoff_auxent *aux = (const b_xcoff_auxent *) (asym + 1); | |
630 | xcoff_symbols[j].name = xcoff_symname (asym, strtab, strtab_size); | |
631 | xcoff_symbols[j].address = base_address + asym->n_value | |
632 | - sects[asym->n_scnum - 1].s_paddr; | |
633 | /* x_fsize will be 0 if there is no debug information. */ | |
634 | xcoff_symbols[j].size = aux->x_fcn.x_fsize; | |
635 | ++j; | |
636 | } | |
637 | ||
638 | i += asym->n_numaux; | |
639 | } | |
640 | ||
641 | backtrace_qsort (xcoff_symbols, xcoff_symbol_count, | |
642 | sizeof (struct xcoff_symbol), xcoff_symbol_compare); | |
643 | ||
644 | sdata->next = NULL; | |
645 | sdata->symbols = xcoff_symbols; | |
646 | sdata->count = xcoff_symbol_count; | |
647 | ||
648 | return 1; | |
649 | } | |
650 | ||
ca9a1314 | 651 | /* Compare struct xcoff_func for qsort. */ |
7e2a8417 TR |
652 | |
653 | static int | |
ca9a1314 | 654 | xcoff_func_compare (const void *v1, const void *v2) |
7e2a8417 | 655 | { |
ca9a1314 TR |
656 | const struct xcoff_func *fn1 = (const struct xcoff_func *) v1; |
657 | const struct xcoff_func *fn2 = (const struct xcoff_func *) v2; | |
7e2a8417 | 658 | |
ca9a1314 | 659 | if (fn1->pc < fn2->pc) |
7e2a8417 | 660 | return -1; |
ca9a1314 | 661 | else if (fn1->pc > fn2->pc) |
7e2a8417 TR |
662 | return 1; |
663 | else | |
664 | return 0; | |
665 | } | |
666 | ||
ca9a1314 | 667 | /* Compare a PC against an xcoff_func for bsearch. */ |
7e2a8417 TR |
668 | |
669 | static int | |
ca9a1314 | 670 | xcoff_func_search (const void *vkey, const void *ventry) |
7e2a8417 TR |
671 | { |
672 | const uintptr_t *key = (const uintptr_t *) vkey; | |
ca9a1314 | 673 | const struct xcoff_func *entry = (const struct xcoff_func *) ventry; |
7e2a8417 TR |
674 | uintptr_t pc; |
675 | ||
676 | pc = *key; | |
677 | if (pc < entry->pc) | |
678 | return -1; | |
ca9a1314 TR |
679 | else if ((entry->size == 0 && pc > entry->pc) |
680 | || (entry->size > 0 && pc >= entry->pc + entry->size)) | |
681 | return 1; | |
682 | else | |
683 | return 0; | |
684 | } | |
685 | ||
686 | /* Compare struct xcoff_incl for qsort. */ | |
687 | ||
688 | static int | |
689 | xcoff_incl_compare (const void *v1, const void *v2) | |
690 | { | |
691 | const struct xcoff_incl *in1 = (const struct xcoff_incl *) v1; | |
692 | const struct xcoff_incl *in2 = (const struct xcoff_incl *) v2; | |
693 | ||
694 | if (in1->begin < in2->begin) | |
695 | return -1; | |
696 | else if (in1->begin > in2->begin) | |
7e2a8417 TR |
697 | return 1; |
698 | else | |
699 | return 0; | |
700 | } | |
701 | ||
ca9a1314 TR |
702 | /* Find a lnnoptr in an include file. */ |
703 | ||
704 | static int | |
705 | xcoff_incl_search (const void *vkey, const void *ventry) | |
706 | { | |
707 | const uintptr_t *key = (const uintptr_t *) vkey; | |
708 | const struct xcoff_incl *entry = (const struct xcoff_incl *) ventry; | |
709 | uintptr_t lnno; | |
710 | ||
711 | lnno = *key; | |
712 | if (lnno < entry->begin) | |
713 | return -1; | |
714 | else if (lnno > entry->end) | |
715 | return 1; | |
716 | else | |
717 | return 0; | |
718 | } | |
719 | ||
720 | /* Look for a PC in the function vector for one module. On success, | |
7e2a8417 TR |
721 | call CALLBACK and return whatever it returns. On error, call |
722 | ERROR_CALLBACK and return 0. Sets *FOUND to 1 if the PC is found, | |
723 | 0 if not. */ | |
724 | ||
725 | static int | |
726 | xcoff_lookup_pc (struct backtrace_state *state ATTRIBUTE_UNUSED, | |
727 | struct xcoff_fileline_data *fdata, uintptr_t pc, | |
728 | backtrace_full_callback callback, | |
729 | backtrace_error_callback error_callback ATTRIBUTE_UNUSED, | |
730 | void *data, int *found) | |
731 | { | |
ca9a1314 TR |
732 | const struct xcoff_incl *incl, *bincl; |
733 | const struct xcoff_func *fn; | |
734 | const b_xcoff_lineno *lineno; | |
735 | const unsigned char *lineptr; | |
7e2a8417 | 736 | const char *function; |
ca9a1314 TR |
737 | const char *filename; |
738 | uintptr_t lnnoptr, match; | |
739 | uint32_t lnno = 0; | |
7e2a8417 TR |
740 | |
741 | *found = 1; | |
742 | ||
ca9a1314 TR |
743 | if ((pc & 3) != 0) |
744 | ++pc; | |
745 | ||
746 | /* Find the function first. */ | |
747 | fn = ((struct xcoff_func *) | |
748 | bsearch (&pc, fdata->func_vec.vec.base, fdata->func_vec.count, | |
749 | sizeof (struct xcoff_func), xcoff_func_search)); | |
750 | if (fn == NULL) | |
7e2a8417 TR |
751 | { |
752 | *found = 0; | |
753 | return 0; | |
754 | } | |
755 | ||
ca9a1314 TR |
756 | filename = fn->filename; |
757 | ||
758 | /* Find the line number next. */ | |
759 | ||
760 | /* Skip first entry that points to symtab. */ | |
761 | lnnoptr = fn->lnnoptr + LINESZ; | |
762 | match = lnnoptr; | |
763 | ||
764 | lineptr = fdata->linenos + (lnnoptr - fdata->lnnoptr0); | |
765 | while (lineptr + LINESZ <= fdata->linenos + fdata->linenos_size) | |
766 | { | |
767 | lineno = (const b_xcoff_lineno *) lineptr; | |
768 | if (lineno->l_lnno == 0) | |
769 | break; | |
770 | if (pc <= fdata->base_address + lineno->l_addr.l_paddr - fn->sect_base) | |
771 | break; | |
772 | match = lnnoptr; | |
773 | lnno = lineno->l_lnno; | |
774 | ||
775 | lnnoptr += LINESZ; | |
776 | lineptr += LINESZ; | |
777 | } | |
778 | ||
779 | /* If part of a function other than the beginning comes from an | |
780 | include file, the line numbers are absolute, rather than | |
781 | relative to the beginning of the function. */ | |
782 | incl = ((struct xcoff_incl *) | |
783 | bsearch (&match, fdata->incl_vec.vec.base, | |
784 | fdata->incl_vec.count, sizeof (struct xcoff_incl), | |
785 | xcoff_incl_search)); | |
786 | if (incl != NULL) | |
787 | { | |
788 | bincl = ((struct xcoff_incl *) | |
789 | bsearch (&fn->lnnoptr, fdata->incl_vec.vec.base, | |
790 | fdata->incl_vec.count, sizeof (struct xcoff_incl), | |
791 | xcoff_incl_search)); | |
792 | if (bincl != NULL && strcmp (incl->filename, bincl->filename) == 0) | |
793 | { | |
794 | lnno += fn->lnno - 1; | |
795 | } | |
796 | filename = incl->filename; | |
797 | } | |
798 | else | |
799 | { | |
800 | lnno += fn->lnno - 1; | |
801 | } | |
802 | ||
803 | function = fn->name; | |
7e2a8417 | 804 | /* AIX prepends a '.' to function entry points, remove it. */ |
ca9a1314 | 805 | if (function != NULL && *function == '.') |
7e2a8417 | 806 | ++function; |
ca9a1314 | 807 | return callback (data, pc, filename, lnno, function); |
7e2a8417 TR |
808 | } |
809 | ||
810 | /* Return the file/line information for a PC using the XCOFF lineno | |
811 | mapping we built earlier. */ | |
812 | ||
813 | static int | |
814 | xcoff_fileline (struct backtrace_state *state, uintptr_t pc, | |
815 | backtrace_full_callback callback, | |
816 | backtrace_error_callback error_callback, void *data) | |
817 | ||
818 | { | |
819 | struct xcoff_fileline_data *fdata; | |
820 | int found; | |
821 | int ret; | |
822 | ||
823 | if (!state->threaded) | |
824 | { | |
825 | for (fdata = (struct xcoff_fileline_data *) state->fileline_data; | |
826 | fdata != NULL; | |
827 | fdata = fdata->next) | |
828 | { | |
829 | ret = xcoff_lookup_pc (state, fdata, pc, callback, error_callback, | |
830 | data, &found); | |
831 | if (ret != 0 || found) | |
832 | return ret; | |
833 | } | |
834 | } | |
835 | else | |
836 | { | |
837 | struct xcoff_fileline_data **pp; | |
838 | ||
839 | pp = (struct xcoff_fileline_data **) (void *) &state->fileline_data; | |
840 | while (1) | |
841 | { | |
842 | fdata = backtrace_atomic_load_pointer (pp); | |
843 | if (fdata == NULL) | |
844 | break; | |
845 | ||
846 | ret = xcoff_lookup_pc (state, fdata, pc, callback, error_callback, | |
847 | data, &found); | |
848 | if (ret != 0 || found) | |
849 | return ret; | |
850 | ||
851 | pp = &fdata->next; | |
852 | } | |
853 | } | |
854 | ||
855 | /* FIXME: See if any libraries have been dlopen'ed. */ | |
856 | ||
857 | return callback (data, pc, NULL, 0, NULL); | |
858 | } | |
859 | ||
ca9a1314 | 860 | /* Initialize the function vector info for xcoff_fileline. */ |
7e2a8417 TR |
861 | |
862 | static int | |
863 | xcoff_initialize_fileline (struct backtrace_state *state, | |
864 | uintptr_t base_address, | |
865 | const b_xcoff_scnhdr *sects, | |
866 | const b_xcoff_syment *syms, size_t nsyms, | |
867 | const unsigned char *strtab, size_t strtab_size, | |
868 | const unsigned char *linenos, size_t linenos_size, | |
869 | uint64_t lnnoptr0, | |
870 | backtrace_error_callback error_callback, void *data) | |
871 | { | |
872 | struct xcoff_fileline_data *fdata; | |
ca9a1314 | 873 | struct xcoff_func *fn; |
7e2a8417 TR |
874 | const b_xcoff_syment *fsym; |
875 | const b_xcoff_auxent *aux; | |
876 | const char *filename; | |
877 | const char *name; | |
878 | struct xcoff_incl *incl; | |
879 | uintptr_t begin, end; | |
ca9a1314 TR |
880 | uintptr_t lnno, lnnoptr; |
881 | uint32_t fsize; | |
7e2a8417 TR |
882 | size_t i; |
883 | ||
884 | fdata = ((struct xcoff_fileline_data *) | |
885 | backtrace_alloc (state, sizeof (struct xcoff_fileline_data), | |
886 | error_callback, data)); | |
887 | if (fdata == NULL) | |
888 | return 0; | |
7e2a8417 | 889 | memset (fdata, 0, sizeof *fdata); |
ca9a1314 TR |
890 | fdata->base_address = base_address; |
891 | fdata->linenos = linenos; | |
892 | fdata->linenos_size = linenos_size; | |
893 | fdata->lnnoptr0 = lnnoptr0; | |
7e2a8417 TR |
894 | |
895 | begin = 0; | |
ca9a1314 TR |
896 | filename = NULL; |
897 | fsym = NULL; | |
898 | lnnoptr = 0; | |
899 | fsize = 0; | |
7e2a8417 TR |
900 | for (i = 0; i < nsyms; ++i) |
901 | { | |
902 | const b_xcoff_syment *asym = &syms[i]; | |
903 | ||
904 | switch (asym->n_sclass) | |
905 | { | |
906 | case C_BINCL: | |
907 | begin = asym->n_value; | |
908 | break; | |
909 | ||
910 | case C_EINCL: | |
911 | if (begin == 0) | |
912 | break; | |
913 | end = asym->n_value; | |
914 | incl = ((struct xcoff_incl *) | |
915 | backtrace_vector_grow (state, sizeof (struct xcoff_incl), | |
ca9a1314 TR |
916 | error_callback, data, |
917 | &fdata->incl_vec.vec)); | |
7e2a8417 TR |
918 | if (incl != NULL) |
919 | { | |
920 | incl->filename = xcoff_symname (asym, strtab, strtab_size); | |
921 | incl->begin = begin; | |
922 | incl->end = end; | |
ca9a1314 | 923 | ++fdata->incl_vec.count; |
7e2a8417 TR |
924 | } |
925 | begin = 0; | |
926 | break; | |
7e2a8417 | 927 | |
7e2a8417 TR |
928 | case C_FILE: |
929 | filename = xcoff_symname (asym, strtab, strtab_size); | |
930 | if (filename == NULL) | |
931 | break; | |
932 | ||
933 | /* If the file auxiliary entry is not used, the symbol name is | |
934 | the name of the source file. If the file auxiliary entry is | |
935 | used, then the symbol name should be .file, and the first | |
936 | file auxiliary entry (by convention) contains the source | |
937 | file name. */ | |
938 | ||
ca9a1314 | 939 | if (asym->n_numaux > 0 && strcmp (filename, ".file") == 0) |
7e2a8417 TR |
940 | { |
941 | aux = (const b_xcoff_auxent *) (asym + 1); | |
942 | if (aux->x_file._x.x_zeroes != 0) | |
943 | { | |
944 | /* Make a copy as we will release the symtab view. */ | |
945 | char name[FILNMLEN+1]; | |
946 | strncpy (name, aux->x_file.x_fname, FILNMLEN); | |
947 | name[FILNMLEN] = '\0'; | |
948 | filename = strdup (name); | |
949 | } | |
950 | else if (aux->x_file._x.x_offset < strtab_size) | |
951 | filename = (const char *) strtab + aux->x_file._x.x_offset; | |
952 | else | |
953 | filename = NULL; | |
954 | } | |
955 | break; | |
956 | ||
957 | case C_EXT: | |
958 | case C_HIDEXT: | |
959 | case C_WEAKEXT: | |
960 | fsym = NULL; | |
ca9a1314 TR |
961 | lnnoptr = 0; |
962 | fsize = 0; | |
963 | if (!ISFCN (asym->n_type) || asym->n_numaux == 0 | |
964 | || asym->n_scnum <= 0) | |
7e2a8417 TR |
965 | break; |
966 | if (filename == NULL) | |
967 | break; | |
ca9a1314 TR |
968 | aux = (const b_xcoff_auxent *) (asym + 1); |
969 | lnnoptr = aux->x_fcn.x_lnnoptr; | |
970 | if (lnnoptr < lnnoptr0 | |
971 | || lnnoptr + LINESZ > lnnoptr0 + linenos_size) | |
972 | break; | |
973 | /* x_fsize will be 0 if there is no debug information. */ | |
974 | fsize = aux->x_fcn.x_fsize; | |
7e2a8417 TR |
975 | fsym = asym; |
976 | break; | |
977 | ||
978 | case C_FCN: | |
979 | if (asym->n_numaux == 0) | |
980 | break; | |
981 | if (fsym == NULL) | |
982 | break; | |
983 | name = xcoff_symname (asym, strtab, strtab_size); | |
ca9a1314 TR |
984 | if (name == NULL || strcmp (name, ".bf") != 0) |
985 | { | |
986 | fsym = NULL; | |
987 | break; | |
988 | } | |
7e2a8417 TR |
989 | aux = (const b_xcoff_auxent *) (asym + 1); |
990 | #if BACKTRACE_XCOFF_SIZE == 32 | |
991 | lnno = (uint32_t) aux->x_block.x_lnnohi << 16 | |
992 | | aux->x_block.x_lnno; | |
993 | #else | |
994 | lnno = aux->x_block.x_lnno; | |
995 | #endif | |
ca9a1314 TR |
996 | fn = ((struct xcoff_func *) |
997 | backtrace_vector_grow (state, sizeof (struct xcoff_func), | |
998 | error_callback, data, | |
999 | &fdata->func_vec.vec)); | |
1000 | if (fn == NULL) | |
1001 | break; | |
1002 | fn->name = xcoff_symname (fsym, strtab, strtab_size); | |
1003 | fn->filename = filename; | |
1004 | fn->sect_base = sects[fsym->n_scnum - 1].s_paddr; | |
1005 | fn->pc = base_address + fsym->n_value - fn->sect_base; | |
1006 | fn->size = fsize; | |
1007 | fn->lnno = lnno; | |
1008 | fn->lnnoptr = lnnoptr; | |
1009 | ++fdata->func_vec.count; | |
7e2a8417 TR |
1010 | break; |
1011 | } | |
1012 | ||
1013 | i += asym->n_numaux; | |
1014 | } | |
1015 | ||
ca9a1314 TR |
1016 | if (!backtrace_vector_release (state, &fdata->func_vec.vec, error_callback, |
1017 | data)) | |
7e2a8417 | 1018 | goto fail; |
ca9a1314 TR |
1019 | backtrace_qsort (fdata->func_vec.vec.base, fdata->func_vec.count, |
1020 | sizeof (struct xcoff_func), xcoff_func_compare); | |
7e2a8417 | 1021 | |
ca9a1314 TR |
1022 | if (!backtrace_vector_release (state, &fdata->incl_vec.vec, error_callback, |
1023 | data)) | |
7e2a8417 | 1024 | goto fail; |
ca9a1314 TR |
1025 | backtrace_qsort (fdata->incl_vec.vec.base, fdata->incl_vec.count, |
1026 | sizeof (struct xcoff_incl), xcoff_incl_compare); | |
7e2a8417 TR |
1027 | |
1028 | if (!state->threaded) | |
1029 | { | |
1030 | struct xcoff_fileline_data **pp; | |
1031 | ||
1032 | for (pp = (struct xcoff_fileline_data **) (void *) &state->fileline_data; | |
1033 | *pp != NULL; | |
1034 | pp = &(*pp)->next) | |
1035 | ; | |
1036 | *pp = fdata; | |
1037 | } | |
1038 | else | |
1039 | { | |
1040 | while (1) | |
1041 | { | |
1042 | struct xcoff_fileline_data **pp; | |
1043 | ||
1044 | pp = (struct xcoff_fileline_data **) (void *) &state->fileline_data; | |
1045 | ||
1046 | while (1) | |
1047 | { | |
1048 | struct xcoff_fileline_data *p; | |
1049 | ||
1050 | p = backtrace_atomic_load_pointer (pp); | |
1051 | ||
1052 | if (p == NULL) | |
1053 | break; | |
1054 | ||
1055 | pp = &p->next; | |
1056 | } | |
1057 | ||
1058 | if (__sync_bool_compare_and_swap (pp, NULL, fdata)) | |
1059 | break; | |
1060 | } | |
1061 | } | |
1062 | ||
1063 | return 1; | |
1064 | ||
1065 | fail: | |
1066 | return 0; | |
1067 | } | |
1068 | ||
1069 | /* Add the backtrace data for one XCOFF file. Returns 1 on success, | |
1070 | 0 on failure (in both cases descriptor is closed). */ | |
1071 | ||
1072 | static int | |
1073 | xcoff_add (struct backtrace_state *state, int descriptor, off_t offset, | |
1074 | uintptr_t base_address, backtrace_error_callback error_callback, | |
1075 | void *data, fileline *fileline_fn, int *found_sym, int exe) | |
1076 | { | |
1077 | struct backtrace_view fhdr_view; | |
1078 | struct backtrace_view sects_view; | |
1079 | struct backtrace_view linenos_view; | |
1080 | struct backtrace_view syms_view; | |
1081 | struct backtrace_view str_view; | |
e90c74f5 | 1082 | struct backtrace_view dwarf_view; |
7e2a8417 TR |
1083 | b_xcoff_filhdr fhdr; |
1084 | const b_xcoff_scnhdr *sects; | |
1085 | const b_xcoff_scnhdr *stext; | |
1086 | uint64_t lnnoptr; | |
1087 | uint32_t nlnno; | |
1088 | off_t str_off; | |
e90c74f5 TR |
1089 | off_t min_offset; |
1090 | off_t max_offset; | |
66ab5839 | 1091 | struct dwsect_info dwsect[DEBUG_MAX]; |
7e2a8417 TR |
1092 | size_t sects_size; |
1093 | size_t syms_size; | |
1094 | int32_t str_size; | |
1095 | int sects_view_valid; | |
1096 | int linenos_view_valid; | |
1097 | int syms_view_valid; | |
1098 | int str_view_valid; | |
e90c74f5 | 1099 | int dwarf_view_valid; |
7e2a8417 TR |
1100 | int magic_ok; |
1101 | int i; | |
66ab5839 | 1102 | struct dwarf_sections dwarf_sections; |
7e2a8417 TR |
1103 | |
1104 | *found_sym = 0; | |
1105 | ||
1106 | sects_view_valid = 0; | |
1107 | linenos_view_valid = 0; | |
1108 | syms_view_valid = 0; | |
1109 | str_view_valid = 0; | |
e90c74f5 TR |
1110 | dwarf_view_valid = 0; |
1111 | ||
1112 | str_size = 0; | |
7e2a8417 TR |
1113 | |
1114 | /* Map the XCOFF file header. */ | |
1115 | if (!backtrace_get_view (state, descriptor, offset, sizeof (b_xcoff_filhdr), | |
1116 | error_callback, data, &fhdr_view)) | |
1117 | goto fail; | |
1118 | ||
1119 | memcpy (&fhdr, fhdr_view.data, sizeof fhdr); | |
1120 | magic_ok = (fhdr.f_magic == XCOFF_MAGIC); | |
1121 | ||
1122 | backtrace_release_view (state, &fhdr_view, error_callback, data); | |
1123 | ||
1124 | if (!magic_ok) | |
1125 | { | |
1126 | if (exe) | |
e90c74f5 | 1127 | error_callback (data, "executable file is not XCOFF", 0); |
7e2a8417 TR |
1128 | goto fail; |
1129 | } | |
1130 | ||
1131 | /* Verify object is of expected type. */ | |
1132 | if ((exe && (fhdr.f_flags & F_SHROBJ)) | |
1133 | || (!exe && !(fhdr.f_flags & F_SHROBJ))) | |
1134 | goto fail; | |
1135 | ||
1136 | /* Read the section headers. */ | |
1137 | ||
1138 | sects_size = fhdr.f_nscns * sizeof (b_xcoff_scnhdr); | |
1139 | ||
1140 | if (!backtrace_get_view (state, descriptor, | |
1141 | offset + sizeof (fhdr) + fhdr.f_opthdr, | |
1142 | sects_size, error_callback, data, §s_view)) | |
1143 | goto fail; | |
1144 | sects_view_valid = 1; | |
1145 | sects = (const b_xcoff_scnhdr *) sects_view.data; | |
1146 | ||
1147 | /* FIXME: assumes only one .text section. */ | |
1148 | for (i = 0; i < fhdr.f_nscns; ++i) | |
e90c74f5 TR |
1149 | if ((sects[i].s_flags & 0xffff) == STYP_TEXT) |
1150 | break; | |
7e2a8417 TR |
1151 | if (i == fhdr.f_nscns) |
1152 | goto fail; | |
1153 | ||
1154 | stext = §s[i]; | |
1155 | ||
1156 | /* AIX ldinfo_textorg includes the XCOFF headers. */ | |
1157 | base_address = (exe ? XCOFF_AIX_TEXTBASE : base_address) + stext->s_scnptr; | |
1158 | ||
1159 | lnnoptr = stext->s_lnnoptr; | |
1160 | nlnno = stext->s_nlnno; | |
1161 | ||
1162 | #if BACKTRACE_XCOFF_SIZE == 32 | |
1163 | if (nlnno == _OVERFLOW_MARKER) | |
1164 | { | |
1165 | int sntext = i + 1; | |
1166 | /* Find the matching .ovrflo section. */ | |
1167 | for (i = 0; i < fhdr.f_nscns; ++i) | |
1168 | { | |
e90c74f5 TR |
1169 | if (((sects[i].s_flags & 0xffff) == STYP_OVRFLO) |
1170 | && sects[i].s_nlnno == sntext) | |
1171 | { | |
1172 | nlnno = sects[i].s_vaddr; | |
1173 | break; | |
1174 | } | |
7e2a8417 TR |
1175 | } |
1176 | } | |
1177 | #endif | |
1178 | ||
1179 | /* Read the symbol table and the string table. */ | |
1180 | ||
1181 | if (fhdr.f_symptr != 0) | |
1182 | { | |
1183 | struct xcoff_syminfo_data *sdata; | |
1184 | ||
1185 | /* Symbol table is followed by the string table. The string table | |
1186 | starts with its length (on 4 bytes). | |
1187 | Map the symbol table and the length of the string table. */ | |
1188 | syms_size = fhdr.f_nsyms * sizeof (b_xcoff_syment); | |
1189 | ||
1190 | if (!backtrace_get_view (state, descriptor, offset + fhdr.f_symptr, | |
1191 | syms_size + 4, error_callback, data, | |
1192 | &syms_view)) | |
1193 | goto fail; | |
1194 | syms_view_valid = 1; | |
1195 | ||
1196 | memcpy (&str_size, syms_view.data + syms_size, 4); | |
1197 | ||
1198 | str_off = fhdr.f_symptr + syms_size; | |
1199 | ||
1200 | if (str_size > 4) | |
1201 | { | |
1202 | /* Map string table (including the length word). */ | |
1203 | ||
1204 | if (!backtrace_get_view (state, descriptor, offset + str_off, | |
1205 | str_size, error_callback, data, &str_view)) | |
1206 | goto fail; | |
1207 | str_view_valid = 1; | |
1208 | } | |
1209 | ||
1210 | sdata = ((struct xcoff_syminfo_data *) | |
1211 | backtrace_alloc (state, sizeof *sdata, error_callback, data)); | |
1212 | if (sdata == NULL) | |
1213 | goto fail; | |
1214 | ||
1215 | if (!xcoff_initialize_syminfo (state, base_address, sects, | |
1216 | syms_view.data, fhdr.f_nsyms, | |
1217 | str_view.data, str_size, | |
1218 | error_callback, data, sdata)) | |
1219 | { | |
1220 | backtrace_free (state, sdata, sizeof *sdata, error_callback, data); | |
1221 | goto fail; | |
1222 | } | |
1223 | ||
1224 | *found_sym = 1; | |
1225 | ||
1226 | xcoff_add_syminfo_data (state, sdata); | |
1227 | } | |
1228 | ||
e90c74f5 TR |
1229 | /* Read all the DWARF sections in a single view, since they are |
1230 | probably adjacent in the file. We never release this view. */ | |
1231 | ||
1232 | min_offset = 0; | |
1233 | max_offset = 0; | |
1234 | memset (dwsect, 0, sizeof dwsect); | |
1235 | for (i = 0; i < fhdr.f_nscns; ++i) | |
1236 | { | |
1237 | off_t end; | |
1238 | int idx; | |
1239 | ||
1240 | if ((sects[i].s_flags & 0xffff) != STYP_DWARF | |
1241 | || sects[i].s_size == 0) | |
1242 | continue; | |
1243 | /* Map DWARF section to array index. */ | |
1244 | switch (sects[i].s_flags & 0xffff0000) | |
1245 | { | |
1246 | case SSUBTYP_DWINFO: | |
66ab5839 | 1247 | idx = DEBUG_INFO; |
e90c74f5 TR |
1248 | break; |
1249 | case SSUBTYP_DWLINE: | |
66ab5839 | 1250 | idx = DEBUG_LINE; |
e90c74f5 TR |
1251 | break; |
1252 | case SSUBTYP_DWABREV: | |
66ab5839 | 1253 | idx = DEBUG_ABBREV; |
e90c74f5 TR |
1254 | break; |
1255 | case SSUBTYP_DWARNGE: | |
66ab5839 | 1256 | idx = DEBUG_RANGES; |
e90c74f5 TR |
1257 | break; |
1258 | case SSUBTYP_DWSTR: | |
66ab5839 | 1259 | idx = DEBUG_STR; |
e90c74f5 TR |
1260 | break; |
1261 | default: | |
1262 | continue; | |
1263 | } | |
1264 | if (min_offset == 0 || (off_t) sects[i].s_scnptr < min_offset) | |
1265 | min_offset = sects[i].s_scnptr; | |
1266 | end = sects[i].s_scnptr + sects[i].s_size; | |
1267 | if (end > max_offset) | |
1268 | max_offset = end; | |
1269 | dwsect[idx].offset = sects[i].s_scnptr; | |
1270 | dwsect[idx].size = sects[i].s_size; | |
1271 | } | |
1272 | if (min_offset != 0 && max_offset != 0) | |
1273 | { | |
1274 | if (!backtrace_get_view (state, descriptor, offset + min_offset, | |
1275 | max_offset - min_offset, | |
1276 | error_callback, data, &dwarf_view)) | |
1277 | goto fail; | |
1278 | dwarf_view_valid = 1; | |
1279 | ||
66ab5839 | 1280 | for (i = 0; i < (int) DEBUG_MAX; ++i) |
e90c74f5 TR |
1281 | { |
1282 | if (dwsect[i].offset == 0) | |
1283 | dwsect[i].data = NULL; | |
1284 | else | |
1285 | dwsect[i].data = ((const unsigned char *) dwarf_view.data | |
1286 | + (dwsect[i].offset - min_offset)); | |
1287 | } | |
1288 | ||
c926fd82 ILT |
1289 | memset (&dwarf_sections, 0, sizeof dwarf_sections); |
1290 | ||
66ab5839 ILT |
1291 | dwarf_sections.data[DEBUG_INFO] = dwsect[DEBUG_INFO].data; |
1292 | dwarf_sections.size[DEBUG_INFO] = dwsect[DEBUG_INFO].size; | |
e90c74f5 | 1293 | #if BACKTRACE_XCOFF_SIZE == 32 |
66ab5839 ILT |
1294 | /* XXX workaround for broken lineoff */ |
1295 | dwarf_sections.data[DEBUG_LINE] = dwsect[DEBUG_LINE].data - 4; | |
e90c74f5 | 1296 | #else |
66ab5839 ILT |
1297 | /* XXX workaround for broken lineoff */ |
1298 | dwarf_sections.data[DEBUG_LINE] = dwsect[DEBUG_LINE].data - 12; | |
e90c74f5 | 1299 | #endif |
66ab5839 ILT |
1300 | dwarf_sections.size[DEBUG_LINE] = dwsect[DEBUG_LINE].size; |
1301 | dwarf_sections.data[DEBUG_ABBREV] = dwsect[DEBUG_ABBREV].data; | |
1302 | dwarf_sections.size[DEBUG_ABBREV] = dwsect[DEBUG_ABBREV].size; | |
1303 | dwarf_sections.data[DEBUG_RANGES] = dwsect[DEBUG_RANGES].data; | |
1304 | dwarf_sections.size[DEBUG_RANGES] = dwsect[DEBUG_RANGES].size; | |
1305 | dwarf_sections.data[DEBUG_STR] = dwsect[DEBUG_STR].data; | |
1306 | dwarf_sections.size[DEBUG_STR] = dwsect[DEBUG_STR].size; | |
1307 | ||
1308 | if (!backtrace_dwarf_add (state, 0, &dwarf_sections, | |
e90c74f5 | 1309 | 1, /* big endian */ |
66ab5839 | 1310 | NULL, /* altlink */ |
e6f00c83 | 1311 | error_callback, data, fileline_fn, |
66ab5839 | 1312 | NULL /* returned fileline_entry */)) |
e90c74f5 TR |
1313 | goto fail; |
1314 | } | |
1315 | ||
1316 | /* Read the XCOFF line number entries if DWARF sections not found. */ | |
7e2a8417 | 1317 | |
e90c74f5 | 1318 | if (!dwarf_view_valid && fhdr.f_symptr != 0 && lnnoptr != 0) |
7e2a8417 TR |
1319 | { |
1320 | size_t linenos_size = (size_t) nlnno * LINESZ; | |
1321 | ||
ca9a1314 | 1322 | /* We never release this view. */ |
7e2a8417 TR |
1323 | if (!backtrace_get_view (state, descriptor, offset + lnnoptr, |
1324 | linenos_size, | |
1325 | error_callback, data, &linenos_view)) | |
1326 | goto fail; | |
1327 | linenos_view_valid = 1; | |
1328 | ||
1329 | if (xcoff_initialize_fileline (state, base_address, sects, | |
1330 | syms_view.data, fhdr.f_nsyms, | |
1331 | str_view.data, str_size, | |
1332 | linenos_view.data, linenos_size, | |
1333 | lnnoptr, error_callback, data)) | |
1334 | *fileline_fn = xcoff_fileline; | |
7e2a8417 TR |
1335 | } |
1336 | ||
1337 | backtrace_release_view (state, §s_view, error_callback, data); | |
1338 | sects_view_valid = 0; | |
1339 | if (syms_view_valid) | |
1340 | backtrace_release_view (state, &syms_view, error_callback, data); | |
1341 | syms_view_valid = 0; | |
1342 | ||
1343 | /* We've read all we need from the executable. */ | |
1344 | if (!backtrace_close (descriptor, error_callback, data)) | |
1345 | goto fail; | |
1346 | descriptor = -1; | |
1347 | ||
1348 | return 1; | |
1349 | ||
1350 | fail: | |
1351 | if (sects_view_valid) | |
1352 | backtrace_release_view (state, §s_view, error_callback, data); | |
1353 | if (str_view_valid) | |
1354 | backtrace_release_view (state, &str_view, error_callback, data); | |
1355 | if (syms_view_valid) | |
1356 | backtrace_release_view (state, &syms_view, error_callback, data); | |
1357 | if (linenos_view_valid) | |
1358 | backtrace_release_view (state, &linenos_view, error_callback, data); | |
e90c74f5 TR |
1359 | if (dwarf_view_valid) |
1360 | backtrace_release_view (state, &dwarf_view, error_callback, data); | |
7e2a8417 TR |
1361 | if (descriptor != -1 && offset == 0) |
1362 | backtrace_close (descriptor, error_callback, data); | |
1363 | return 0; | |
1364 | } | |
1365 | ||
1366 | #ifdef HAVE_LOADQUERY | |
1367 | ||
1368 | /* Read an integer value in human-readable format from an AIX | |
1369 | big archive fixed-length or member header. */ | |
1370 | ||
1371 | static int | |
1372 | xcoff_parse_decimal (const char *buf, size_t size, off_t *off) | |
1373 | { | |
1374 | char str[32]; | |
1375 | char *end; | |
1376 | ||
1377 | if (size >= sizeof str) | |
1378 | return 0; | |
1379 | memcpy (str, buf, size); | |
1380 | str[size] = '\0'; | |
1381 | *off = strtol (str, &end, 10); | |
1382 | if (*end != '\0' && *end != ' ') | |
1383 | return 0; | |
1384 | ||
1385 | return 1; | |
1386 | } | |
1387 | ||
1388 | /* Add the backtrace data for a member of an AIX big archive. | |
1389 | Returns 1 on success, 0 on failure. */ | |
1390 | ||
1391 | static int | |
1392 | xcoff_armem_add (struct backtrace_state *state, int descriptor, | |
1393 | uintptr_t base_address, const char *member, | |
1394 | backtrace_error_callback error_callback, void *data, | |
1395 | fileline *fileline_fn, int *found_sym) | |
1396 | { | |
1397 | struct backtrace_view view; | |
1398 | b_ar_fl_hdr fl_hdr; | |
1399 | const b_ar_hdr *ar_hdr; | |
1400 | off_t off; | |
1401 | off_t len; | |
1402 | int memlen; | |
1403 | ||
1404 | *found_sym = 0; | |
1405 | ||
1406 | /* Map archive fixed-length header. */ | |
1407 | ||
1408 | if (!backtrace_get_view (state, descriptor, 0, sizeof (b_ar_fl_hdr), | |
1409 | error_callback, data, &view)) | |
afce7deb | 1410 | goto fail; |
7e2a8417 TR |
1411 | |
1412 | memcpy (&fl_hdr, view.data, sizeof (b_ar_fl_hdr)); | |
1413 | ||
1414 | backtrace_release_view (state, &view, error_callback, data); | |
1415 | ||
1416 | if (memcmp (fl_hdr.fl_magic, AIAMAGBIG, 8) != 0) | |
afce7deb | 1417 | goto fail; |
7e2a8417 TR |
1418 | |
1419 | memlen = strlen (member); | |
1420 | ||
1421 | /* Read offset of first archive member. */ | |
1422 | if (!xcoff_parse_decimal (fl_hdr.fl_fstmoff, sizeof fl_hdr.fl_fstmoff, &off)) | |
afce7deb | 1423 | goto fail; |
7e2a8417 TR |
1424 | while (off != 0) |
1425 | { | |
1426 | /* Map archive member header and member name. */ | |
1427 | ||
1428 | if (!backtrace_get_view (state, descriptor, off, | |
1429 | sizeof (b_ar_hdr) + memlen, | |
1430 | error_callback, data, &view)) | |
afce7deb | 1431 | break; |
7e2a8417 TR |
1432 | |
1433 | ar_hdr = (const b_ar_hdr *) view.data; | |
1434 | ||
1435 | /* Read archive member name length. */ | |
1436 | if (!xcoff_parse_decimal (ar_hdr->ar_namlen, sizeof ar_hdr->ar_namlen, | |
1437 | &len)) | |
1438 | { | |
1439 | backtrace_release_view (state, &view, error_callback, data); | |
1440 | break; | |
1441 | } | |
1442 | if (len == memlen && !memcmp (ar_hdr->ar_name, member, memlen)) | |
1443 | { | |
1444 | off = (off + sizeof (b_ar_hdr) + memlen + 1) & ~1; | |
1445 | ||
1446 | /* The archive can contain several members with the same name | |
1447 | (e.g. 32-bit and 64-bit), so continue if not ok. */ | |
1448 | ||
1449 | if (xcoff_add (state, descriptor, off, base_address, error_callback, | |
1450 | data, fileline_fn, found_sym, 0)) | |
1451 | { | |
1452 | backtrace_release_view (state, &view, error_callback, data); | |
1453 | return 1; | |
1454 | } | |
1455 | } | |
1456 | ||
1457 | /* Read offset of next archive member. */ | |
1458 | if (!xcoff_parse_decimal (ar_hdr->ar_nxtmem, sizeof ar_hdr->ar_nxtmem, | |
1459 | &off)) | |
1460 | { | |
1461 | backtrace_release_view (state, &view, error_callback, data); | |
1462 | break; | |
1463 | } | |
1464 | backtrace_release_view (state, &view, error_callback, data); | |
1465 | } | |
1466 | ||
afce7deb | 1467 | fail: |
7e2a8417 TR |
1468 | /* No matching member found. */ |
1469 | backtrace_close (descriptor, error_callback, data); | |
1470 | return 0; | |
1471 | } | |
1472 | ||
1473 | /* Add the backtrace data for dynamically loaded libraries. */ | |
1474 | ||
1475 | static void | |
1476 | xcoff_add_shared_libs (struct backtrace_state *state, | |
1477 | backtrace_error_callback error_callback, | |
1478 | void *data, fileline *fileline_fn, int *found_sym) | |
1479 | { | |
1480 | const struct ld_info *ldinfo; | |
1481 | void *buf; | |
1482 | unsigned int buflen; | |
1483 | const char *member; | |
1484 | int descriptor; | |
1485 | int does_not_exist; | |
1486 | int lib_found_sym; | |
1487 | int ret; | |
1488 | ||
1489 | /* Retrieve the list of loaded libraries. */ | |
1490 | ||
1491 | buf = NULL; | |
1492 | buflen = 512; | |
1493 | do | |
1494 | { | |
1495 | buf = realloc (buf, buflen); | |
1496 | if (buf == NULL) | |
1497 | { | |
1498 | ret = -1; | |
1499 | break; | |
1500 | } | |
1501 | ret = loadquery (L_GETINFO, buf, buflen); | |
1502 | if (ret == 0) | |
1503 | break; | |
1504 | buflen *= 2; | |
1505 | } | |
1506 | while (ret == -1 && errno == ENOMEM); | |
1507 | if (ret != 0) | |
1508 | { | |
1509 | free (buf); | |
1510 | return; | |
1511 | } | |
1512 | ||
1513 | ldinfo = (const struct ld_info *) buf; | |
1514 | while ((const char *) ldinfo < (const char *) buf + buflen) | |
1515 | { | |
1516 | if (*ldinfo->ldinfo_filename != '/') | |
1517 | goto next; | |
1518 | ||
1519 | descriptor = backtrace_open (ldinfo->ldinfo_filename, error_callback, | |
1520 | data, &does_not_exist); | |
1521 | if (descriptor < 0) | |
1522 | goto next; | |
1523 | ||
1524 | /* Check if it is an archive (member name not empty). */ | |
1525 | ||
1526 | member = ldinfo->ldinfo_filename + strlen (ldinfo->ldinfo_filename) + 1; | |
1527 | if (*member) | |
1528 | { | |
1529 | xcoff_armem_add (state, descriptor, | |
1530 | (uintptr_t) ldinfo->ldinfo_textorg, member, | |
1531 | error_callback, data, fileline_fn, &lib_found_sym); | |
1532 | } | |
1533 | else | |
1534 | { | |
1535 | xcoff_add (state, descriptor, 0, (uintptr_t) ldinfo->ldinfo_textorg, | |
1536 | error_callback, data, fileline_fn, &lib_found_sym, 0); | |
1537 | } | |
1538 | if (lib_found_sym) | |
1539 | *found_sym = 1; | |
1540 | ||
1541 | next: | |
1542 | if (ldinfo->ldinfo_next == 0) | |
1543 | break; | |
1544 | ldinfo = (const struct ld_info *) ((const char *) ldinfo | |
1545 | + ldinfo->ldinfo_next); | |
1546 | } | |
1547 | ||
1548 | free (buf); | |
1549 | } | |
1550 | #endif /* HAVE_LOADQUERY */ | |
1551 | ||
1552 | /* Initialize the backtrace data we need from an XCOFF executable. | |
1553 | Returns 1 on success, 0 on failure. */ | |
b3530b94 TR |
1554 | |
1555 | int | |
9283471b ILT |
1556 | backtrace_initialize (struct backtrace_state *state, |
1557 | const char *filename ATTRIBUTE_UNUSED, int descriptor, | |
7e2a8417 TR |
1558 | backtrace_error_callback error_callback, |
1559 | void *data, fileline *fileline_fn) | |
1560 | { | |
1561 | int ret; | |
1562 | int found_sym; | |
1563 | fileline xcoff_fileline_fn = xcoff_nodebug; | |
1564 | ||
1565 | ret = xcoff_add (state, descriptor, 0, 0, error_callback, data, | |
1566 | &xcoff_fileline_fn, &found_sym, 1); | |
1567 | if (!ret) | |
1568 | return 0; | |
1569 | ||
1570 | #ifdef HAVE_LOADQUERY | |
1571 | xcoff_add_shared_libs (state, error_callback, data, &xcoff_fileline_fn, | |
1572 | &found_sym); | |
1573 | #endif | |
1574 | ||
1575 | if (!state->threaded) | |
1576 | { | |
1577 | if (found_sym) | |
1578 | state->syminfo_fn = xcoff_syminfo; | |
1579 | else if (state->syminfo_fn == NULL) | |
1580 | state->syminfo_fn = xcoff_nosyms; | |
1581 | } | |
1582 | else | |
1583 | { | |
1584 | if (found_sym) | |
1585 | backtrace_atomic_store_pointer (&state->syminfo_fn, xcoff_syminfo); | |
1586 | else | |
5fe5f75f ILT |
1587 | (void) __sync_bool_compare_and_swap (&state->syminfo_fn, NULL, |
1588 | xcoff_nosyms); | |
7e2a8417 TR |
1589 | } |
1590 | ||
1591 | if (!state->threaded) | |
1592 | { | |
1593 | if (state->fileline_fn == NULL || state->fileline_fn == xcoff_nodebug) | |
1594 | *fileline_fn = xcoff_fileline_fn; | |
1595 | } | |
1596 | else | |
1597 | { | |
1598 | fileline current_fn; | |
1599 | ||
1600 | current_fn = backtrace_atomic_load_pointer (&state->fileline_fn); | |
1601 | if (current_fn == NULL || current_fn == xcoff_nodebug) | |
1602 | *fileline_fn = xcoff_fileline_fn; | |
1603 | } | |
1604 | ||
b3530b94 TR |
1605 | return 1; |
1606 | } |