1 /* DWARF 2 low-level section code
3 Copyright (C) 1994-2020 Free Software Foundation, Inc.
5 Adapted by Gary Funck (gary@intrepid.com), Intrepid Technology,
6 Inc. with support from Florida State University (under contract
7 with the Ada Joint Program Office), and Silicon Graphics, Inc.
8 Initial contribution by Brent Benson, Harris Computer Systems, Inc.,
9 based on Fred Fish's (Cygnus Support) implementation of DWARF 1
12 This file is part of GDB.
14 This program is free software; you can redistribute it and/or modify
15 it under the terms of the GNU General Public License as published by
16 the Free Software Foundation; either version 3 of the License, or
17 (at your option) any later version.
19 This program is distributed in the hope that it will be useful,
20 but WITHOUT ANY WARRANTY; without even the implied warranty of
21 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 GNU General Public License for more details.
24 You should have received a copy of the GNU General Public License
25 along with this program. If not, see <http://www.gnu.org/licenses/>. */
28 #include "dwarf2/section.h"
31 #include "complaints.h"
34 dwarf2_section_info::overflow_complaint () const
36 complaint (_("debug info runs off end of %s section"
38 get_name (), get_file_name ());
41 struct dwarf2_section_info
*
42 dwarf2_section_info::get_containing_section () const
44 gdb_assert (is_virtual
);
45 return s
.containing_section
;
49 dwarf2_section_info::get_bfd_owner () const
51 const dwarf2_section_info
*section
= this;
54 section
= get_containing_section ();
55 gdb_assert (!section
->is_virtual
);
57 return section
->s
.section
->owner
;
61 dwarf2_section_info::get_bfd_section () const
63 const dwarf2_section_info
*section
= this;
64 if (section
->is_virtual
)
66 section
= get_containing_section ();
67 gdb_assert (!section
->is_virtual
);
69 return section
->s
.section
;
73 dwarf2_section_info::get_name () const
75 asection
*sectp
= get_bfd_section ();
77 gdb_assert (sectp
!= NULL
);
78 return bfd_section_name (sectp
);
82 dwarf2_section_info::get_file_name () const
84 bfd
*abfd
= get_bfd_owner ();
86 return bfd_get_filename (abfd
);
90 dwarf2_section_info::get_id () const
92 asection
*sectp
= get_bfd_section ();
100 dwarf2_section_info::get_flags () const
102 asection
*sectp
= get_bfd_section ();
104 gdb_assert (sectp
!= NULL
);
105 return bfd_section_flags (sectp
);
109 dwarf2_section_info::empty () const
113 return s
.section
== NULL
|| size
== 0;
117 dwarf2_section_info::read (struct objfile
*objfile
)
121 gdb_byte
*buf
, *retbuf
;
131 sectp
= get_bfd_section ();
133 /* If this is a virtual section we need to read in the real one first. */
136 struct dwarf2_section_info
*containing_section
=
137 get_containing_section ();
139 gdb_assert (sectp
!= NULL
);
140 if ((sectp
->flags
& SEC_RELOC
) != 0)
142 error (_("Dwarf Error: DWP format V2 with relocations is not"
143 " supported in section %s [in module %s]"),
144 get_name (), get_file_name ());
146 containing_section
->read (objfile
);
147 /* Other code should have already caught virtual sections that don't
149 gdb_assert (virtual_offset
+ size
<= containing_section
->size
);
150 /* If the real section is empty or there was a problem reading the
151 section we shouldn't get here. */
152 gdb_assert (containing_section
->buffer
!= NULL
);
153 buffer
= containing_section
->buffer
+ virtual_offset
;
157 /* If the section has relocations, we must read it ourselves.
158 Otherwise we attach it to the BFD. */
159 if ((sectp
->flags
& SEC_RELOC
) == 0)
161 buffer
= gdb_bfd_map_section (sectp
, &size
);
165 buf
= (gdb_byte
*) obstack_alloc (&objfile
->objfile_obstack
, size
);
168 /* When debugging .o files, we may need to apply relocations; see
169 http://sourceware.org/ml/gdb-patches/2002-04/msg00136.html .
170 We never compress sections in .o files, so we only need to
171 try this when the section is not compressed. */
172 retbuf
= symfile_relocate_debug_section (objfile
, sectp
, buf
);
179 abfd
= get_bfd_owner ();
180 gdb_assert (abfd
!= NULL
);
182 if (bfd_seek (abfd
, sectp
->filepos
, SEEK_SET
) != 0
183 || bfd_bread (buf
, size
, abfd
) != size
)
185 error (_("Dwarf Error: Can't read DWARF data"
186 " in section %s [in module %s]"),
187 bfd_section_name (sectp
), bfd_get_filename (abfd
));
192 dwarf2_section_info::read_string (struct objfile
*objfile
, LONGEST str_offset
,
193 const char *form_name
)
197 error (_("%s used without %s section [in module %s]"),
198 form_name
, get_name (), get_file_name ());
199 if (str_offset
>= size
)
200 error (_("%s pointing outside of %s section [in module %s]"),
201 form_name
, get_name (), get_file_name ());
202 gdb_assert (HOST_CHAR_BIT
== 8);
203 if (buffer
[str_offset
] == '\0')
205 return (const char *) (buffer
+ str_offset
);
This page took 0.086873 seconds and 4 git commands to generate.