1 /* rddbg.c -- Read debugging information into a generic form.
2 Copyright (C) 1995-2023 Free Software Foundation, Inc.
3 Written by Ian Lance Taylor <ian@cygnus.com>.
5 This file is part of GNU Binutils.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
23 /* This file reads debugging information into a generic form. This
24 file knows how to dig the debugging information out of an object
29 #include "libiberty.h"
34 static bool read_section_stabs_debugging_info
35 (bfd
*, asymbol
**, long, void *, bool *);
36 static bool read_symbol_stabs_debugging_info
37 (bfd
*, asymbol
**, long, void *, bool *);
38 static void save_stab (int, int, bfd_vma
, const char *);
39 static void stab_context (void);
40 static void free_saved_stabs (void);
42 /* Read debugging information from a BFD. Returns a generic debugging
46 read_debugging_info (bfd
*abfd
, asymbol
**syms
, long symcount
,
52 dhandle
= debug_init (abfd
);
56 if (! read_section_stabs_debugging_info (abfd
, syms
, symcount
, dhandle
,
60 if (bfd_get_flavour (abfd
) == bfd_target_aout_flavour
)
62 if (! read_symbol_stabs_debugging_info (abfd
, syms
, symcount
, dhandle
,
67 /* Try reading the COFF symbols if we didn't find any stabs in COFF
70 && bfd_get_flavour (abfd
) == bfd_target_coff_flavour
73 if (! parse_coff (abfd
, syms
, symcount
, dhandle
))
81 non_fatal (_("%s: no recognized debugging information"),
82 bfd_get_filename (abfd
));
90 /* Read stabs in sections debugging information from a BFD. */
93 read_section_stabs_debugging_info (bfd
*abfd
, asymbol
**syms
, long symcount
,
94 void *dhandle
, bool *pfound
)
99 const char *strsecname
;
103 { ".stab", ".stabstr" },
104 { "LC_SYMTAB.stabs", "LC_SYMTAB.stabstr" },
105 { "$GDB_SYMBOLS$", "$GDB_STRINGS$" }
114 for (i
= 0; i
< sizeof names
/ sizeof names
[0]; i
++)
116 asection
*sec
, *strsec
;
118 sec
= bfd_get_section_by_name (abfd
, names
[i
].secname
);
119 strsec
= bfd_get_section_by_name (abfd
, names
[i
].strsecname
);
121 && (bfd_section_flags (sec
) & SEC_HAS_CONTENTS
) != 0
122 && bfd_section_size (sec
) >= 12
124 && (bfd_section_flags (strsec
) & SEC_HAS_CONTENTS
) != 0)
126 bfd_size_type stabsize
, strsize
;
127 bfd_byte
*stabs
, *strings
;
129 bfd_size_type stroff
, next_stroff
;
131 if (!bfd_malloc_and_get_section (abfd
, sec
, &stabs
))
133 fprintf (stderr
, "%s: %s: %s\n",
134 bfd_get_filename (abfd
), names
[i
].secname
,
135 bfd_errmsg (bfd_get_error ()));
139 if (!bfd_malloc_and_get_section (abfd
, strsec
, &strings
))
141 fprintf (stderr
, "%s: %s: %s\n",
142 bfd_get_filename (abfd
), names
[i
].strsecname
,
143 bfd_errmsg (bfd_get_error ()));
147 /* Zero terminate the strings table, just in case. */
148 strsize
= bfd_section_size (strsec
);
150 strings
[strsize
- 1] = 0;
153 shandle
= start_stab (dhandle
, abfd
, true, syms
, symcount
);
166 stabsize
= bfd_section_size (sec
);
167 /* PR 17512: file: 078-60391-0.001:0.1. */
168 for (stab
= stabs
; stab
<= (stabs
+ stabsize
) - 12; stab
+= 12)
172 int other ATTRIBUTE_UNUSED
;
176 /* This code presumes 32 bit values. */
178 strx
= bfd_get_32 (abfd
, stab
);
179 type
= bfd_get_8 (abfd
, stab
+ 4);
180 other
= bfd_get_8 (abfd
, stab
+ 5);
181 desc
= bfd_get_16 (abfd
, stab
+ 6);
182 value
= bfd_get_32 (abfd
, stab
+ 8);
186 /* Special type 0 stabs indicate the offset to the
187 next string table. */
188 stroff
= next_stroff
;
189 next_stroff
+= value
;
196 if (stroff
+ strx
>= strsize
)
198 fprintf (stderr
, _("%s: %s: stab entry %ld is corrupt, strx = 0x%x, type = %d\n"),
199 bfd_get_filename (abfd
), names
[i
].secname
,
200 (long) (stab
- stabs
) / 12, strx
, type
);
204 s
= (char *) strings
+ stroff
+ strx
;
207 /* PR 17512: file: 002-87578-0.001:0.1.
208 It is possible to craft a file where, without the 'strlen (s) > 0',
209 an attempt to read the byte before 'strings' would occur. */
210 while ((len
= strlen (s
)) > 0
211 && s
[len
- 1] == '\\'
212 && stab
+ 16 <= stabs
+ stabsize
)
219 strx
= stroff
+ bfd_get_32 (abfd
, stab
);
222 fprintf (stderr
, _("%s: %s: stab entry %ld is corrupt\n"),
223 bfd_get_filename (abfd
), names
[i
].secname
,
224 (long) (stab
- stabs
) / 12);
228 s
= concat (s
, (char *) strings
+ strx
,
229 (const char *) NULL
);
231 /* We have to restore the backslash, because, if
232 the linker is hashing stabs strings, we may
233 see the same string more than once. */
240 save_stab (type
, desc
, value
, s
);
242 if (!parse_stab (dhandle
, shandle
, type
, desc
, value
, s
))
266 if (! finish_stab (dhandle
, shandle
, ret
))
273 /* Read stabs in the symbol table. */
276 read_symbol_stabs_debugging_info (bfd
*abfd
, asymbol
**syms
, long symcount
,
277 void *dhandle
, bool *pfound
)
280 asymbol
**ps
, **symend
;
283 symend
= syms
+ symcount
;
284 for (ps
= syms
; ps
< symend
; ps
++)
288 bfd_get_symbol_info (abfd
, *ps
, &i
);
297 shandle
= start_stab (dhandle
, abfd
, false, syms
, symcount
);
305 if (s
== NULL
|| strlen (s
) < 1)
309 while (strlen (s
) > 0
310 && s
[strlen (s
) - 1] == '\\'
317 sc
[strlen (sc
) - 1] = '\0';
318 n
= concat (sc
, bfd_asymbol_name (*ps
), (const char *) NULL
);
325 save_stab (i
.stab_type
, i
.stab_desc
, i
.value
, s
);
327 if (!parse_stab (dhandle
, shandle
, i
.stab_type
, i
.stab_desc
,
338 bool ret
= ps
>= symend
;
344 if (! finish_stab (dhandle
, shandle
, ret
))
351 /* Record stabs strings, so that we can give some context for errors. */
353 #define SAVE_STABS_COUNT (16)
363 static struct saved_stab saved_stabs
[SAVE_STABS_COUNT
];
364 static int saved_stabs_index
;
366 /* Save a stabs string. */
369 save_stab (int type
, int desc
, bfd_vma value
, const char *string
)
371 free (saved_stabs
[saved_stabs_index
].string
);
372 saved_stabs
[saved_stabs_index
].type
= type
;
373 saved_stabs
[saved_stabs_index
].desc
= desc
;
374 saved_stabs
[saved_stabs_index
].value
= value
;
375 saved_stabs
[saved_stabs_index
].string
= xstrdup (string
);
376 saved_stabs_index
= (saved_stabs_index
+ 1) % SAVE_STABS_COUNT
;
379 /* Provide context for an error. */
386 fprintf (stderr
, _("Last stabs entries before error:\n"));
387 fprintf (stderr
, "n_type n_desc n_value string\n");
389 i
= saved_stabs_index
;
392 struct saved_stab
*stabp
;
394 stabp
= saved_stabs
+ i
;
395 if (stabp
->string
!= NULL
)
399 s
= bfd_get_stab_name (stabp
->type
);
401 fprintf (stderr
, "%-6s", s
);
402 else if (stabp
->type
== 0)
403 fprintf (stderr
, "HdrSym");
405 fprintf (stderr
, "%-6d", stabp
->type
);
406 fprintf (stderr
, " %-6d ", stabp
->desc
);
407 fprintf (stderr
, "%08" PRIx64
, (uint64_t) stabp
->value
);
408 if (stabp
->type
!= 0)
409 fprintf (stderr
, " %s", stabp
->string
);
410 fprintf (stderr
, "\n");
412 i
= (i
+ 1) % SAVE_STABS_COUNT
;
414 while (i
!= saved_stabs_index
);
417 /* Free the saved stab strings. */
420 free_saved_stabs (void)
424 for (i
= 0; i
< SAVE_STABS_COUNT
; i
++)
426 free (saved_stabs
[i
].string
);
427 saved_stabs
[i
].string
= NULL
;
430 saved_stabs_index
= 0;