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 ();
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
));
91 /* Read stabs in sections debugging information from a BFD. */
94 read_section_stabs_debugging_info (bfd
*abfd
, asymbol
**syms
, long symcount
,
95 void *dhandle
, bool *pfound
)
100 const char *strsecname
;
104 { ".stab", ".stabstr" },
105 { "LC_SYMTAB.stabs", "LC_SYMTAB.stabstr" },
106 { "$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
123 && (bfd_section_flags (strsec
) & SEC_HAS_CONTENTS
) != 0)
125 bfd_size_type stabsize
, strsize
;
126 bfd_byte
*stabs
, *strings
;
128 bfd_size_type stroff
, next_stroff
;
130 if (!bfd_malloc_and_get_section (abfd
, sec
, &stabs
))
132 fprintf (stderr
, "%s: %s: %s\n",
133 bfd_get_filename (abfd
), names
[i
].secname
,
134 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 ()));
148 /* Zero terminate the strings table, just in case. */
149 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
))
253 /* Don't free f, since I think the stabs code
254 expects strings to hang around. This should be
255 straightened out. FIXME. */
262 /* Don't free strings, since I think the stabs code expects
263 the strings to hang around. This should be straightened
270 if (! finish_stab (dhandle
, shandle
))
277 /* Read stabs in the symbol table. */
280 read_symbol_stabs_debugging_info (bfd
*abfd
, asymbol
**syms
, long symcount
,
281 void *dhandle
, bool *pfound
)
284 asymbol
**ps
, **symend
;
287 symend
= syms
+ symcount
;
288 for (ps
= syms
; ps
< symend
; ps
++)
292 bfd_get_symbol_info (abfd
, *ps
, &i
);
301 shandle
= start_stab (dhandle
, abfd
, false, syms
, symcount
);
309 if (s
== NULL
|| strlen (s
) < 1)
313 while (strlen (s
) > 0
314 && s
[strlen (s
) - 1] == '\\'
321 sc
[strlen (sc
) - 1] = '\0';
322 n
= concat (sc
, bfd_asymbol_name (*ps
), (const char *) NULL
);
329 save_stab (i
.stab_type
, i
.stab_desc
, i
.value
, s
);
331 if (! parse_stab (dhandle
, shandle
, i
.stab_type
, i
.stab_desc
,
339 /* Don't free f, since I think the stabs code expects
340 strings to hang around. This should be straightened out.
349 if (! finish_stab (dhandle
, shandle
))
356 /* Record stabs strings, so that we can give some context for errors. */
358 #define SAVE_STABS_COUNT (16)
368 static struct saved_stab saved_stabs
[SAVE_STABS_COUNT
];
369 static int saved_stabs_index
;
371 /* Save a stabs string. */
374 save_stab (int type
, int desc
, bfd_vma value
, const char *string
)
376 free (saved_stabs
[saved_stabs_index
].string
);
377 saved_stabs
[saved_stabs_index
].type
= type
;
378 saved_stabs
[saved_stabs_index
].desc
= desc
;
379 saved_stabs
[saved_stabs_index
].value
= value
;
380 saved_stabs
[saved_stabs_index
].string
= xstrdup (string
);
381 saved_stabs_index
= (saved_stabs_index
+ 1) % SAVE_STABS_COUNT
;
384 /* Provide context for an error. */
391 fprintf (stderr
, _("Last stabs entries before error:\n"));
392 fprintf (stderr
, "n_type n_desc n_value string\n");
394 i
= saved_stabs_index
;
397 struct saved_stab
*stabp
;
399 stabp
= saved_stabs
+ i
;
400 if (stabp
->string
!= NULL
)
404 s
= bfd_get_stab_name (stabp
->type
);
406 fprintf (stderr
, "%-6s", s
);
407 else if (stabp
->type
== 0)
408 fprintf (stderr
, "HdrSym");
410 fprintf (stderr
, "%-6d", stabp
->type
);
411 fprintf (stderr
, " %-6d ", stabp
->desc
);
412 fprintf (stderr
, "%08" PRIx64
, (uint64_t) stabp
->value
);
413 if (stabp
->type
!= 0)
414 fprintf (stderr
, " %s", stabp
->string
);
415 fprintf (stderr
, "\n");
417 i
= (i
+ 1) % SAVE_STABS_COUNT
;
419 while (i
!= saved_stabs_index
);
422 /* Free the saved stab strings. */
425 free_saved_stabs (void)
429 for (i
= 0; i
< SAVE_STABS_COUNT
; i
++)
431 free (saved_stabs
[i
].string
);
432 saved_stabs
[i
].string
= NULL
;
435 saved_stabs_index
= 0;