File: | src/gnu/usr.bin/binutils/bfd/coffgen.c |
Warning: | line 590, column 8 Access to field 'the_bfd' results in a dereference of a null pointer (loaded from variable 'symbol') |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
1 | /* Support for the generic parts of COFF, for BFD. | |||
2 | Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, | |||
3 | 2000, 2001, 2002, 2003 | |||
4 | Free Software Foundation, Inc. | |||
5 | Written by Cygnus Support. | |||
6 | ||||
7 | This file is part of BFD, the Binary File Descriptor library. | |||
8 | ||||
9 | This program is free software; you can redistribute it and/or modify | |||
10 | it under the terms of the GNU General Public License as published by | |||
11 | the Free Software Foundation; either version 2 of the License, or | |||
12 | (at your option) any later version. | |||
13 | ||||
14 | This program is distributed in the hope that it will be useful, | |||
15 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |||
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
17 | GNU General Public License for more details. | |||
18 | ||||
19 | You should have received a copy of the GNU General Public License | |||
20 | along with this program; if not, write to the Free Software | |||
21 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |||
22 | ||||
23 | /* Most of this hacked by Steve Chamberlain, sac@cygnus.com. | |||
24 | Split out of coffcode.h by Ian Taylor, ian@cygnus.com. */ | |||
25 | ||||
26 | /* This file contains COFF code that is not dependent on any | |||
27 | particular COFF target. There is only one version of this file in | |||
28 | libbfd.a, so no target specific code may be put in here. Or, to | |||
29 | put it another way, | |||
30 | ||||
31 | ********** DO NOT PUT TARGET SPECIFIC CODE IN THIS FILE ********** | |||
32 | ||||
33 | If you need to add some target specific behaviour, add a new hook | |||
34 | function to bfd_coff_backend_data. | |||
35 | ||||
36 | Some of these functions are also called by the ECOFF routines. | |||
37 | Those functions may not use any COFF specific information, such as | |||
38 | coff_data (abfd). */ | |||
39 | ||||
40 | #include "bfd.h" | |||
41 | #include "sysdep.h" | |||
42 | #include "libbfd.h" | |||
43 | #include "coff/internal.h" | |||
44 | #include "libcoff.h" | |||
45 | ||||
46 | static void coff_fix_symbol_name | |||
47 | PARAMS ((bfd *, asymbol *, combined_entry_type *, bfd_size_type *,(bfd *, asymbol *, combined_entry_type *, bfd_size_type *, asection **, bfd_size_type *) | |||
48 | asection **, bfd_size_type *))(bfd *, asymbol *, combined_entry_type *, bfd_size_type *, asection **, bfd_size_type *); | |||
49 | static bfd_boolean coff_write_symbol | |||
50 | PARAMS ((bfd *, asymbol *, combined_entry_type *, bfd_vma *,(bfd *, asymbol *, combined_entry_type *, bfd_vma *, bfd_size_type *, asection **, bfd_size_type *) | |||
51 | bfd_size_type *, asection **, bfd_size_type *))(bfd *, asymbol *, combined_entry_type *, bfd_vma *, bfd_size_type *, asection **, bfd_size_type *); | |||
52 | static bfd_boolean coff_write_alien_symbol | |||
53 | PARAMS ((bfd *, asymbol *, bfd_vma *, bfd_size_type *,(bfd *, asymbol *, bfd_vma *, bfd_size_type *, asection **, bfd_size_type *) | |||
54 | asection **, bfd_size_type *))(bfd *, asymbol *, bfd_vma *, bfd_size_type *, asection **, bfd_size_type *); | |||
55 | static bfd_boolean coff_write_native_symbol | |||
56 | PARAMS ((bfd *, coff_symbol_type *, bfd_vma *, bfd_size_type *,(bfd *, coff_symbol_type *, bfd_vma *, bfd_size_type *, asection **, bfd_size_type *) | |||
57 | asection **, bfd_size_type *))(bfd *, coff_symbol_type *, bfd_vma *, bfd_size_type *, asection **, bfd_size_type *); | |||
58 | static void coff_pointerize_aux | |||
59 | PARAMS ((bfd *, combined_entry_type *, combined_entry_type *,(bfd *, combined_entry_type *, combined_entry_type *, unsigned int, combined_entry_type *) | |||
60 | unsigned int, combined_entry_type *))(bfd *, combined_entry_type *, combined_entry_type *, unsigned int, combined_entry_type *); | |||
61 | static bfd_boolean make_a_section_from_file | |||
62 | PARAMS ((bfd *, struct internal_scnhdr *, unsigned int))(bfd *, struct internal_scnhdr *, unsigned int); | |||
63 | static const bfd_target *coff_real_object_p | |||
64 | PARAMS ((bfd *, unsigned, struct internal_filehdr *,(bfd *, unsigned, struct internal_filehdr *, struct internal_aouthdr *) | |||
65 | struct internal_aouthdr *))(bfd *, unsigned, struct internal_filehdr *, struct internal_aouthdr *); | |||
66 | static void fixup_symbol_value | |||
67 | PARAMS ((bfd *, coff_symbol_type *, struct internal_syment *))(bfd *, coff_symbol_type *, struct internal_syment *); | |||
68 | static char *build_debug_section | |||
69 | PARAMS ((bfd *))(bfd *); | |||
70 | static char *copy_name | |||
71 | PARAMS ((bfd *, char *, size_t))(bfd *, char *, size_t); | |||
72 | ||||
73 | #define STRING_SIZE_SIZE(4) (4) | |||
74 | ||||
75 | /* Take a section header read from a coff file (in HOST byte order), | |||
76 | and make a BFD "section" out of it. This is used by ECOFF. */ | |||
77 | static bfd_boolean | |||
78 | make_a_section_from_file (abfd, hdr, target_index) | |||
79 | bfd *abfd; | |||
80 | struct internal_scnhdr *hdr; | |||
81 | unsigned int target_index; | |||
82 | { | |||
83 | asection *return_section; | |||
84 | char *name; | |||
85 | bfd_boolean result = TRUE1; | |||
86 | flagword flags; | |||
87 | ||||
88 | name = NULL((void*)0); | |||
89 | ||||
90 | /* Handle long section names as in PE. */ | |||
91 | if (bfd_coff_long_section_names (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_long_section_names) | |||
92 | && hdr->s_name[0] == '/') | |||
93 | { | |||
94 | char buf[SCNNMLEN(8)]; | |||
95 | long strindex; | |||
96 | char *p; | |||
97 | const char *strings; | |||
98 | ||||
99 | memcpy (buf, hdr->s_name + 1, SCNNMLEN(8) - 1); | |||
100 | buf[SCNNMLEN(8) - 1] = '\0'; | |||
101 | strindex = strtol (buf, &p, 10); | |||
102 | if (*p == '\0' && strindex >= 0) | |||
103 | { | |||
104 | strings = _bfd_coff_read_string_table (abfd); | |||
105 | if (strings == NULL((void*)0)) | |||
106 | return FALSE0; | |||
107 | /* FIXME: For extra safety, we should make sure that | |||
108 | strindex does not run us past the end, but right now we | |||
109 | don't know the length of the string table. */ | |||
110 | strings += strindex; | |||
111 | name = bfd_alloc (abfd, (bfd_size_type) strlen (strings) + 1); | |||
112 | if (name == NULL((void*)0)) | |||
113 | return FALSE0; | |||
114 | strcpy (name, strings); | |||
115 | } | |||
116 | } | |||
117 | ||||
118 | if (name == NULL((void*)0)) | |||
119 | { | |||
120 | /* Assorted wastage to null-terminate the name, thanks AT&T! */ | |||
121 | name = bfd_alloc (abfd, (bfd_size_type) sizeof (hdr->s_name) + 1); | |||
122 | if (name == NULL((void*)0)) | |||
123 | return FALSE0; | |||
124 | strncpy (name, (char *) &hdr->s_name[0], sizeof (hdr->s_name)); | |||
125 | name[sizeof (hdr->s_name)] = 0; | |||
126 | } | |||
127 | ||||
128 | return_section = bfd_make_section_anyway (abfd, name); | |||
129 | if (return_section == NULL((void*)0)) | |||
130 | return FALSE0; | |||
131 | ||||
132 | return_section->vma = hdr->s_vaddr; | |||
133 | return_section->lma = hdr->s_paddr; | |||
134 | return_section->_raw_size = hdr->s_size; | |||
135 | return_section->filepos = hdr->s_scnptr; | |||
136 | return_section->rel_filepos = hdr->s_relptr; | |||
137 | return_section->reloc_count = hdr->s_nreloc; | |||
138 | ||||
139 | bfd_coff_set_alignment_hook (abfd, return_section, hdr)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_set_alignment_hook) (abfd, return_section, hdr)); | |||
140 | ||||
141 | return_section->line_filepos = hdr->s_lnnoptr; | |||
142 | ||||
143 | return_section->lineno_count = hdr->s_nlnno; | |||
144 | return_section->userdata = NULL((void*)0); | |||
145 | return_section->next = (asection *) NULL((void*)0); | |||
146 | return_section->target_index = target_index; | |||
147 | ||||
148 | if (! bfd_coff_styp_to_sec_flags_hook (abfd, hdr, name, return_section,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_styp_to_sec_flags_hook) (abfd, hdr, name, return_section , & flags)) | |||
149 | & flags)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_styp_to_sec_flags_hook) (abfd, hdr, name, return_section , & flags))) | |||
150 | result = FALSE0; | |||
151 | ||||
152 | return_section->flags = flags; | |||
153 | ||||
154 | /* At least on i386-coff, the line number count for a shared library | |||
155 | section must be ignored. */ | |||
156 | if ((return_section->flags & SEC_COFF_SHARED_LIBRARY0x800) != 0) | |||
157 | return_section->lineno_count = 0; | |||
158 | ||||
159 | if (hdr->s_nreloc != 0) | |||
160 | return_section->flags |= SEC_RELOC0x004; | |||
161 | /* FIXME: should this check 'hdr->s_size > 0' */ | |||
162 | if (hdr->s_scnptr != 0) | |||
163 | return_section->flags |= SEC_HAS_CONTENTS0x200; | |||
164 | ||||
165 | return result; | |||
166 | } | |||
167 | ||||
168 | /* Read in a COFF object and make it into a BFD. This is used by | |||
169 | ECOFF as well. */ | |||
170 | ||||
171 | static const bfd_target * | |||
172 | coff_real_object_p (abfd, nscns, internal_f, internal_a) | |||
173 | bfd *abfd; | |||
174 | unsigned nscns; | |||
175 | struct internal_filehdr *internal_f; | |||
176 | struct internal_aouthdr *internal_a; | |||
177 | { | |||
178 | flagword oflags = abfd->flags; | |||
179 | bfd_vma ostart = bfd_get_start_address (abfd)((abfd)->start_address); | |||
180 | PTRvoid * tdata; | |||
181 | PTRvoid * tdata_save; | |||
182 | bfd_size_type readsize; /* length of file_info */ | |||
183 | unsigned int scnhsz; | |||
184 | char *external_sections; | |||
185 | ||||
186 | if (!(internal_f->f_flags & F_RELFLG(0x0001))) | |||
187 | abfd->flags |= HAS_RELOC0x01; | |||
188 | if ((internal_f->f_flags & F_EXEC(0x0002))) | |||
189 | abfd->flags |= EXEC_P0x02; | |||
190 | if (!(internal_f->f_flags & F_LNNO(0x0004))) | |||
191 | abfd->flags |= HAS_LINENO0x04; | |||
192 | if (!(internal_f->f_flags & F_LSYMS(0x0008))) | |||
193 | abfd->flags |= HAS_LOCALS0x20; | |||
194 | ||||
195 | /* FIXME: How can we set D_PAGED correctly? */ | |||
196 | if ((internal_f->f_flags & F_EXEC(0x0002)) != 0) | |||
197 | abfd->flags |= D_PAGED0x100; | |||
198 | ||||
199 | bfd_get_symcount (abfd)((abfd)->symcount) = internal_f->f_nsyms; | |||
200 | if (internal_f->f_nsyms) | |||
201 | abfd->flags |= HAS_SYMS0x10; | |||
202 | ||||
203 | if (internal_a != (struct internal_aouthdr *) NULL((void*)0)) | |||
204 | bfd_get_start_address (abfd)((abfd)->start_address) = internal_a->entry; | |||
205 | else | |||
206 | bfd_get_start_address (abfd)((abfd)->start_address) = 0; | |||
207 | ||||
208 | /* Set up the tdata area. ECOFF uses its own routine, and overrides | |||
209 | abfd->flags. */ | |||
210 | tdata_save = abfd->tdata.any; | |||
211 | tdata = bfd_coff_mkobject_hook (abfd, (PTR) internal_f, (PTR) internal_a)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_mkobject_hook) (abfd, (void *) internal_f, (void *) internal_a)); | |||
212 | if (tdata == NULL((void*)0)) | |||
213 | goto fail2; | |||
214 | ||||
215 | scnhsz = bfd_coff_scnhsz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_scnhsz); | |||
216 | readsize = (bfd_size_type) nscns * scnhsz; | |||
217 | external_sections = (char *) bfd_alloc (abfd, readsize); | |||
218 | if (!external_sections) | |||
219 | goto fail; | |||
220 | ||||
221 | if (bfd_bread ((PTRvoid *) external_sections, readsize, abfd) != readsize) | |||
222 | goto fail; | |||
223 | ||||
224 | /* Set the arch/mach *before* swapping in sections; section header swapping | |||
225 | may depend on arch/mach info. */ | |||
226 | if (! bfd_coff_set_arch_mach_hook (abfd, (PTR) internal_f)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_set_arch_mach_hook) (abfd, (void *) internal_f ))) | |||
227 | goto fail; | |||
228 | ||||
229 | /* Now copy data as required; construct all asections etc. */ | |||
230 | if (nscns != 0) | |||
231 | { | |||
232 | unsigned int i; | |||
233 | for (i = 0; i < nscns; i++) | |||
234 | { | |||
235 | struct internal_scnhdr tmp; | |||
236 | bfd_coff_swap_scnhdr_in (abfd,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_scnhdr_in) (abfd, (void *) (external_sections + i * scnhsz), (void *) & tmp)) | |||
237 | (PTR) (external_sections + i * scnhsz),((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_scnhdr_in) (abfd, (void *) (external_sections + i * scnhsz), (void *) & tmp)) | |||
238 | (PTR) & tmp)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_scnhdr_in) (abfd, (void *) (external_sections + i * scnhsz), (void *) & tmp)); | |||
239 | if (! make_a_section_from_file (abfd, &tmp, i + 1)) | |||
240 | goto fail; | |||
241 | } | |||
242 | } | |||
243 | ||||
244 | return abfd->xvec; | |||
245 | ||||
246 | fail: | |||
247 | bfd_release (abfd, tdata); | |||
248 | fail2: | |||
249 | abfd->tdata.any = tdata_save; | |||
250 | abfd->flags = oflags; | |||
251 | bfd_get_start_address (abfd)((abfd)->start_address) = ostart; | |||
252 | return (const bfd_target *) NULL((void*)0); | |||
253 | } | |||
254 | ||||
255 | /* Turn a COFF file into a BFD, but fail with bfd_error_wrong_format if it is | |||
256 | not a COFF file. This is also used by ECOFF. */ | |||
257 | ||||
258 | const bfd_target * | |||
259 | coff_object_p (abfd) | |||
260 | bfd *abfd; | |||
261 | { | |||
262 | bfd_size_type filhsz; | |||
263 | bfd_size_type aoutsz; | |||
264 | unsigned int nscns; | |||
265 | PTRvoid * filehdr; | |||
266 | struct internal_filehdr internal_f; | |||
267 | struct internal_aouthdr internal_a; | |||
268 | ||||
269 | /* figure out how much to read */ | |||
270 | filhsz = bfd_coff_filhsz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_filhsz); | |||
271 | aoutsz = bfd_coff_aoutsz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_aoutsz); | |||
272 | ||||
273 | filehdr = bfd_alloc (abfd, filhsz); | |||
274 | if (filehdr == NULL((void*)0)) | |||
275 | return NULL((void*)0); | |||
276 | if (bfd_bread (filehdr, filhsz, abfd) != filhsz) | |||
277 | { | |||
278 | if (bfd_get_error () != bfd_error_system_call) | |||
279 | bfd_set_error (bfd_error_wrong_format); | |||
280 | bfd_release (abfd, filehdr); | |||
281 | return NULL((void*)0); | |||
282 | } | |||
283 | bfd_coff_swap_filehdr_in (abfd, filehdr, &internal_f)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_filehdr_in) (abfd, filehdr, &internal_f )); | |||
284 | bfd_release (abfd, filehdr); | |||
285 | ||||
286 | /* The XCOFF format has two sizes for the f_opthdr. SMALL_AOUTSZ | |||
287 | (less than aoutsz) used in object files and AOUTSZ (equal to | |||
288 | aoutsz) in executables. The bfd_coff_swap_aouthdr_in function | |||
289 | expects this header to be aoutsz bytes in length, so we use that | |||
290 | value in the call to bfd_alloc below. But we must be careful to | |||
291 | only read in f_opthdr bytes in the call to bfd_bread. We should | |||
292 | also attempt to catch corrupt or non-COFF binaries with a strange | |||
293 | value for f_opthdr. */ | |||
294 | if (! bfd_coff_bad_format_hook (abfd, &internal_f)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_bad_format_hook) (abfd, &internal_f)) | |||
295 | || internal_f.f_opthdr > aoutsz) | |||
296 | { | |||
297 | bfd_set_error (bfd_error_wrong_format); | |||
298 | return NULL((void*)0); | |||
299 | } | |||
300 | nscns = internal_f.f_nscns; | |||
301 | ||||
302 | if (internal_f.f_opthdr) | |||
303 | { | |||
304 | PTRvoid * opthdr; | |||
305 | ||||
306 | opthdr = bfd_alloc (abfd, aoutsz); | |||
307 | if (opthdr == NULL((void*)0)) | |||
308 | return NULL((void*)0); | |||
309 | if (bfd_bread (opthdr, (bfd_size_type) internal_f.f_opthdr, abfd) | |||
310 | != internal_f.f_opthdr) | |||
311 | { | |||
312 | bfd_release (abfd, opthdr); | |||
313 | return NULL((void*)0); | |||
314 | } | |||
315 | bfd_coff_swap_aouthdr_in (abfd, opthdr, (PTR) &internal_a)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aouthdr_in) (abfd, opthdr, (void *) & internal_a)); | |||
316 | bfd_release (abfd, opthdr); | |||
317 | } | |||
318 | ||||
319 | return coff_real_object_p (abfd, nscns, &internal_f, | |||
320 | (internal_f.f_opthdr != 0 | |||
321 | ? &internal_a | |||
322 | : (struct internal_aouthdr *) NULL((void*)0))); | |||
323 | } | |||
324 | ||||
325 | /* Get the BFD section from a COFF symbol section number. */ | |||
326 | ||||
327 | asection * | |||
328 | coff_section_from_bfd_index (abfd, index) | |||
329 | bfd *abfd; | |||
330 | int index; | |||
331 | { | |||
332 | struct bfd_section *answer = abfd->sections; | |||
333 | ||||
334 | if (index == N_ABS((short)-1)) | |||
335 | return bfd_abs_section_ptr((asection *) &bfd_abs_section); | |||
336 | if (index == N_UNDEF((short)0)) | |||
337 | return bfd_und_section_ptr((asection *) &bfd_und_section); | |||
338 | if (index == N_DEBUG((short)-2)) | |||
339 | return bfd_abs_section_ptr((asection *) &bfd_abs_section); | |||
340 | ||||
341 | while (answer) | |||
342 | { | |||
343 | if (answer->target_index == index) | |||
344 | return answer; | |||
345 | answer = answer->next; | |||
346 | } | |||
347 | ||||
348 | /* We should not reach this point, but the SCO 3.2v4 /lib/libc_s.a | |||
349 | has a bad symbol table in biglitpow.o. */ | |||
350 | return bfd_und_section_ptr((asection *) &bfd_und_section); | |||
351 | } | |||
352 | ||||
353 | /* Get the upper bound of a COFF symbol table. */ | |||
354 | ||||
355 | long | |||
356 | coff_get_symtab_upper_bound (abfd) | |||
357 | bfd *abfd; | |||
358 | { | |||
359 | if (!bfd_coff_slurp_symbol_table (abfd)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_slurp_symbol_table) (abfd))) | |||
360 | return -1; | |||
361 | ||||
362 | return (bfd_get_symcount (abfd)((abfd)->symcount) + 1) * (sizeof (coff_symbol_type *)); | |||
363 | } | |||
364 | ||||
365 | /* Canonicalize a COFF symbol table. */ | |||
366 | ||||
367 | long | |||
368 | coff_canonicalize_symtab (abfd, alocation) | |||
369 | bfd *abfd; | |||
370 | asymbol **alocation; | |||
371 | { | |||
372 | unsigned int counter; | |||
373 | coff_symbol_type *symbase; | |||
374 | coff_symbol_type **location = (coff_symbol_type **) alocation; | |||
375 | ||||
376 | if (!bfd_coff_slurp_symbol_table (abfd)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_slurp_symbol_table) (abfd))) | |||
377 | return -1; | |||
378 | ||||
379 | symbase = obj_symbols (abfd)(((abfd)->tdata.coff_obj_data)->symbols); | |||
380 | counter = bfd_get_symcount (abfd)((abfd)->symcount); | |||
381 | while (counter-- > 0) | |||
382 | *location++ = symbase++; | |||
383 | ||||
384 | *location = NULL((void*)0); | |||
385 | ||||
386 | return bfd_get_symcount (abfd)((abfd)->symcount); | |||
387 | } | |||
388 | ||||
389 | /* Get the name of a symbol. The caller must pass in a buffer of size | |||
390 | >= SYMNMLEN + 1. */ | |||
391 | ||||
392 | const char * | |||
393 | _bfd_coff_internal_syment_name (abfd, sym, buf) | |||
394 | bfd *abfd; | |||
395 | const struct internal_syment *sym; | |||
396 | char *buf; | |||
397 | { | |||
398 | /* FIXME: It's not clear this will work correctly if sizeof | |||
399 | (_n_zeroes) != 4. */ | |||
400 | if (sym->_n._n_n._n_zeroes != 0 | |||
401 | || sym->_n._n_n._n_offset == 0) | |||
402 | { | |||
403 | memcpy (buf, sym->_n._n_name, SYMNMLEN8); | |||
404 | buf[SYMNMLEN8] = '\0'; | |||
405 | return buf; | |||
406 | } | |||
407 | else | |||
408 | { | |||
409 | const char *strings; | |||
410 | ||||
411 | BFD_ASSERT (sym->_n._n_n._n_offset >= STRING_SIZE_SIZE){ if (!(sym->_n._n_n._n_offset >= (4))) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,411); }; | |||
412 | strings = obj_coff_strings (abfd)(((abfd)->tdata.coff_obj_data)->strings); | |||
413 | if (strings == NULL((void*)0)) | |||
414 | { | |||
415 | strings = _bfd_coff_read_string_table (abfd); | |||
416 | if (strings == NULL((void*)0)) | |||
417 | return NULL((void*)0); | |||
418 | } | |||
419 | return strings + sym->_n._n_n._n_offset; | |||
420 | } | |||
421 | } | |||
422 | ||||
423 | /* Read in and swap the relocs. This returns a buffer holding the | |||
424 | relocs for section SEC in file ABFD. If CACHE is TRUE and | |||
425 | INTERNAL_RELOCS is NULL, the relocs read in will be saved in case | |||
426 | the function is called again. If EXTERNAL_RELOCS is not NULL, it | |||
427 | is a buffer large enough to hold the unswapped relocs. If | |||
428 | INTERNAL_RELOCS is not NULL, it is a buffer large enough to hold | |||
429 | the swapped relocs. If REQUIRE_INTERNAL is TRUE, then the return | |||
430 | value must be INTERNAL_RELOCS. The function returns NULL on error. */ | |||
431 | ||||
432 | struct internal_reloc * | |||
433 | _bfd_coff_read_internal_relocs (abfd, sec, cache, external_relocs, | |||
434 | require_internal, internal_relocs) | |||
435 | bfd *abfd; | |||
436 | asection *sec; | |||
437 | bfd_boolean cache; | |||
438 | bfd_byte *external_relocs; | |||
439 | bfd_boolean require_internal; | |||
440 | struct internal_reloc *internal_relocs; | |||
441 | { | |||
442 | bfd_size_type relsz; | |||
443 | bfd_byte *free_external = NULL((void*)0); | |||
444 | struct internal_reloc *free_internal = NULL((void*)0); | |||
445 | bfd_byte *erel; | |||
446 | bfd_byte *erel_end; | |||
447 | struct internal_reloc *irel; | |||
448 | bfd_size_type amt; | |||
449 | ||||
450 | if (coff_section_data (abfd, sec)((struct coff_section_tdata *) (sec)->used_by_bfd) != NULL((void*)0) | |||
451 | && coff_section_data (abfd, sec)((struct coff_section_tdata *) (sec)->used_by_bfd)->relocs != NULL((void*)0)) | |||
452 | { | |||
453 | if (! require_internal) | |||
454 | return coff_section_data (abfd, sec)((struct coff_section_tdata *) (sec)->used_by_bfd)->relocs; | |||
455 | memcpy (internal_relocs, coff_section_data (abfd, sec)((struct coff_section_tdata *) (sec)->used_by_bfd)->relocs, | |||
456 | sec->reloc_count * sizeof (struct internal_reloc)); | |||
457 | return internal_relocs; | |||
458 | } | |||
459 | ||||
460 | relsz = bfd_coff_relsz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_relsz); | |||
461 | ||||
462 | amt = sec->reloc_count * relsz; | |||
463 | if (external_relocs == NULL((void*)0)) | |||
464 | { | |||
465 | free_external = (bfd_byte *) bfd_malloc (amt); | |||
466 | if (free_external == NULL((void*)0) && sec->reloc_count > 0) | |||
467 | goto error_return; | |||
468 | external_relocs = free_external; | |||
469 | } | |||
470 | ||||
471 | if (bfd_seek (abfd, sec->rel_filepos, SEEK_SET0) != 0 | |||
472 | || bfd_bread (external_relocs, amt, abfd) != amt) | |||
473 | goto error_return; | |||
474 | ||||
475 | if (internal_relocs == NULL((void*)0)) | |||
476 | { | |||
477 | amt = sec->reloc_count; | |||
478 | amt *= sizeof (struct internal_reloc); | |||
479 | free_internal = (struct internal_reloc *) bfd_malloc (amt); | |||
480 | if (free_internal == NULL((void*)0) && sec->reloc_count > 0) | |||
481 | goto error_return; | |||
482 | internal_relocs = free_internal; | |||
483 | } | |||
484 | ||||
485 | /* Swap in the relocs. */ | |||
486 | erel = external_relocs; | |||
487 | erel_end = erel + relsz * sec->reloc_count; | |||
488 | irel = internal_relocs; | |||
489 | for (; erel < erel_end; erel += relsz, irel++) | |||
490 | bfd_coff_swap_reloc_in (abfd, (PTR) erel, (PTR) irel)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_reloc_in) (abfd, (void *) erel, (void *) irel)); | |||
491 | ||||
492 | if (free_external != NULL((void*)0)) | |||
493 | { | |||
494 | free (free_external); | |||
495 | free_external = NULL((void*)0); | |||
496 | } | |||
497 | ||||
498 | if (cache && free_internal != NULL((void*)0)) | |||
499 | { | |||
500 | if (coff_section_data (abfd, sec)((struct coff_section_tdata *) (sec)->used_by_bfd) == NULL((void*)0)) | |||
501 | { | |||
502 | amt = sizeof (struct coff_section_tdata); | |||
503 | sec->used_by_bfd = (PTRvoid *) bfd_zalloc (abfd, amt); | |||
504 | if (sec->used_by_bfd == NULL((void*)0)) | |||
505 | goto error_return; | |||
506 | coff_section_data (abfd, sec)((struct coff_section_tdata *) (sec)->used_by_bfd)->contents = NULL((void*)0); | |||
507 | } | |||
508 | coff_section_data (abfd, sec)((struct coff_section_tdata *) (sec)->used_by_bfd)->relocs = free_internal; | |||
509 | } | |||
510 | ||||
511 | return internal_relocs; | |||
512 | ||||
513 | error_return: | |||
514 | if (free_external != NULL((void*)0)) | |||
515 | free (free_external); | |||
516 | if (free_internal != NULL((void*)0)) | |||
517 | free (free_internal); | |||
518 | return NULL((void*)0); | |||
519 | } | |||
520 | ||||
521 | /* Set lineno_count for the output sections of a COFF file. */ | |||
522 | ||||
523 | int | |||
524 | coff_count_linenumbers (abfd) | |||
525 | bfd *abfd; | |||
526 | { | |||
527 | unsigned int limit = bfd_get_symcount (abfd)((abfd)->symcount); | |||
528 | unsigned int i; | |||
529 | int total = 0; | |||
530 | asymbol **p; | |||
531 | asection *s; | |||
532 | ||||
533 | if (limit == 0) | |||
534 | { | |||
535 | /* This may be from the backend linker, in which case the | |||
536 | lineno_count in the sections is correct. */ | |||
537 | for (s = abfd->sections; s != NULL((void*)0); s = s->next) | |||
538 | total += s->lineno_count; | |||
539 | return total; | |||
540 | } | |||
541 | ||||
542 | for (s = abfd->sections; s != NULL((void*)0); s = s->next) | |||
543 | BFD_ASSERT (s->lineno_count == 0){ if (!(s->lineno_count == 0)) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,543); }; | |||
544 | ||||
545 | for (p = abfd->outsymbols, i = 0; i < limit; i++, p++) | |||
546 | { | |||
547 | asymbol *q_maybe = *p; | |||
548 | ||||
549 | if (bfd_family_coff (bfd_asymbol_bfd (q_maybe))(((((q_maybe)->the_bfd))->xvec->flavour) == bfd_target_coff_flavour || ((((q_maybe)->the_bfd))->xvec->flavour) == bfd_target_xcoff_flavour )) | |||
550 | { | |||
551 | coff_symbol_type *q = coffsymbol (q_maybe)((coff_symbol_type *)(&((q_maybe)->the_bfd))); | |||
552 | ||||
553 | /* The AIX 4.1 compiler can sometimes generate line numbers | |||
554 | attached to debugging symbols. We try to simply ignore | |||
555 | those here. */ | |||
556 | if (q->lineno != NULL((void*)0) | |||
557 | && q->symbol.section->owner != NULL((void*)0)) | |||
558 | { | |||
559 | /* This symbol has line numbers. Increment the owning | |||
560 | section's linenumber count. */ | |||
561 | alent *l = q->lineno; | |||
562 | ||||
563 | do | |||
564 | { | |||
565 | asection * sec = q->symbol.section->output_section; | |||
566 | ||||
567 | /* Do not try to update fields in read-only sections. */ | |||
568 | if (! bfd_is_const_section (sec)( ((sec) == ((asection *) &bfd_abs_section)) || ((sec) == ((asection *) &bfd_und_section)) || ((sec) == ((asection *) &bfd_com_section)) || ((sec) == ((asection *) &bfd_ind_section )))) | |||
569 | sec->lineno_count ++; | |||
570 | ||||
571 | ++total; | |||
572 | ++l; | |||
573 | } | |||
574 | while (l->line_number != 0); | |||
575 | } | |||
576 | } | |||
577 | } | |||
578 | ||||
579 | return total; | |||
580 | } | |||
581 | ||||
582 | /* Takes a bfd and a symbol, returns a pointer to the coff specific | |||
583 | area of the symbol if there is one. */ | |||
584 | ||||
585 | coff_symbol_type * | |||
586 | coff_symbol_from (ignore_abfd, symbol) | |||
587 | bfd *ignore_abfd ATTRIBUTE_UNUSED__attribute__ ((__unused__)); | |||
588 | asymbol *symbol; | |||
589 | { | |||
590 | if (!bfd_family_coff (bfd_asymbol_bfd (symbol))(((((symbol)->the_bfd))->xvec->flavour) == bfd_target_coff_flavour || ((((symbol)->the_bfd))->xvec->flavour) == bfd_target_xcoff_flavour )) | |||
| ||||
591 | return (coff_symbol_type *) NULL((void*)0); | |||
592 | ||||
593 | if (bfd_asymbol_bfd (symbol)((symbol)->the_bfd)->tdata.coff_obj_data == (coff_data_type *) NULL((void*)0)) | |||
594 | return (coff_symbol_type *) NULL((void*)0); | |||
595 | ||||
596 | return (coff_symbol_type *) symbol; | |||
597 | } | |||
598 | ||||
599 | static void | |||
600 | fixup_symbol_value (abfd, coff_symbol_ptr, syment) | |||
601 | bfd *abfd; | |||
602 | coff_symbol_type *coff_symbol_ptr; | |||
603 | struct internal_syment *syment; | |||
604 | { | |||
605 | ||||
606 | /* Normalize the symbol flags */ | |||
607 | if (bfd_is_com_section (coff_symbol_ptr->symbol.section)(((coff_symbol_ptr->symbol.section)->flags & 0x8000 ) != 0)) | |||
608 | { | |||
609 | /* a common symbol is undefined with a value */ | |||
610 | syment->n_scnum = N_UNDEF((short)0); | |||
611 | syment->n_value = coff_symbol_ptr->symbol.value; | |||
612 | } | |||
613 | else if ((coff_symbol_ptr->symbol.flags & BSF_DEBUGGING0x08) != 0 | |||
614 | && (coff_symbol_ptr->symbol.flags & BSF_DEBUGGING_RELOC0x20000) == 0) | |||
615 | { | |||
616 | syment->n_value = coff_symbol_ptr->symbol.value; | |||
617 | } | |||
618 | else if (bfd_is_und_section (coff_symbol_ptr->symbol.section)((coff_symbol_ptr->symbol.section) == ((asection *) &bfd_und_section ))) | |||
619 | { | |||
620 | syment->n_scnum = N_UNDEF((short)0); | |||
621 | syment->n_value = 0; | |||
622 | } | |||
623 | /* FIXME: Do we need to handle the absolute section here? */ | |||
624 | else | |||
625 | { | |||
626 | if (coff_symbol_ptr->symbol.section) | |||
627 | { | |||
628 | syment->n_scnum = | |||
629 | coff_symbol_ptr->symbol.section->output_section->target_index; | |||
630 | ||||
631 | syment->n_value = (coff_symbol_ptr->symbol.value | |||
632 | + coff_symbol_ptr->symbol.section->output_offset); | |||
633 | if (! obj_pe (abfd)(((abfd)->tdata.coff_obj_data)->pe)) | |||
634 | { | |||
635 | syment->n_value += (syment->n_sclass == C_STATLAB20) | |||
636 | ? coff_symbol_ptr->symbol.section->output_section->lma | |||
637 | : coff_symbol_ptr->symbol.section->output_section->vma; | |||
638 | } | |||
639 | } | |||
640 | else | |||
641 | { | |||
642 | BFD_ASSERT (0){ if (!(0)) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,642); }; | |||
643 | /* This can happen, but I don't know why yet (steve@cygnus.com) */ | |||
644 | syment->n_scnum = N_ABS((short)-1); | |||
645 | syment->n_value = coff_symbol_ptr->symbol.value; | |||
646 | } | |||
647 | } | |||
648 | } | |||
649 | ||||
650 | /* Run through all the symbols in the symbol table and work out what | |||
651 | their indexes into the symbol table will be when output. | |||
652 | ||||
653 | Coff requires that each C_FILE symbol points to the next one in the | |||
654 | chain, and that the last one points to the first external symbol. We | |||
655 | do that here too. */ | |||
656 | ||||
657 | bfd_boolean | |||
658 | coff_renumber_symbols (bfd_ptr, first_undef) | |||
659 | bfd *bfd_ptr; | |||
660 | int *first_undef; | |||
661 | { | |||
662 | unsigned int symbol_count = bfd_get_symcount (bfd_ptr)((bfd_ptr)->symcount); | |||
663 | asymbol **symbol_ptr_ptr = bfd_ptr->outsymbols; | |||
664 | unsigned int native_index = 0; | |||
665 | struct internal_syment *last_file = (struct internal_syment *) NULL((void*)0); | |||
666 | unsigned int symbol_index; | |||
667 | ||||
668 | /* COFF demands that undefined symbols come after all other symbols. | |||
669 | Since we don't need to impose this extra knowledge on all our | |||
670 | client programs, deal with that here. Sort the symbol table; | |||
671 | just move the undefined symbols to the end, leaving the rest | |||
672 | alone. The O'Reilly book says that defined global symbols come | |||
673 | at the end before the undefined symbols, so we do that here as | |||
674 | well. */ | |||
675 | /* @@ Do we have some condition we could test for, so we don't always | |||
676 | have to do this? I don't think relocatability is quite right, but | |||
677 | I'm not certain. [raeburn:19920508.1711EST] */ | |||
678 | { | |||
679 | asymbol **newsyms; | |||
680 | unsigned int i; | |||
681 | bfd_size_type amt; | |||
682 | ||||
683 | amt = sizeof (asymbol *) * ((bfd_size_type) symbol_count + 1); | |||
684 | newsyms = (asymbol **) bfd_alloc (bfd_ptr, amt); | |||
685 | if (!newsyms) | |||
| ||||
686 | return FALSE0; | |||
687 | bfd_ptr->outsymbols = newsyms; | |||
688 | for (i = 0; i < symbol_count; i++) | |||
689 | if ((symbol_ptr_ptr[i]->flags & BSF_NOT_AT_END0x400) != 0 | |||
690 | || (!bfd_is_und_section (symbol_ptr_ptr[i]->section)((symbol_ptr_ptr[i]->section) == ((asection *) &bfd_und_section )) | |||
691 | && !bfd_is_com_section (symbol_ptr_ptr[i]->section)(((symbol_ptr_ptr[i]->section)->flags & 0x8000) != 0 ) | |||
692 | && ((symbol_ptr_ptr[i]->flags & BSF_FUNCTION0x10) != 0 | |||
693 | || ((symbol_ptr_ptr[i]->flags & (BSF_GLOBAL0x02 | BSF_WEAK0x80)) | |||
694 | == 0)))) | |||
695 | *newsyms++ = symbol_ptr_ptr[i]; | |||
696 | ||||
697 | for (i = 0; i < symbol_count; i++) | |||
698 | if ((symbol_ptr_ptr[i]->flags & BSF_NOT_AT_END0x400) == 0 | |||
699 | && !bfd_is_und_section (symbol_ptr_ptr[i]->section)((symbol_ptr_ptr[i]->section) == ((asection *) &bfd_und_section )) | |||
700 | && (bfd_is_com_section (symbol_ptr_ptr[i]->section)(((symbol_ptr_ptr[i]->section)->flags & 0x8000) != 0 ) | |||
701 | || ((symbol_ptr_ptr[i]->flags & BSF_FUNCTION0x10) == 0 | |||
702 | && ((symbol_ptr_ptr[i]->flags & (BSF_GLOBAL0x02 | BSF_WEAK0x80)) | |||
703 | != 0)))) | |||
704 | *newsyms++ = symbol_ptr_ptr[i]; | |||
705 | ||||
706 | *first_undef = newsyms - bfd_ptr->outsymbols; | |||
707 | ||||
708 | for (i = 0; i < symbol_count; i++) | |||
709 | if ((symbol_ptr_ptr[i]->flags & BSF_NOT_AT_END0x400) == 0 | |||
710 | && bfd_is_und_section (symbol_ptr_ptr[i]->section)((symbol_ptr_ptr[i]->section) == ((asection *) &bfd_und_section ))) | |||
711 | *newsyms++ = symbol_ptr_ptr[i]; | |||
712 | *newsyms = (asymbol *) NULL((void*)0); | |||
713 | symbol_ptr_ptr = bfd_ptr->outsymbols; | |||
714 | } | |||
715 | ||||
716 | for (symbol_index = 0; symbol_index < symbol_count; symbol_index++) | |||
717 | { | |||
718 | coff_symbol_type *coff_symbol_ptr = coff_symbol_from (bfd_ptr, symbol_ptr_ptr[symbol_index]); | |||
719 | symbol_ptr_ptr[symbol_index]->udata.i = symbol_index; | |||
720 | if (coff_symbol_ptr && coff_symbol_ptr->native) | |||
721 | { | |||
722 | combined_entry_type *s = coff_symbol_ptr->native; | |||
723 | int i; | |||
724 | ||||
725 | if (s->u.syment.n_sclass == C_FILE103) | |||
726 | { | |||
727 | if (last_file != (struct internal_syment *) NULL((void*)0)) | |||
728 | last_file->n_value = native_index; | |||
729 | last_file = &(s->u.syment); | |||
730 | } | |||
731 | else | |||
732 | { | |||
733 | ||||
734 | /* Modify the symbol values according to their section and | |||
735 | type */ | |||
736 | ||||
737 | fixup_symbol_value (bfd_ptr, coff_symbol_ptr, &(s->u.syment)); | |||
738 | } | |||
739 | for (i = 0; i < s->u.syment.n_numaux + 1; i++) | |||
740 | s[i].offset = native_index++; | |||
741 | } | |||
742 | else | |||
743 | { | |||
744 | native_index++; | |||
745 | } | |||
746 | } | |||
747 | obj_conv_table_size (bfd_ptr)(((bfd_ptr)->tdata.coff_obj_data)->conv_table_size) = native_index; | |||
748 | ||||
749 | return TRUE1; | |||
750 | } | |||
751 | ||||
752 | /* Run thorough the symbol table again, and fix it so that all | |||
753 | pointers to entries are changed to the entries' index in the output | |||
754 | symbol table. */ | |||
755 | ||||
756 | void | |||
757 | coff_mangle_symbols (bfd_ptr) | |||
758 | bfd *bfd_ptr; | |||
759 | { | |||
760 | unsigned int symbol_count = bfd_get_symcount (bfd_ptr)((bfd_ptr)->symcount); | |||
761 | asymbol **symbol_ptr_ptr = bfd_ptr->outsymbols; | |||
762 | unsigned int symbol_index; | |||
763 | ||||
764 | for (symbol_index = 0; symbol_index < symbol_count; symbol_index++) | |||
765 | { | |||
766 | coff_symbol_type *coff_symbol_ptr = | |||
767 | coff_symbol_from (bfd_ptr, symbol_ptr_ptr[symbol_index]); | |||
768 | ||||
769 | if (coff_symbol_ptr && coff_symbol_ptr->native) | |||
770 | { | |||
771 | int i; | |||
772 | combined_entry_type *s = coff_symbol_ptr->native; | |||
773 | ||||
774 | if (s->fix_value) | |||
775 | { | |||
776 | /* FIXME: We should use a union here. */ | |||
777 | s->u.syment.n_value = | |||
778 | (bfd_vma)((combined_entry_type *) | |||
779 | ((unsigned long) s->u.syment.n_value))->offset; | |||
780 | s->fix_value = 0; | |||
781 | } | |||
782 | if (s->fix_line) | |||
783 | { | |||
784 | /* The value is the offset into the line number entries | |||
785 | for the symbol's section. On output, the symbol's | |||
786 | section should be N_DEBUG. */ | |||
787 | s->u.syment.n_value = | |||
788 | (coff_symbol_ptr->symbol.section->output_section->line_filepos | |||
789 | + s->u.syment.n_value * bfd_coff_linesz (bfd_ptr)(((bfd_coff_backend_data *) (bfd_ptr)->xvec->backend_data )->_bfd_linesz)); | |||
790 | coff_symbol_ptr->symbol.section = | |||
791 | coff_section_from_bfd_index (bfd_ptr, N_DEBUG((short)-2)); | |||
792 | BFD_ASSERT (coff_symbol_ptr->symbol.flags & BSF_DEBUGGING){ if (!(coff_symbol_ptr->symbol.flags & 0x08)) bfd_assert ("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c",792); }; | |||
793 | } | |||
794 | for (i = 0; i < s->u.syment.n_numaux; i++) | |||
795 | { | |||
796 | combined_entry_type *a = s + i + 1; | |||
797 | if (a->fix_tag) | |||
798 | { | |||
799 | a->u.auxent.x_sym.x_tagndx.l = | |||
800 | a->u.auxent.x_sym.x_tagndx.p->offset; | |||
801 | a->fix_tag = 0; | |||
802 | } | |||
803 | if (a->fix_end) | |||
804 | { | |||
805 | a->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l = | |||
806 | a->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p->offset; | |||
807 | a->fix_end = 0; | |||
808 | } | |||
809 | if (a->fix_scnlen) | |||
810 | { | |||
811 | a->u.auxent.x_csect.x_scnlen.l = | |||
812 | a->u.auxent.x_csect.x_scnlen.p->offset; | |||
813 | a->fix_scnlen = 0; | |||
814 | } | |||
815 | } | |||
816 | } | |||
817 | } | |||
818 | } | |||
819 | ||||
820 | static void | |||
821 | coff_fix_symbol_name (abfd, symbol, native, string_size_p, | |||
822 | debug_string_section_p, debug_string_size_p) | |||
823 | bfd *abfd; | |||
824 | asymbol *symbol; | |||
825 | combined_entry_type *native; | |||
826 | bfd_size_type *string_size_p; | |||
827 | asection **debug_string_section_p; | |||
828 | bfd_size_type *debug_string_size_p; | |||
829 | { | |||
830 | unsigned int name_length; | |||
831 | union internal_auxent *auxent; | |||
832 | char *name = (char *) (symbol->name); | |||
833 | ||||
834 | if (name == (char *) NULL((void*)0)) | |||
835 | { | |||
836 | /* coff symbols always have names, so we'll make one up */ | |||
837 | symbol->name = "strange"; | |||
838 | name = (char *) symbol->name; | |||
839 | } | |||
840 | name_length = strlen (name); | |||
841 | ||||
842 | if (native->u.syment.n_sclass == C_FILE103 | |||
843 | && native->u.syment.n_numaux > 0) | |||
844 | { | |||
845 | unsigned int filnmlen; | |||
846 | ||||
847 | if (bfd_coff_force_symnames_in_strings (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_force_symnames_in_strings)) | |||
848 | { | |||
849 | native->u.syment._n._n_n._n_offset = | |||
850 | (*string_size_p + STRING_SIZE_SIZE(4)); | |||
851 | native->u.syment._n._n_n._n_zeroes = 0; | |||
852 | *string_size_p += 6; /* strlen(".file") + 1 */ | |||
853 | } | |||
854 | else | |||
855 | strncpy (native->u.syment._n._n_name, ".file", SYMNMLEN8); | |||
856 | ||||
857 | auxent = &(native + 1)->u.auxent; | |||
858 | ||||
859 | filnmlen = bfd_coff_filnmlen (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_filnmlen); | |||
860 | ||||
861 | if (bfd_coff_long_filenames (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_long_filenames)) | |||
862 | { | |||
863 | if (name_length <= filnmlen) | |||
864 | { | |||
865 | strncpy (auxent->x_file.x_fname, name, filnmlen); | |||
866 | } | |||
867 | else | |||
868 | { | |||
869 | auxent->x_file.x_n.x_offset = *string_size_p + STRING_SIZE_SIZE(4); | |||
870 | auxent->x_file.x_n.x_zeroes = 0; | |||
871 | *string_size_p += name_length + 1; | |||
872 | } | |||
873 | } | |||
874 | else | |||
875 | { | |||
876 | strncpy (auxent->x_file.x_fname, name, filnmlen); | |||
877 | if (name_length > filnmlen) | |||
878 | name[filnmlen] = '\0'; | |||
879 | } | |||
880 | } | |||
881 | else | |||
882 | { | |||
883 | if (name_length <= SYMNMLEN8 && !bfd_coff_force_symnames_in_strings (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_force_symnames_in_strings)) | |||
884 | { | |||
885 | /* This name will fit into the symbol neatly */ | |||
886 | strncpy (native->u.syment._n._n_name, symbol->name, SYMNMLEN8); | |||
887 | } | |||
888 | else if (!bfd_coff_symname_in_debug (abfd, &native->u.syment)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_symname_in_debug) (abfd, &native->u.syment ))) | |||
889 | { | |||
890 | native->u.syment._n._n_n._n_offset = (*string_size_p | |||
891 | + STRING_SIZE_SIZE(4)); | |||
892 | native->u.syment._n._n_n._n_zeroes = 0; | |||
893 | *string_size_p += name_length + 1; | |||
894 | } | |||
895 | else | |||
896 | { | |||
897 | file_ptr filepos; | |||
898 | bfd_byte buf[4]; | |||
899 | int prefix_len = bfd_coff_debug_string_prefix_length (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_debug_string_prefix_length); | |||
900 | ||||
901 | /* This name should be written into the .debug section. For | |||
902 | some reason each name is preceded by a two byte length | |||
903 | and also followed by a null byte. FIXME: We assume that | |||
904 | the .debug section has already been created, and that it | |||
905 | is large enough. */ | |||
906 | if (*debug_string_section_p == (asection *) NULL((void*)0)) | |||
907 | *debug_string_section_p = bfd_get_section_by_name (abfd, ".debug"); | |||
908 | filepos = bfd_tell (abfd); | |||
909 | if (prefix_len == 4) | |||
910 | bfd_put_32 (abfd, (bfd_vma) (name_length + 1), buf)((*((abfd)->xvec->bfd_putx32)) (((bfd_vma) (name_length + 1)),(buf))); | |||
911 | else | |||
912 | bfd_put_16 (abfd, (bfd_vma) (name_length + 1), buf)((*((abfd)->xvec->bfd_putx16)) (((bfd_vma) (name_length + 1)),(buf))); | |||
913 | ||||
914 | if (!bfd_set_section_contents (abfd, | |||
915 | *debug_string_section_p, | |||
916 | (PTRvoid *) buf, | |||
917 | (file_ptr) *debug_string_size_p, | |||
918 | (bfd_size_type) prefix_len) | |||
919 | || !bfd_set_section_contents (abfd, | |||
920 | *debug_string_section_p, | |||
921 | (PTRvoid *) symbol->name, | |||
922 | (file_ptr) (*debug_string_size_p | |||
923 | + prefix_len), | |||
924 | (bfd_size_type) name_length + 1)) | |||
925 | abort ()_bfd_abort ("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c", 925 , __PRETTY_FUNCTION__); | |||
926 | if (bfd_seek (abfd, filepos, SEEK_SET0) != 0) | |||
927 | abort ()_bfd_abort ("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c", 927 , __PRETTY_FUNCTION__); | |||
928 | native->u.syment._n._n_n._n_offset = | |||
929 | *debug_string_size_p + prefix_len; | |||
930 | native->u.syment._n._n_n._n_zeroes = 0; | |||
931 | *debug_string_size_p += name_length + 1 + prefix_len; | |||
932 | } | |||
933 | } | |||
934 | } | |||
935 | ||||
936 | /* We need to keep track of the symbol index so that when we write out | |||
937 | the relocs we can get the index for a symbol. This method is a | |||
938 | hack. FIXME. */ | |||
939 | ||||
940 | #define set_index(symbol, idx)((symbol)->udata.i = (idx)) ((symbol)->udata.i = (idx)) | |||
941 | ||||
942 | /* Write a symbol out to a COFF file. */ | |||
943 | ||||
944 | static bfd_boolean | |||
945 | coff_write_symbol (abfd, symbol, native, written, string_size_p, | |||
946 | debug_string_section_p, debug_string_size_p) | |||
947 | bfd *abfd; | |||
948 | asymbol *symbol; | |||
949 | combined_entry_type *native; | |||
950 | bfd_vma *written; | |||
951 | bfd_size_type *string_size_p; | |||
952 | asection **debug_string_section_p; | |||
953 | bfd_size_type *debug_string_size_p; | |||
954 | { | |||
955 | unsigned int numaux = native->u.syment.n_numaux; | |||
956 | int type = native->u.syment.n_type; | |||
957 | int class = native->u.syment.n_sclass; | |||
958 | PTRvoid * buf; | |||
959 | bfd_size_type symesz; | |||
960 | ||||
961 | if (native->u.syment.n_sclass == C_FILE103) | |||
962 | symbol->flags |= BSF_DEBUGGING0x08; | |||
963 | ||||
964 | if (symbol->flags & BSF_DEBUGGING0x08 | |||
965 | && bfd_is_abs_section (symbol->section)((symbol->section) == ((asection *) &bfd_abs_section))) | |||
966 | { | |||
967 | native->u.syment.n_scnum = N_DEBUG((short)-2); | |||
968 | } | |||
969 | else if (bfd_is_abs_section (symbol->section)((symbol->section) == ((asection *) &bfd_abs_section))) | |||
970 | { | |||
971 | native->u.syment.n_scnum = N_ABS((short)-1); | |||
972 | } | |||
973 | else if (bfd_is_und_section (symbol->section)((symbol->section) == ((asection *) &bfd_und_section))) | |||
974 | { | |||
975 | native->u.syment.n_scnum = N_UNDEF((short)0); | |||
976 | } | |||
977 | else | |||
978 | { | |||
979 | native->u.syment.n_scnum = | |||
980 | symbol->section->output_section->target_index; | |||
981 | } | |||
982 | ||||
983 | coff_fix_symbol_name (abfd, symbol, native, string_size_p, | |||
984 | debug_string_section_p, debug_string_size_p); | |||
985 | ||||
986 | symesz = bfd_coff_symesz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_symesz); | |||
987 | buf = bfd_alloc (abfd, symesz); | |||
988 | if (!buf) | |||
989 | return FALSE0; | |||
990 | bfd_coff_swap_sym_out (abfd, &native->u.syment, buf)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_sym_out) (abfd, &native->u.syment , buf)); | |||
991 | if (bfd_bwrite (buf, symesz, abfd) != symesz) | |||
992 | return FALSE0; | |||
993 | bfd_release (abfd, buf); | |||
994 | ||||
995 | if (native->u.syment.n_numaux > 0) | |||
996 | { | |||
997 | bfd_size_type auxesz; | |||
998 | unsigned int j; | |||
999 | ||||
1000 | auxesz = bfd_coff_auxesz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_auxesz); | |||
1001 | buf = bfd_alloc (abfd, auxesz); | |||
1002 | if (!buf) | |||
1003 | return FALSE0; | |||
1004 | for (j = 0; j < native->u.syment.n_numaux; j++) | |||
1005 | { | |||
1006 | bfd_coff_swap_aux_out (abfd,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_out) (abfd,&((native + j + 1)-> u.auxent),type,class,(int) j,native->u.syment.n_numaux,buf )) | |||
1007 | &((native + j + 1)->u.auxent),((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_out) (abfd,&((native + j + 1)-> u.auxent),type,class,(int) j,native->u.syment.n_numaux,buf )) | |||
1008 | type,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_out) (abfd,&((native + j + 1)-> u.auxent),type,class,(int) j,native->u.syment.n_numaux,buf )) | |||
1009 | class,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_out) (abfd,&((native + j + 1)-> u.auxent),type,class,(int) j,native->u.syment.n_numaux,buf )) | |||
1010 | (int) j,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_out) (abfd,&((native + j + 1)-> u.auxent),type,class,(int) j,native->u.syment.n_numaux,buf )) | |||
1011 | native->u.syment.n_numaux,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_out) (abfd,&((native + j + 1)-> u.auxent),type,class,(int) j,native->u.syment.n_numaux,buf )) | |||
1012 | buf)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_out) (abfd,&((native + j + 1)-> u.auxent),type,class,(int) j,native->u.syment.n_numaux,buf )); | |||
1013 | if (bfd_bwrite (buf, auxesz, abfd) != auxesz) | |||
1014 | return FALSE0; | |||
1015 | } | |||
1016 | bfd_release (abfd, buf); | |||
1017 | } | |||
1018 | ||||
1019 | /* Store the index for use when we write out the relocs. */ | |||
1020 | set_index (symbol, *written)((symbol)->udata.i = (*written)); | |||
1021 | ||||
1022 | *written += numaux + 1; | |||
1023 | return TRUE1; | |||
1024 | } | |||
1025 | ||||
1026 | /* Write out a symbol to a COFF file that does not come from a COFF | |||
1027 | file originally. This symbol may have been created by the linker, | |||
1028 | or we may be linking a non COFF file to a COFF file. */ | |||
1029 | ||||
1030 | static bfd_boolean | |||
1031 | coff_write_alien_symbol (abfd, symbol, written, string_size_p, | |||
1032 | debug_string_section_p, debug_string_size_p) | |||
1033 | bfd *abfd; | |||
1034 | asymbol *symbol; | |||
1035 | bfd_vma *written; | |||
1036 | bfd_size_type *string_size_p; | |||
1037 | asection **debug_string_section_p; | |||
1038 | bfd_size_type *debug_string_size_p; | |||
1039 | { | |||
1040 | combined_entry_type *native; | |||
1041 | combined_entry_type dummy; | |||
1042 | ||||
1043 | native = &dummy; | |||
1044 | native->u.syment.n_type = T_NULL0; | |||
1045 | native->u.syment.n_flags = 0; | |||
1046 | if (bfd_is_und_section (symbol->section)((symbol->section) == ((asection *) &bfd_und_section))) | |||
1047 | { | |||
1048 | native->u.syment.n_scnum = N_UNDEF((short)0); | |||
1049 | native->u.syment.n_value = symbol->value; | |||
1050 | } | |||
1051 | else if (bfd_is_com_section (symbol->section)(((symbol->section)->flags & 0x8000) != 0)) | |||
1052 | { | |||
1053 | native->u.syment.n_scnum = N_UNDEF((short)0); | |||
1054 | native->u.syment.n_value = symbol->value; | |||
1055 | } | |||
1056 | else if (symbol->flags & BSF_DEBUGGING0x08) | |||
1057 | { | |||
1058 | /* There isn't much point to writing out a debugging symbol | |||
1059 | unless we are prepared to convert it into COFF debugging | |||
1060 | format. So, we just ignore them. We must clobber the symbol | |||
1061 | name to keep it from being put in the string table. */ | |||
1062 | symbol->name = ""; | |||
1063 | return TRUE1; | |||
1064 | } | |||
1065 | else | |||
1066 | { | |||
1067 | native->u.syment.n_scnum = | |||
1068 | symbol->section->output_section->target_index; | |||
1069 | native->u.syment.n_value = (symbol->value | |||
1070 | + symbol->section->output_offset); | |||
1071 | if (! obj_pe (abfd)(((abfd)->tdata.coff_obj_data)->pe)) | |||
1072 | native->u.syment.n_value += symbol->section->output_section->vma; | |||
1073 | ||||
1074 | /* Copy the any flags from the file header into the symbol. | |||
1075 | FIXME: Why? */ | |||
1076 | { | |||
1077 | coff_symbol_type *c = coff_symbol_from (abfd, symbol); | |||
1078 | if (c != (coff_symbol_type *) NULL((void*)0)) | |||
1079 | native->u.syment.n_flags = bfd_asymbol_bfd (&c->symbol)((&c->symbol)->the_bfd)->flags; | |||
1080 | } | |||
1081 | } | |||
1082 | ||||
1083 | native->u.syment.n_type = 0; | |||
1084 | if (symbol->flags & BSF_LOCAL0x01) | |||
1085 | native->u.syment.n_sclass = C_STAT3; | |||
1086 | else if (symbol->flags & BSF_WEAK0x80) | |||
1087 | native->u.syment.n_sclass = obj_pe (abfd)(((abfd)->tdata.coff_obj_data)->pe) ? C_NT_WEAK105 : C_WEAKEXT127; | |||
1088 | else | |||
1089 | native->u.syment.n_sclass = C_EXT2; | |||
1090 | native->u.syment.n_numaux = 0; | |||
1091 | ||||
1092 | return coff_write_symbol (abfd, symbol, native, written, string_size_p, | |||
1093 | debug_string_section_p, debug_string_size_p); | |||
1094 | } | |||
1095 | ||||
1096 | /* Write a native symbol to a COFF file. */ | |||
1097 | ||||
1098 | static bfd_boolean | |||
1099 | coff_write_native_symbol (abfd, symbol, written, string_size_p, | |||
1100 | debug_string_section_p, debug_string_size_p) | |||
1101 | bfd *abfd; | |||
1102 | coff_symbol_type *symbol; | |||
1103 | bfd_vma *written; | |||
1104 | bfd_size_type *string_size_p; | |||
1105 | asection **debug_string_section_p; | |||
1106 | bfd_size_type *debug_string_size_p; | |||
1107 | { | |||
1108 | combined_entry_type *native = symbol->native; | |||
1109 | alent *lineno = symbol->lineno; | |||
1110 | ||||
1111 | /* If this symbol has an associated line number, we must store the | |||
1112 | symbol index in the line number field. We also tag the auxent to | |||
1113 | point to the right place in the lineno table. */ | |||
1114 | if (lineno && !symbol->done_lineno && symbol->symbol.section->owner != NULL((void*)0)) | |||
1115 | { | |||
1116 | unsigned int count = 0; | |||
1117 | lineno[count].u.offset = *written; | |||
1118 | if (native->u.syment.n_numaux) | |||
1119 | { | |||
1120 | union internal_auxent *a = &((native + 1)->u.auxent); | |||
1121 | ||||
1122 | a->x_sym.x_fcnary.x_fcn.x_lnnoptr = | |||
1123 | symbol->symbol.section->output_section->moving_line_filepos; | |||
1124 | } | |||
1125 | ||||
1126 | /* Count and relocate all other linenumbers. */ | |||
1127 | count++; | |||
1128 | while (lineno[count].line_number != 0) | |||
1129 | { | |||
1130 | #if 0 | |||
1131 | /* 13 april 92. sac | |||
1132 | I've been told this, but still need proof: | |||
1133 | > The second bug is also in `bfd/coffcode.h'. This bug | |||
1134 | > causes the linker to screw up the pc-relocations for | |||
1135 | > all the line numbers in COFF code. This bug isn't only | |||
1136 | > specific to A29K implementations, but affects all | |||
1137 | > systems using COFF format binaries. Note that in COFF | |||
1138 | > object files, the line number core offsets output by | |||
1139 | > the assembler are relative to the start of each | |||
1140 | > procedure, not to the start of the .text section. This | |||
1141 | > patch relocates the line numbers relative to the | |||
1142 | > `native->u.syment.n_value' instead of the section | |||
1143 | > virtual address. | |||
1144 | > modular!olson@cs.arizona.edu (Jon Olson) | |||
1145 | */ | |||
1146 | lineno[count].u.offset += native->u.syment.n_value; | |||
1147 | #else | |||
1148 | lineno[count].u.offset += | |||
1149 | (symbol->symbol.section->output_section->vma | |||
1150 | + symbol->symbol.section->output_offset); | |||
1151 | #endif | |||
1152 | count++; | |||
1153 | } | |||
1154 | symbol->done_lineno = TRUE1; | |||
1155 | ||||
1156 | if (! bfd_is_const_section (symbol->symbol.section->output_section)( ((symbol->symbol.section->output_section) == ((asection *) &bfd_abs_section)) || ((symbol->symbol.section-> output_section) == ((asection *) &bfd_und_section)) || (( symbol->symbol.section->output_section) == ((asection * ) &bfd_com_section)) || ((symbol->symbol.section->output_section ) == ((asection *) &bfd_ind_section)))) | |||
1157 | symbol->symbol.section->output_section->moving_line_filepos += | |||
1158 | count * bfd_coff_linesz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_linesz); | |||
1159 | } | |||
1160 | ||||
1161 | return coff_write_symbol (abfd, &(symbol->symbol), native, written, | |||
1162 | string_size_p, debug_string_section_p, | |||
1163 | debug_string_size_p); | |||
1164 | } | |||
1165 | ||||
1166 | /* Write out the COFF symbols. */ | |||
1167 | ||||
1168 | bfd_boolean | |||
1169 | coff_write_symbols (abfd) | |||
1170 | bfd *abfd; | |||
1171 | { | |||
1172 | bfd_size_type string_size; | |||
1173 | asection *debug_string_section; | |||
1174 | bfd_size_type debug_string_size; | |||
1175 | unsigned int i; | |||
1176 | unsigned int limit = bfd_get_symcount (abfd)((abfd)->symcount); | |||
1177 | bfd_signed_vma written = 0; | |||
1178 | asymbol **p; | |||
1179 | ||||
1180 | string_size = 0; | |||
1181 | debug_string_section = NULL((void*)0); | |||
1182 | debug_string_size = 0; | |||
1183 | ||||
1184 | /* If this target supports long section names, they must be put into | |||
1185 | the string table. This is supported by PE. This code must | |||
1186 | handle section names just as they are handled in | |||
1187 | coff_write_object_contents. */ | |||
1188 | if (bfd_coff_long_section_names (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_long_section_names)) | |||
1189 | { | |||
1190 | asection *o; | |||
1191 | ||||
1192 | for (o = abfd->sections; o != NULL((void*)0); o = o->next) | |||
1193 | { | |||
1194 | size_t len; | |||
1195 | ||||
1196 | len = strlen (o->name); | |||
1197 | if (len > SCNNMLEN(8)) | |||
1198 | string_size += len + 1; | |||
1199 | } | |||
1200 | } | |||
1201 | ||||
1202 | /* Seek to the right place */ | |||
1203 | if (bfd_seek (abfd, obj_sym_filepos (abfd)(((abfd)->tdata.coff_obj_data)->sym_filepos), SEEK_SET0) != 0) | |||
1204 | return FALSE0; | |||
1205 | ||||
1206 | /* Output all the symbols we have */ | |||
1207 | ||||
1208 | written = 0; | |||
1209 | for (p = abfd->outsymbols, i = 0; i < limit; i++, p++) | |||
1210 | { | |||
1211 | asymbol *symbol = *p; | |||
1212 | coff_symbol_type *c_symbol = coff_symbol_from (abfd, symbol); | |||
1213 | ||||
1214 | if (c_symbol == (coff_symbol_type *) NULL((void*)0) | |||
1215 | || c_symbol->native == (combined_entry_type *) NULL((void*)0)) | |||
1216 | { | |||
1217 | if (!coff_write_alien_symbol (abfd, symbol, &written, &string_size, | |||
1218 | &debug_string_section, | |||
1219 | &debug_string_size)) | |||
1220 | return FALSE0; | |||
1221 | } | |||
1222 | else | |||
1223 | { | |||
1224 | if (!coff_write_native_symbol (abfd, c_symbol, &written, | |||
1225 | &string_size, &debug_string_section, | |||
1226 | &debug_string_size)) | |||
1227 | return FALSE0; | |||
1228 | } | |||
1229 | } | |||
1230 | ||||
1231 | obj_raw_syment_count (abfd)(((abfd)->tdata.coff_obj_data)->raw_syment_count) = written; | |||
1232 | ||||
1233 | /* Now write out strings */ | |||
1234 | ||||
1235 | if (string_size != 0) | |||
1236 | { | |||
1237 | unsigned int size = string_size + STRING_SIZE_SIZE(4); | |||
1238 | bfd_byte buffer[STRING_SIZE_SIZE(4)]; | |||
1239 | ||||
1240 | #if STRING_SIZE_SIZE(4) == 4 | |||
1241 | H_PUT_32 (abfd, size, buffer)((*((abfd)->xvec->bfd_h_putx32)) (size, buffer)); | |||
1242 | #else | |||
1243 | #error Change H_PUT_32bfd_h_put_32 | |||
1244 | #endif | |||
1245 | if (bfd_bwrite ((PTRvoid *) buffer, (bfd_size_type) sizeof (buffer), abfd) | |||
1246 | != sizeof (buffer)) | |||
1247 | return FALSE0; | |||
1248 | ||||
1249 | /* Handle long section names. This code must handle section | |||
1250 | names just as they are handled in coff_write_object_contents. */ | |||
1251 | if (bfd_coff_long_section_names (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_long_section_names)) | |||
1252 | { | |||
1253 | asection *o; | |||
1254 | ||||
1255 | for (o = abfd->sections; o != NULL((void*)0); o = o->next) | |||
1256 | { | |||
1257 | size_t len; | |||
1258 | ||||
1259 | len = strlen (o->name); | |||
1260 | if (len > SCNNMLEN(8)) | |||
1261 | { | |||
1262 | if (bfd_bwrite (o->name, (bfd_size_type) (len + 1), abfd) | |||
1263 | != len + 1) | |||
1264 | return FALSE0; | |||
1265 | } | |||
1266 | } | |||
1267 | } | |||
1268 | ||||
1269 | for (p = abfd->outsymbols, i = 0; | |||
1270 | i < limit; | |||
1271 | i++, p++) | |||
1272 | { | |||
1273 | asymbol *q = *p; | |||
1274 | size_t name_length = strlen (q->name); | |||
1275 | coff_symbol_type *c_symbol = coff_symbol_from (abfd, q); | |||
1276 | size_t maxlen; | |||
1277 | ||||
1278 | /* Figure out whether the symbol name should go in the string | |||
1279 | table. Symbol names that are short enough are stored | |||
1280 | directly in the syment structure. File names permit a | |||
1281 | different, longer, length in the syment structure. On | |||
1282 | XCOFF, some symbol names are stored in the .debug section | |||
1283 | rather than in the string table. */ | |||
1284 | ||||
1285 | if (c_symbol == NULL((void*)0) | |||
1286 | || c_symbol->native == NULL((void*)0)) | |||
1287 | { | |||
1288 | /* This is not a COFF symbol, so it certainly is not a | |||
1289 | file name, nor does it go in the .debug section. */ | |||
1290 | maxlen = bfd_coff_force_symnames_in_strings (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_force_symnames_in_strings) ? 0 : SYMNMLEN8; | |||
1291 | } | |||
1292 | else if (bfd_coff_symname_in_debug (abfd,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_symname_in_debug) (abfd, &c_symbol->native ->u.syment)) | |||
1293 | &c_symbol->native->u.syment)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_symname_in_debug) (abfd, &c_symbol->native ->u.syment))) | |||
1294 | { | |||
1295 | /* This symbol name is in the XCOFF .debug section. | |||
1296 | Don't write it into the string table. */ | |||
1297 | maxlen = name_length; | |||
1298 | } | |||
1299 | else if (c_symbol->native->u.syment.n_sclass == C_FILE103 | |||
1300 | && c_symbol->native->u.syment.n_numaux > 0) | |||
1301 | { | |||
1302 | if (bfd_coff_force_symnames_in_strings (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_force_symnames_in_strings)) | |||
1303 | { | |||
1304 | if (bfd_bwrite (".file", (bfd_size_type) 6, abfd) != 6) | |||
1305 | return FALSE0; | |||
1306 | } | |||
1307 | maxlen = bfd_coff_filnmlen (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_filnmlen); | |||
1308 | } | |||
1309 | else | |||
1310 | maxlen = bfd_coff_force_symnames_in_strings (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_coff_force_symnames_in_strings) ? 0 : SYMNMLEN8; | |||
1311 | ||||
1312 | if (name_length > maxlen) | |||
1313 | { | |||
1314 | if (bfd_bwrite ((PTRvoid *) (q->name), (bfd_size_type) name_length + 1, | |||
1315 | abfd) != name_length + 1) | |||
1316 | return FALSE0; | |||
1317 | } | |||
1318 | } | |||
1319 | } | |||
1320 | else | |||
1321 | { | |||
1322 | /* We would normally not write anything here, but we'll write | |||
1323 | out 4 so that any stupid coff reader which tries to read the | |||
1324 | string table even when there isn't one won't croak. */ | |||
1325 | unsigned int size = STRING_SIZE_SIZE(4); | |||
1326 | bfd_byte buffer[STRING_SIZE_SIZE(4)]; | |||
1327 | ||||
1328 | #if STRING_SIZE_SIZE(4) == 4 | |||
1329 | H_PUT_32 (abfd, size, buffer)((*((abfd)->xvec->bfd_h_putx32)) (size, buffer)); | |||
1330 | #else | |||
1331 | #error Change H_PUT_32bfd_h_put_32 | |||
1332 | #endif | |||
1333 | if (bfd_bwrite ((PTRvoid *) buffer, (bfd_size_type) STRING_SIZE_SIZE(4), abfd) | |||
1334 | != STRING_SIZE_SIZE(4)) | |||
1335 | return FALSE0; | |||
1336 | } | |||
1337 | ||||
1338 | /* Make sure the .debug section was created to be the correct size. | |||
1339 | We should create it ourselves on the fly, but we don't because | |||
1340 | BFD won't let us write to any section until we know how large all | |||
1341 | the sections are. We could still do it by making another pass | |||
1342 | over the symbols. FIXME. */ | |||
1343 | BFD_ASSERT (debug_string_size == 0{ if (!(debug_string_size == 0 || (debug_string_section != (asection *) ((void*)0) && (((((bfd_vma) (debug_string_size) + (1 << debug_string_section->alignment_power) - 1) >= (bfd_vma) (debug_string_size)) ? (((bfd_vma) (debug_string_size ) + ((1 << debug_string_section->alignment_power) - 1 )) & ~ (bfd_vma) ((1 << debug_string_section->alignment_power )-1)) : ~ (bfd_vma) 0) == ((debug_string_section)->_raw_size ))))) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,1347); } | |||
1344 | || (debug_string_section != (asection *) NULL{ if (!(debug_string_size == 0 || (debug_string_section != (asection *) ((void*)0) && (((((bfd_vma) (debug_string_size) + (1 << debug_string_section->alignment_power) - 1) >= (bfd_vma) (debug_string_size)) ? (((bfd_vma) (debug_string_size ) + ((1 << debug_string_section->alignment_power) - 1 )) & ~ (bfd_vma) ((1 << debug_string_section->alignment_power )-1)) : ~ (bfd_vma) 0) == ((debug_string_section)->_raw_size ))))) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,1347); } | |||
1345 | && (BFD_ALIGN (debug_string_size,{ if (!(debug_string_size == 0 || (debug_string_section != (asection *) ((void*)0) && (((((bfd_vma) (debug_string_size) + (1 << debug_string_section->alignment_power) - 1) >= (bfd_vma) (debug_string_size)) ? (((bfd_vma) (debug_string_size ) + ((1 << debug_string_section->alignment_power) - 1 )) & ~ (bfd_vma) ((1 << debug_string_section->alignment_power )-1)) : ~ (bfd_vma) 0) == ((debug_string_section)->_raw_size ))))) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,1347); } | |||
1346 | 1 << debug_string_section->alignment_power){ if (!(debug_string_size == 0 || (debug_string_section != (asection *) ((void*)0) && (((((bfd_vma) (debug_string_size) + (1 << debug_string_section->alignment_power) - 1) >= (bfd_vma) (debug_string_size)) ? (((bfd_vma) (debug_string_size ) + ((1 << debug_string_section->alignment_power) - 1 )) & ~ (bfd_vma) ((1 << debug_string_section->alignment_power )-1)) : ~ (bfd_vma) 0) == ((debug_string_section)->_raw_size ))))) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,1347); } | |||
1347 | == bfd_section_size (abfd, debug_string_section)))){ if (!(debug_string_size == 0 || (debug_string_section != (asection *) ((void*)0) && (((((bfd_vma) (debug_string_size) + (1 << debug_string_section->alignment_power) - 1) >= (bfd_vma) (debug_string_size)) ? (((bfd_vma) (debug_string_size ) + ((1 << debug_string_section->alignment_power) - 1 )) & ~ (bfd_vma) ((1 << debug_string_section->alignment_power )-1)) : ~ (bfd_vma) 0) == ((debug_string_section)->_raw_size ))))) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,1347); }; | |||
1348 | ||||
1349 | return TRUE1; | |||
1350 | } | |||
1351 | ||||
1352 | bfd_boolean | |||
1353 | coff_write_linenumbers (abfd) | |||
1354 | bfd *abfd; | |||
1355 | { | |||
1356 | asection *s; | |||
1357 | bfd_size_type linesz; | |||
1358 | PTRvoid * buff; | |||
1359 | ||||
1360 | linesz = bfd_coff_linesz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_linesz); | |||
1361 | buff = bfd_alloc (abfd, linesz); | |||
1362 | if (!buff) | |||
1363 | return FALSE0; | |||
1364 | for (s = abfd->sections; s != (asection *) NULL((void*)0); s = s->next) | |||
1365 | { | |||
1366 | if (s->lineno_count) | |||
1367 | { | |||
1368 | asymbol **q = abfd->outsymbols; | |||
1369 | if (bfd_seek (abfd, s->line_filepos, SEEK_SET0) != 0) | |||
1370 | return FALSE0; | |||
1371 | /* Find all the linenumbers in this section */ | |||
1372 | while (*q) | |||
1373 | { | |||
1374 | asymbol *p = *q; | |||
1375 | if (p->section->output_section == s) | |||
1376 | { | |||
1377 | alent *l = | |||
1378 | BFD_SEND (bfd_asymbol_bfd (p), _get_lineno,((*((((p)->the_bfd))->xvec->_get_lineno)) (((p)-> the_bfd), p)) | |||
1379 | (bfd_asymbol_bfd (p), p))((*((((p)->the_bfd))->xvec->_get_lineno)) (((p)-> the_bfd), p)); | |||
1380 | if (l) | |||
1381 | { | |||
1382 | /* Found a linenumber entry, output */ | |||
1383 | struct internal_lineno out; | |||
1384 | memset ((PTRvoid *) & out, 0, sizeof (out)); | |||
1385 | out.l_lnno = 0; | |||
1386 | out.l_addr.l_symndx = l->u.offset; | |||
1387 | bfd_coff_swap_lineno_out (abfd, &out, buff)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_lineno_out) (abfd, &out, buff)); | |||
1388 | if (bfd_bwrite (buff, (bfd_size_type) linesz, abfd) | |||
1389 | != linesz) | |||
1390 | return FALSE0; | |||
1391 | l++; | |||
1392 | while (l->line_number) | |||
1393 | { | |||
1394 | out.l_lnno = l->line_number; | |||
1395 | out.l_addr.l_symndx = l->u.offset; | |||
1396 | bfd_coff_swap_lineno_out (abfd, &out, buff)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_lineno_out) (abfd, &out, buff)); | |||
1397 | if (bfd_bwrite (buff, (bfd_size_type) linesz, abfd) | |||
1398 | != linesz) | |||
1399 | return FALSE0; | |||
1400 | l++; | |||
1401 | } | |||
1402 | } | |||
1403 | } | |||
1404 | q++; | |||
1405 | } | |||
1406 | } | |||
1407 | } | |||
1408 | bfd_release (abfd, buff); | |||
1409 | return TRUE1; | |||
1410 | } | |||
1411 | ||||
1412 | alent * | |||
1413 | coff_get_lineno (ignore_abfd, symbol) | |||
1414 | bfd *ignore_abfd ATTRIBUTE_UNUSED__attribute__ ((__unused__)); | |||
1415 | asymbol *symbol; | |||
1416 | { | |||
1417 | return coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->lineno; | |||
1418 | } | |||
1419 | ||||
1420 | #if 0 | |||
1421 | ||||
1422 | /* This is only called from coff_add_missing_symbols, which has been | |||
1423 | disabled. */ | |||
1424 | ||||
1425 | asymbol * | |||
1426 | coff_section_symbol (abfd, name) | |||
1427 | bfd *abfd; | |||
1428 | char *name; | |||
1429 | { | |||
1430 | asection *sec = bfd_make_section_old_way (abfd, name); | |||
1431 | asymbol *sym; | |||
1432 | combined_entry_type *csym; | |||
1433 | ||||
1434 | sym = sec->symbol; | |||
1435 | csym = coff_symbol_from (abfd, sym)->native; | |||
1436 | /* Make sure back-end COFF stuff is there. */ | |||
1437 | if (csym == 0) | |||
1438 | { | |||
1439 | struct foo | |||
1440 | { | |||
1441 | coff_symbol_type sym; | |||
1442 | /* @@FIXME This shouldn't use a fixed size!! */ | |||
1443 | combined_entry_type e[10]; | |||
1444 | }; | |||
1445 | struct foo *f; | |||
1446 | ||||
1447 | f = (struct foo *) bfd_zalloc (abfd, (bfd_size_type) sizeof (*f)); | |||
1448 | if (!f) | |||
1449 | { | |||
1450 | bfd_set_error (bfd_error_no_error); | |||
1451 | return NULL((void*)0); | |||
1452 | } | |||
1453 | coff_symbol_from (abfd, sym)->native = csym = f->e; | |||
1454 | } | |||
1455 | csym[0].u.syment.n_sclass = C_STAT3; | |||
1456 | csym[0].u.syment.n_numaux = 1; | |||
1457 | /* SF_SET_STATICS (sym); @@ ??? */ | |||
1458 | csym[1].u.auxent.x_scn.x_scnlen = sec->_raw_size; | |||
1459 | csym[1].u.auxent.x_scn.x_nreloc = sec->reloc_count; | |||
1460 | csym[1].u.auxent.x_scn.x_nlinno = sec->lineno_count; | |||
1461 | ||||
1462 | if (sec->output_section == NULL((void*)0)) | |||
1463 | { | |||
1464 | sec->output_section = sec; | |||
1465 | sec->output_offset = 0; | |||
1466 | } | |||
1467 | ||||
1468 | return sym; | |||
1469 | } | |||
1470 | ||||
1471 | #endif /* 0 */ | |||
1472 | ||||
1473 | /* This function transforms the offsets into the symbol table into | |||
1474 | pointers to syments. */ | |||
1475 | ||||
1476 | static void | |||
1477 | coff_pointerize_aux (abfd, table_base, symbol, indaux, auxent) | |||
1478 | bfd *abfd; | |||
1479 | combined_entry_type *table_base; | |||
1480 | combined_entry_type *symbol; | |||
1481 | unsigned int indaux; | |||
1482 | combined_entry_type *auxent; | |||
1483 | { | |||
1484 | unsigned int type = symbol->u.syment.n_type; | |||
1485 | unsigned int class = symbol->u.syment.n_sclass; | |||
1486 | ||||
1487 | if (coff_backend_info (abfd)((bfd_coff_backend_data *) (abfd)->xvec->backend_data)->_bfd_coff_pointerize_aux_hook) | |||
1488 | { | |||
1489 | if ((*coff_backend_info (abfd)((bfd_coff_backend_data *) (abfd)->xvec->backend_data)->_bfd_coff_pointerize_aux_hook) | |||
1490 | (abfd, table_base, symbol, indaux, auxent)) | |||
1491 | return; | |||
1492 | } | |||
1493 | ||||
1494 | /* Don't bother if this is a file or a section */ | |||
1495 | if (class == C_STAT3 && type == T_NULL0) | |||
1496 | return; | |||
1497 | if (class == C_FILE103) | |||
1498 | return; | |||
1499 | ||||
1500 | /* Otherwise patch up */ | |||
1501 | #define N_TMASK((abfd)->tdata.coff_obj_data)->local_n_tmask coff_data (abfd)((abfd)->tdata.coff_obj_data)->local_n_tmask | |||
1502 | #define N_BTSHFT((abfd)->tdata.coff_obj_data)->local_n_btshft coff_data (abfd)((abfd)->tdata.coff_obj_data)->local_n_btshft | |||
1503 | if ((ISFCN (type)(((unsigned long) (type) & ((abfd)->tdata.coff_obj_data )->local_n_tmask) == ((unsigned long) (2) << ((abfd) ->tdata.coff_obj_data)->local_n_btshft)) || ISTAG (class)((class) == 10 || (class) == 12 || (class) == 15) || class == C_BLOCK100 || class == C_FCN101) | |||
1504 | && auxent->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l > 0) | |||
1505 | { | |||
1506 | auxent->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p = | |||
1507 | table_base + auxent->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l; | |||
1508 | auxent->fix_end = 1; | |||
1509 | } | |||
1510 | /* A negative tagndx is meaningless, but the SCO 3.2v4 cc can | |||
1511 | generate one, so we must be careful to ignore it. */ | |||
1512 | if (auxent->u.auxent.x_sym.x_tagndx.l > 0) | |||
1513 | { | |||
1514 | auxent->u.auxent.x_sym.x_tagndx.p = | |||
1515 | table_base + auxent->u.auxent.x_sym.x_tagndx.l; | |||
1516 | auxent->fix_tag = 1; | |||
1517 | } | |||
1518 | } | |||
1519 | ||||
1520 | /* Allocate space for the ".debug" section, and read it. | |||
1521 | We did not read the debug section until now, because | |||
1522 | we didn't want to go to the trouble until someone needed it. */ | |||
1523 | ||||
1524 | static char * | |||
1525 | build_debug_section (abfd) | |||
1526 | bfd *abfd; | |||
1527 | { | |||
1528 | char *debug_section; | |||
1529 | file_ptr position; | |||
1530 | bfd_size_type sec_size; | |||
1531 | ||||
1532 | asection *sect = bfd_get_section_by_name (abfd, ".debug"); | |||
1533 | ||||
1534 | if (!sect) | |||
1535 | { | |||
1536 | bfd_set_error (bfd_error_no_debug_section); | |||
1537 | return NULL((void*)0); | |||
1538 | } | |||
1539 | ||||
1540 | sec_size = bfd_get_section_size_before_reloc (sect)((sect)->_raw_size); | |||
1541 | debug_section = (PTRvoid *) bfd_alloc (abfd, sec_size); | |||
1542 | if (debug_section == NULL((void*)0)) | |||
1543 | return NULL((void*)0); | |||
1544 | ||||
1545 | /* Seek to the beginning of the `.debug' section and read it. | |||
1546 | Save the current position first; it is needed by our caller. | |||
1547 | Then read debug section and reset the file pointer. */ | |||
1548 | ||||
1549 | position = bfd_tell (abfd); | |||
1550 | if (bfd_seek (abfd, sect->filepos, SEEK_SET0) != 0 | |||
1551 | || bfd_bread (debug_section, sec_size, abfd) != sec_size | |||
1552 | || bfd_seek (abfd, position, SEEK_SET0) != 0) | |||
1553 | return NULL((void*)0); | |||
1554 | return debug_section; | |||
1555 | } | |||
1556 | ||||
1557 | /* Return a pointer to a malloc'd copy of 'name'. 'name' may not be | |||
1558 | \0-terminated, but will not exceed 'maxlen' characters. The copy *will* | |||
1559 | be \0-terminated. */ | |||
1560 | static char * | |||
1561 | copy_name (abfd, name, maxlen) | |||
1562 | bfd *abfd; | |||
1563 | char *name; | |||
1564 | size_t maxlen; | |||
1565 | { | |||
1566 | size_t len; | |||
1567 | char *newname; | |||
1568 | ||||
1569 | for (len = 0; len < maxlen; ++len) | |||
1570 | { | |||
1571 | if (name[len] == '\0') | |||
1572 | { | |||
1573 | break; | |||
1574 | } | |||
1575 | } | |||
1576 | ||||
1577 | if ((newname = (PTRvoid *) bfd_alloc (abfd, (bfd_size_type) len + 1)) == NULL((void*)0)) | |||
1578 | return (NULL((void*)0)); | |||
1579 | strncpy (newname, name, len); | |||
1580 | newname[len] = '\0'; | |||
1581 | return newname; | |||
1582 | } | |||
1583 | ||||
1584 | /* Read in the external symbols. */ | |||
1585 | ||||
1586 | bfd_boolean | |||
1587 | _bfd_coff_get_external_symbols (abfd) | |||
1588 | bfd *abfd; | |||
1589 | { | |||
1590 | bfd_size_type symesz; | |||
1591 | bfd_size_type size; | |||
1592 | PTRvoid * syms; | |||
1593 | ||||
1594 | if (obj_coff_external_syms (abfd)(((abfd)->tdata.coff_obj_data)->external_syms) != NULL((void*)0)) | |||
1595 | return TRUE1; | |||
1596 | ||||
1597 | symesz = bfd_coff_symesz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_symesz); | |||
1598 | ||||
1599 | size = obj_raw_syment_count (abfd)(((abfd)->tdata.coff_obj_data)->raw_syment_count) * symesz; | |||
1600 | ||||
1601 | syms = (PTRvoid *) bfd_malloc (size); | |||
1602 | if (syms == NULL((void*)0) && size != 0) | |||
1603 | return FALSE0; | |||
1604 | ||||
1605 | if (bfd_seek (abfd, obj_sym_filepos (abfd)(((abfd)->tdata.coff_obj_data)->sym_filepos), SEEK_SET0) != 0 | |||
1606 | || bfd_bread (syms, size, abfd) != size) | |||
1607 | { | |||
1608 | if (syms != NULL((void*)0)) | |||
1609 | free (syms); | |||
1610 | return FALSE0; | |||
1611 | } | |||
1612 | ||||
1613 | obj_coff_external_syms (abfd)(((abfd)->tdata.coff_obj_data)->external_syms) = syms; | |||
1614 | ||||
1615 | return TRUE1; | |||
1616 | } | |||
1617 | ||||
1618 | /* Read in the external strings. The strings are not loaded until | |||
1619 | they are needed. This is because we have no simple way of | |||
1620 | detecting a missing string table in an archive. */ | |||
1621 | ||||
1622 | const char * | |||
1623 | _bfd_coff_read_string_table (abfd) | |||
1624 | bfd *abfd; | |||
1625 | { | |||
1626 | char extstrsize[STRING_SIZE_SIZE(4)]; | |||
1627 | bfd_size_type strsize; | |||
1628 | char *strings; | |||
1629 | file_ptr pos; | |||
1630 | ||||
1631 | if (obj_coff_strings (abfd)(((abfd)->tdata.coff_obj_data)->strings) != NULL((void*)0)) | |||
1632 | return obj_coff_strings (abfd)(((abfd)->tdata.coff_obj_data)->strings); | |||
1633 | ||||
1634 | if (obj_sym_filepos (abfd)(((abfd)->tdata.coff_obj_data)->sym_filepos) == 0) | |||
1635 | { | |||
1636 | bfd_set_error (bfd_error_no_symbols); | |||
1637 | return NULL((void*)0); | |||
1638 | } | |||
1639 | ||||
1640 | pos = obj_sym_filepos (abfd)(((abfd)->tdata.coff_obj_data)->sym_filepos); | |||
1641 | pos += obj_raw_syment_count (abfd)(((abfd)->tdata.coff_obj_data)->raw_syment_count) * bfd_coff_symesz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_symesz); | |||
1642 | if (bfd_seek (abfd, pos, SEEK_SET0) != 0) | |||
1643 | return NULL((void*)0); | |||
1644 | ||||
1645 | if (bfd_bread (extstrsize, (bfd_size_type) sizeof extstrsize, abfd) | |||
1646 | != sizeof extstrsize) | |||
1647 | { | |||
1648 | if (bfd_get_error () != bfd_error_file_truncated) | |||
1649 | return NULL((void*)0); | |||
1650 | ||||
1651 | /* There is no string table. */ | |||
1652 | strsize = STRING_SIZE_SIZE(4); | |||
1653 | } | |||
1654 | else | |||
1655 | { | |||
1656 | #if STRING_SIZE_SIZE(4) == 4 | |||
1657 | strsize = H_GET_32 (abfd, extstrsize)((*((abfd)->xvec->bfd_h_getx32)) (extstrsize)); | |||
1658 | #else | |||
1659 | #error Change H_GET_32bfd_h_get_32 | |||
1660 | #endif | |||
1661 | } | |||
1662 | ||||
1663 | if (strsize < STRING_SIZE_SIZE(4)) | |||
1664 | { | |||
1665 | (*_bfd_error_handler) | |||
1666 | (_("%s: bad string table size %lu")("%s: bad string table size %lu"), bfd_archive_filename (abfd), | |||
1667 | (unsigned long) strsize); | |||
1668 | bfd_set_error (bfd_error_bad_value); | |||
1669 | return NULL((void*)0); | |||
1670 | } | |||
1671 | ||||
1672 | strings = (char *) bfd_malloc (strsize); | |||
1673 | if (strings == NULL((void*)0)) | |||
1674 | return NULL((void*)0); | |||
1675 | ||||
1676 | if (bfd_bread (strings + STRING_SIZE_SIZE(4), strsize - STRING_SIZE_SIZE(4), abfd) | |||
1677 | != strsize - STRING_SIZE_SIZE(4)) | |||
1678 | { | |||
1679 | free (strings); | |||
1680 | return NULL((void*)0); | |||
1681 | } | |||
1682 | ||||
1683 | obj_coff_strings (abfd)(((abfd)->tdata.coff_obj_data)->strings) = strings; | |||
1684 | ||||
1685 | return strings; | |||
1686 | } | |||
1687 | ||||
1688 | /* Free up the external symbols and strings read from a COFF file. */ | |||
1689 | ||||
1690 | bfd_boolean | |||
1691 | _bfd_coff_free_symbols (abfd) | |||
1692 | bfd *abfd; | |||
1693 | { | |||
1694 | if (obj_coff_external_syms (abfd)(((abfd)->tdata.coff_obj_data)->external_syms) != NULL((void*)0) | |||
1695 | && ! obj_coff_keep_syms (abfd)(((abfd)->tdata.coff_obj_data)->keep_syms)) | |||
1696 | { | |||
1697 | free (obj_coff_external_syms (abfd)(((abfd)->tdata.coff_obj_data)->external_syms)); | |||
1698 | obj_coff_external_syms (abfd)(((abfd)->tdata.coff_obj_data)->external_syms) = NULL((void*)0); | |||
1699 | } | |||
1700 | if (obj_coff_strings (abfd)(((abfd)->tdata.coff_obj_data)->strings) != NULL((void*)0) | |||
1701 | && ! obj_coff_keep_strings (abfd)(((abfd)->tdata.coff_obj_data)->keep_strings)) | |||
1702 | { | |||
1703 | free (obj_coff_strings (abfd)(((abfd)->tdata.coff_obj_data)->strings)); | |||
1704 | obj_coff_strings (abfd)(((abfd)->tdata.coff_obj_data)->strings) = NULL((void*)0); | |||
1705 | } | |||
1706 | return TRUE1; | |||
1707 | } | |||
1708 | ||||
1709 | /* Read a symbol table into freshly bfd_allocated memory, swap it, and | |||
1710 | knit the symbol names into a normalized form. By normalized here I | |||
1711 | mean that all symbols have an n_offset pointer that points to a null- | |||
1712 | terminated string. */ | |||
1713 | ||||
1714 | combined_entry_type * | |||
1715 | coff_get_normalized_symtab (abfd) | |||
1716 | bfd *abfd; | |||
1717 | { | |||
1718 | combined_entry_type *internal; | |||
1719 | combined_entry_type *internal_ptr; | |||
1720 | combined_entry_type *symbol_ptr; | |||
1721 | combined_entry_type *internal_end; | |||
1722 | size_t symesz; | |||
1723 | char *raw_src; | |||
1724 | char *raw_end; | |||
1725 | const char *string_table = NULL((void*)0); | |||
1726 | char *debug_section = NULL((void*)0); | |||
1727 | bfd_size_type size; | |||
1728 | ||||
1729 | if (obj_raw_syments (abfd)(((abfd)->tdata.coff_obj_data)->raw_syments) != NULL((void*)0)) | |||
1730 | return obj_raw_syments (abfd)(((abfd)->tdata.coff_obj_data)->raw_syments); | |||
1731 | ||||
1732 | size = obj_raw_syment_count (abfd)(((abfd)->tdata.coff_obj_data)->raw_syment_count) * sizeof (combined_entry_type); | |||
1733 | internal = (combined_entry_type *) bfd_zalloc (abfd, size); | |||
1734 | if (internal == NULL((void*)0) && size != 0) | |||
1735 | return NULL((void*)0); | |||
1736 | internal_end = internal + obj_raw_syment_count (abfd)(((abfd)->tdata.coff_obj_data)->raw_syment_count); | |||
1737 | ||||
1738 | if (! _bfd_coff_get_external_symbols (abfd)) | |||
1739 | return NULL((void*)0); | |||
1740 | ||||
1741 | raw_src = (char *) obj_coff_external_syms (abfd)(((abfd)->tdata.coff_obj_data)->external_syms); | |||
1742 | ||||
1743 | /* mark the end of the symbols */ | |||
1744 | symesz = bfd_coff_symesz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_symesz); | |||
1745 | raw_end = (char *) raw_src + obj_raw_syment_count (abfd)(((abfd)->tdata.coff_obj_data)->raw_syment_count) * symesz; | |||
1746 | ||||
1747 | /* FIXME SOMEDAY. A string table size of zero is very weird, but | |||
1748 | probably possible. If one shows up, it will probably kill us. */ | |||
1749 | ||||
1750 | /* Swap all the raw entries */ | |||
1751 | for (internal_ptr = internal; | |||
1752 | raw_src < raw_end; | |||
1753 | raw_src += symesz, internal_ptr++) | |||
1754 | { | |||
1755 | ||||
1756 | unsigned int i; | |||
1757 | bfd_coff_swap_sym_in (abfd, (PTR) raw_src,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_sym_in) (abfd,(void *) raw_src,(void *) & internal_ptr->u.syment)) | |||
1758 | (PTR) & internal_ptr->u.syment)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_sym_in) (abfd,(void *) raw_src,(void *) & internal_ptr->u.syment)); | |||
1759 | symbol_ptr = internal_ptr; | |||
1760 | ||||
1761 | for (i = 0; | |||
1762 | i < symbol_ptr->u.syment.n_numaux; | |||
1763 | i++) | |||
1764 | { | |||
1765 | internal_ptr++; | |||
1766 | raw_src += symesz; | |||
1767 | bfd_coff_swap_aux_in (abfd, (PTR) raw_src,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_in) (abfd,(void *) raw_src,symbol_ptr ->u.syment.n_type,symbol_ptr->u.syment.n_sclass,(int) i ,symbol_ptr->u.syment.n_numaux,&(internal_ptr->u.auxent ))) | |||
1768 | symbol_ptr->u.syment.n_type,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_in) (abfd,(void *) raw_src,symbol_ptr ->u.syment.n_type,symbol_ptr->u.syment.n_sclass,(int) i ,symbol_ptr->u.syment.n_numaux,&(internal_ptr->u.auxent ))) | |||
1769 | symbol_ptr->u.syment.n_sclass,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_in) (abfd,(void *) raw_src,symbol_ptr ->u.syment.n_type,symbol_ptr->u.syment.n_sclass,(int) i ,symbol_ptr->u.syment.n_numaux,&(internal_ptr->u.auxent ))) | |||
1770 | (int) i, symbol_ptr->u.syment.n_numaux,((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_in) (abfd,(void *) raw_src,symbol_ptr ->u.syment.n_type,symbol_ptr->u.syment.n_sclass,(int) i ,symbol_ptr->u.syment.n_numaux,&(internal_ptr->u.auxent ))) | |||
1771 | &(internal_ptr->u.auxent))((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_swap_aux_in) (abfd,(void *) raw_src,symbol_ptr ->u.syment.n_type,symbol_ptr->u.syment.n_sclass,(int) i ,symbol_ptr->u.syment.n_numaux,&(internal_ptr->u.auxent ))); | |||
1772 | coff_pointerize_aux (abfd, internal, symbol_ptr, i, | |||
1773 | internal_ptr); | |||
1774 | } | |||
1775 | } | |||
1776 | ||||
1777 | /* Free the raw symbols, but not the strings (if we have them). */ | |||
1778 | obj_coff_keep_strings (abfd)(((abfd)->tdata.coff_obj_data)->keep_strings) = TRUE1; | |||
1779 | if (! _bfd_coff_free_symbols (abfd)) | |||
1780 | return NULL((void*)0); | |||
1781 | ||||
1782 | for (internal_ptr = internal; internal_ptr < internal_end; | |||
1783 | internal_ptr++) | |||
1784 | { | |||
1785 | if (internal_ptr->u.syment.n_sclass == C_FILE103 | |||
1786 | && internal_ptr->u.syment.n_numaux > 0) | |||
1787 | { | |||
1788 | /* make a file symbol point to the name in the auxent, since | |||
1789 | the text ".file" is redundant */ | |||
1790 | if ((internal_ptr + 1)->u.auxent.x_file.x_n.x_zeroes == 0) | |||
1791 | { | |||
1792 | /* the filename is a long one, point into the string table */ | |||
1793 | if (string_table == NULL((void*)0)) | |||
1794 | { | |||
1795 | string_table = _bfd_coff_read_string_table (abfd); | |||
1796 | if (string_table == NULL((void*)0)) | |||
1797 | return NULL((void*)0); | |||
1798 | } | |||
1799 | ||||
1800 | internal_ptr->u.syment._n._n_n._n_offset = | |||
1801 | ((long) | |||
1802 | (string_table | |||
1803 | + (internal_ptr + 1)->u.auxent.x_file.x_n.x_offset)); | |||
1804 | } | |||
1805 | else | |||
1806 | { | |||
1807 | /* Ordinary short filename, put into memory anyway. The | |||
1808 | Microsoft PE tools sometimes store a filename in | |||
1809 | multiple AUX entries. */ | |||
1810 | if (internal_ptr->u.syment.n_numaux > 1 | |||
1811 | && coff_data (abfd)((abfd)->tdata.coff_obj_data)->pe) | |||
1812 | { | |||
1813 | internal_ptr->u.syment._n._n_n._n_offset = | |||
1814 | ((long) | |||
1815 | copy_name (abfd, | |||
1816 | (internal_ptr + 1)->u.auxent.x_file.x_fname, | |||
1817 | internal_ptr->u.syment.n_numaux * symesz)); | |||
1818 | } | |||
1819 | else | |||
1820 | { | |||
1821 | internal_ptr->u.syment._n._n_n._n_offset = | |||
1822 | ((long) | |||
1823 | copy_name (abfd, | |||
1824 | (internal_ptr + 1)->u.auxent.x_file.x_fname, | |||
1825 | (size_t) bfd_coff_filnmlen (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_filnmlen))); | |||
1826 | } | |||
1827 | } | |||
1828 | } | |||
1829 | else | |||
1830 | { | |||
1831 | if (internal_ptr->u.syment._n._n_n._n_zeroes != 0) | |||
1832 | { | |||
1833 | /* This is a "short" name. Make it long. */ | |||
1834 | size_t i; | |||
1835 | char *newstring; | |||
1836 | ||||
1837 | /* find the length of this string without walking into memory | |||
1838 | that isn't ours. */ | |||
1839 | for (i = 0; i < 8; ++i) | |||
1840 | if (internal_ptr->u.syment._n._n_name[i] == '\0') | |||
1841 | break; | |||
1842 | ||||
1843 | newstring = (PTRvoid *) bfd_zalloc (abfd, (bfd_size_type) (i + 1)); | |||
1844 | if (newstring == NULL((void*)0)) | |||
1845 | return (NULL((void*)0)); | |||
1846 | strncpy (newstring, internal_ptr->u.syment._n._n_name, i); | |||
1847 | internal_ptr->u.syment._n._n_n._n_offset = (long int) newstring; | |||
1848 | internal_ptr->u.syment._n._n_n._n_zeroes = 0; | |||
1849 | } | |||
1850 | else if (internal_ptr->u.syment._n._n_n._n_offset == 0) | |||
1851 | internal_ptr->u.syment._n._n_n._n_offset = (long int) ""; | |||
1852 | else if (!bfd_coff_symname_in_debug (abfd, &internal_ptr->u.syment)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_symname_in_debug) (abfd, &internal_ptr-> u.syment))) | |||
1853 | { | |||
1854 | /* Long name already. Point symbol at the string in the | |||
1855 | table. */ | |||
1856 | if (string_table == NULL((void*)0)) | |||
1857 | { | |||
1858 | string_table = _bfd_coff_read_string_table (abfd); | |||
1859 | if (string_table == NULL((void*)0)) | |||
1860 | return NULL((void*)0); | |||
1861 | } | |||
1862 | internal_ptr->u.syment._n._n_n._n_offset = | |||
1863 | ((long int) | |||
1864 | (string_table | |||
1865 | + internal_ptr->u.syment._n._n_n._n_offset)); | |||
1866 | } | |||
1867 | else | |||
1868 | { | |||
1869 | /* Long name in debug section. Very similar. */ | |||
1870 | if (debug_section == NULL((void*)0)) | |||
1871 | debug_section = build_debug_section (abfd); | |||
1872 | internal_ptr->u.syment._n._n_n._n_offset = (long int) | |||
1873 | (debug_section + internal_ptr->u.syment._n._n_n._n_offset); | |||
1874 | } | |||
1875 | } | |||
1876 | internal_ptr += internal_ptr->u.syment.n_numaux; | |||
1877 | } | |||
1878 | ||||
1879 | obj_raw_syments (abfd)(((abfd)->tdata.coff_obj_data)->raw_syments) = internal; | |||
1880 | BFD_ASSERT (obj_raw_syment_count (abfd){ if (!((((abfd)->tdata.coff_obj_data)->raw_syment_count ) == (unsigned int) (internal_ptr - internal))) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,1881); } | |||
1881 | == (unsigned int) (internal_ptr - internal)){ if (!((((abfd)->tdata.coff_obj_data)->raw_syment_count ) == (unsigned int) (internal_ptr - internal))) bfd_assert("/usr/src/gnu/usr.bin/binutils/bfd/coffgen.c" ,1881); }; | |||
1882 | ||||
1883 | return (internal); | |||
1884 | } /* coff_get_normalized_symtab() */ | |||
1885 | ||||
1886 | long | |||
1887 | coff_get_reloc_upper_bound (abfd, asect) | |||
1888 | bfd *abfd; | |||
1889 | sec_ptr asect; | |||
1890 | { | |||
1891 | if (bfd_get_format (abfd)((abfd)->format) != bfd_object) | |||
1892 | { | |||
1893 | bfd_set_error (bfd_error_invalid_operation); | |||
1894 | return -1; | |||
1895 | } | |||
1896 | return (asect->reloc_count + 1) * sizeof (arelent *); | |||
1897 | } | |||
1898 | ||||
1899 | asymbol * | |||
1900 | coff_make_empty_symbol (abfd) | |||
1901 | bfd *abfd; | |||
1902 | { | |||
1903 | bfd_size_type amt = sizeof (coff_symbol_type); | |||
1904 | coff_symbol_type *new = (coff_symbol_type *) bfd_zalloc (abfd, amt); | |||
1905 | if (new == NULL((void*)0)) | |||
1906 | return (NULL((void*)0)); | |||
1907 | new->symbol.section = 0; | |||
1908 | new->native = 0; | |||
1909 | new->lineno = (alent *) NULL((void*)0); | |||
1910 | new->done_lineno = FALSE0; | |||
1911 | new->symbol.the_bfd = abfd; | |||
1912 | return &new->symbol; | |||
1913 | } | |||
1914 | ||||
1915 | /* Make a debugging symbol. */ | |||
1916 | ||||
1917 | asymbol * | |||
1918 | coff_bfd_make_debug_symbol (abfd, ptr, sz) | |||
1919 | bfd *abfd; | |||
1920 | PTRvoid * ptr ATTRIBUTE_UNUSED__attribute__ ((__unused__)); | |||
1921 | unsigned long sz ATTRIBUTE_UNUSED__attribute__ ((__unused__)); | |||
1922 | { | |||
1923 | bfd_size_type amt = sizeof (coff_symbol_type); | |||
1924 | coff_symbol_type *new = (coff_symbol_type *) bfd_alloc (abfd, amt); | |||
1925 | if (new == NULL((void*)0)) | |||
1926 | return (NULL((void*)0)); | |||
1927 | /* @@ The 10 is a guess at a plausible maximum number of aux entries | |||
1928 | (but shouldn't be a constant). */ | |||
1929 | amt = sizeof (combined_entry_type) * 10; | |||
1930 | new->native = (combined_entry_type *) bfd_zalloc (abfd, amt); | |||
1931 | if (!new->native) | |||
1932 | return (NULL((void*)0)); | |||
1933 | new->symbol.section = bfd_abs_section_ptr((asection *) &bfd_abs_section); | |||
1934 | new->symbol.flags = BSF_DEBUGGING0x08; | |||
1935 | new->lineno = (alent *) NULL((void*)0); | |||
1936 | new->done_lineno = FALSE0; | |||
1937 | new->symbol.the_bfd = abfd; | |||
1938 | return &new->symbol; | |||
1939 | } | |||
1940 | ||||
1941 | void | |||
1942 | coff_get_symbol_info (abfd, symbol, ret) | |||
1943 | bfd *abfd; | |||
1944 | asymbol *symbol; | |||
1945 | symbol_info *ret; | |||
1946 | { | |||
1947 | bfd_symbol_info (symbol, ret); | |||
1948 | if (coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->native != NULL((void*)0) | |||
1949 | && coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->native->fix_value) | |||
1950 | { | |||
1951 | ret->value = coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->native->u.syment.n_value - | |||
1952 | (unsigned long) obj_raw_syments (abfd)(((abfd)->tdata.coff_obj_data)->raw_syments); | |||
1953 | } | |||
1954 | } | |||
1955 | ||||
1956 | /* Return the COFF syment for a symbol. */ | |||
1957 | ||||
1958 | bfd_boolean | |||
1959 | bfd_coff_get_syment (abfd, symbol, psyment) | |||
1960 | bfd *abfd; | |||
1961 | asymbol *symbol; | |||
1962 | struct internal_syment *psyment; | |||
1963 | { | |||
1964 | coff_symbol_type *csym; | |||
1965 | ||||
1966 | csym = coff_symbol_from (abfd, symbol); | |||
1967 | if (csym == NULL((void*)0) || csym->native == NULL((void*)0)) | |||
1968 | { | |||
1969 | bfd_set_error (bfd_error_invalid_operation); | |||
1970 | return FALSE0; | |||
1971 | } | |||
1972 | ||||
1973 | *psyment = csym->native->u.syment; | |||
1974 | ||||
1975 | if (csym->native->fix_value) | |||
1976 | psyment->n_value = psyment->n_value - | |||
1977 | (unsigned long) obj_raw_syments (abfd)(((abfd)->tdata.coff_obj_data)->raw_syments); | |||
1978 | ||||
1979 | /* FIXME: We should handle fix_line here. */ | |||
1980 | ||||
1981 | return TRUE1; | |||
1982 | } | |||
1983 | ||||
1984 | /* Return the COFF auxent for a symbol. */ | |||
1985 | ||||
1986 | bfd_boolean | |||
1987 | bfd_coff_get_auxent (abfd, symbol, indx, pauxent) | |||
1988 | bfd *abfd; | |||
1989 | asymbol *symbol; | |||
1990 | int indx; | |||
1991 | union internal_auxent *pauxent; | |||
1992 | { | |||
1993 | coff_symbol_type *csym; | |||
1994 | combined_entry_type *ent; | |||
1995 | ||||
1996 | csym = coff_symbol_from (abfd, symbol); | |||
1997 | ||||
1998 | if (csym == NULL((void*)0) | |||
1999 | || csym->native == NULL((void*)0) | |||
2000 | || indx >= csym->native->u.syment.n_numaux) | |||
2001 | { | |||
2002 | bfd_set_error (bfd_error_invalid_operation); | |||
2003 | return FALSE0; | |||
2004 | } | |||
2005 | ||||
2006 | ent = csym->native + indx + 1; | |||
2007 | ||||
2008 | *pauxent = ent->u.auxent; | |||
2009 | ||||
2010 | if (ent->fix_tag) | |||
2011 | pauxent->x_sym.x_tagndx.l = | |||
2012 | ((combined_entry_type *) pauxent->x_sym.x_tagndx.p | |||
2013 | - obj_raw_syments (abfd)(((abfd)->tdata.coff_obj_data)->raw_syments)); | |||
2014 | ||||
2015 | if (ent->fix_end) | |||
2016 | pauxent->x_sym.x_fcnary.x_fcn.x_endndx.l = | |||
2017 | ((combined_entry_type *) pauxent->x_sym.x_fcnary.x_fcn.x_endndx.p | |||
2018 | - obj_raw_syments (abfd)(((abfd)->tdata.coff_obj_data)->raw_syments)); | |||
2019 | ||||
2020 | if (ent->fix_scnlen) | |||
2021 | pauxent->x_csect.x_scnlen.l = | |||
2022 | ((combined_entry_type *) pauxent->x_csect.x_scnlen.p | |||
2023 | - obj_raw_syments (abfd)(((abfd)->tdata.coff_obj_data)->raw_syments)); | |||
2024 | ||||
2025 | return TRUE1; | |||
2026 | } | |||
2027 | ||||
2028 | /* Print out information about COFF symbol. */ | |||
2029 | ||||
2030 | void | |||
2031 | coff_print_symbol (abfd, filep, symbol, how) | |||
2032 | bfd *abfd; | |||
2033 | PTRvoid * filep; | |||
2034 | asymbol *symbol; | |||
2035 | bfd_print_symbol_type how; | |||
2036 | { | |||
2037 | FILE *file = (FILE *) filep; | |||
2038 | ||||
2039 | switch (how) | |||
2040 | { | |||
2041 | case bfd_print_symbol_name: | |||
2042 | fprintf (file, "%s", symbol->name); | |||
2043 | break; | |||
2044 | ||||
2045 | case bfd_print_symbol_more: | |||
2046 | fprintf (file, "coff %s %s", | |||
2047 | coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->native ? "n" : "g", | |||
2048 | coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->lineno ? "l" : " "); | |||
2049 | break; | |||
2050 | ||||
2051 | case bfd_print_symbol_all: | |||
2052 | if (coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->native) | |||
2053 | { | |||
2054 | bfd_vma val; | |||
2055 | unsigned int aux; | |||
2056 | combined_entry_type *combined = coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->native; | |||
2057 | combined_entry_type *root = obj_raw_syments (abfd)(((abfd)->tdata.coff_obj_data)->raw_syments); | |||
2058 | struct lineno_cache_entry *l = coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->lineno; | |||
2059 | ||||
2060 | fprintf (file, "[%3ld]", (long) (combined - root)); | |||
2061 | ||||
2062 | if (! combined->fix_value) | |||
2063 | val = (bfd_vma) combined->u.syment.n_value; | |||
2064 | else | |||
2065 | val = combined->u.syment.n_value - (unsigned long) root; | |||
2066 | ||||
2067 | #ifndef XCOFF64 | |||
2068 | fprintf (file, | |||
2069 | "(sec %2d)(fl 0x%02x)(ty %3x)(scl %3d) (nx %d) 0x%08lx %s", | |||
2070 | combined->u.syment.n_scnum, | |||
2071 | combined->u.syment.n_flags, | |||
2072 | combined->u.syment.n_type, | |||
2073 | combined->u.syment.n_sclass, | |||
2074 | combined->u.syment.n_numaux, | |||
2075 | (unsigned long) val, | |||
2076 | symbol->name); | |||
2077 | #else | |||
2078 | /* Print out the wide, 64 bit, symbol value */ | |||
2079 | fprintf (file, | |||
2080 | "(sec %2d)(fl 0x%02x)(ty %3x)(scl %3d) (nx %d) 0x%016llx %s", | |||
2081 | combined->u.syment.n_scnum, | |||
2082 | combined->u.syment.n_flags, | |||
2083 | combined->u.syment.n_type, | |||
2084 | combined->u.syment.n_sclass, | |||
2085 | combined->u.syment.n_numaux, | |||
2086 | val, | |||
2087 | symbol->name); | |||
2088 | #endif | |||
2089 | ||||
2090 | for (aux = 0; aux < combined->u.syment.n_numaux; aux++) | |||
2091 | { | |||
2092 | combined_entry_type *auxp = combined + aux + 1; | |||
2093 | long tagndx; | |||
2094 | ||||
2095 | if (auxp->fix_tag) | |||
2096 | tagndx = auxp->u.auxent.x_sym.x_tagndx.p - root; | |||
2097 | else | |||
2098 | tagndx = auxp->u.auxent.x_sym.x_tagndx.l; | |||
2099 | ||||
2100 | fprintf (file, "\n"); | |||
2101 | ||||
2102 | if (bfd_coff_print_aux (abfd, file, root, combined, auxp, aux)((((bfd_coff_backend_data *) (abfd)->xvec->backend_data )->_bfd_coff_print_aux) (abfd, file, root, combined, auxp, aux))) | |||
2103 | continue; | |||
2104 | ||||
2105 | switch (combined->u.syment.n_sclass) | |||
2106 | { | |||
2107 | case C_FILE103: | |||
2108 | fprintf (file, "File "); | |||
2109 | break; | |||
2110 | ||||
2111 | case C_STAT3: | |||
2112 | if (combined->u.syment.n_type == T_NULL0) | |||
2113 | /* probably a section symbol? */ | |||
2114 | { | |||
2115 | fprintf (file, "AUX scnlen 0x%lx nreloc %d nlnno %d", | |||
2116 | (long) auxp->u.auxent.x_scn.x_scnlen, | |||
2117 | auxp->u.auxent.x_scn.x_nreloc, | |||
2118 | auxp->u.auxent.x_scn.x_nlinno); | |||
2119 | if (auxp->u.auxent.x_scn.x_checksum != 0 | |||
2120 | || auxp->u.auxent.x_scn.x_associated != 0 | |||
2121 | || auxp->u.auxent.x_scn.x_comdat != 0) | |||
2122 | fprintf (file, " checksum 0x%lx assoc %d comdat %d", | |||
2123 | auxp->u.auxent.x_scn.x_checksum, | |||
2124 | auxp->u.auxent.x_scn.x_associated, | |||
2125 | auxp->u.auxent.x_scn.x_comdat); | |||
2126 | break; | |||
2127 | } | |||
2128 | /* else fall through */ | |||
2129 | case C_EXT2: | |||
2130 | if (ISFCN (combined->u.syment.n_type)(((unsigned long) (combined->u.syment.n_type) & ((abfd )->tdata.coff_obj_data)->local_n_tmask) == ((unsigned long ) (2) << ((abfd)->tdata.coff_obj_data)->local_n_btshft ))) | |||
2131 | { | |||
2132 | long next, llnos; | |||
2133 | ||||
2134 | if (auxp->fix_end) | |||
2135 | next = (auxp->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p | |||
2136 | - root); | |||
2137 | else | |||
2138 | next = auxp->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l; | |||
2139 | llnos = auxp->u.auxent.x_sym.x_fcnary.x_fcn.x_lnnoptr; | |||
2140 | fprintf (file, | |||
2141 | "AUX tagndx %ld ttlsiz 0x%lx lnnos %ld next %ld", | |||
2142 | tagndx, auxp->u.auxent.x_sym.x_misc.x_fsize, | |||
2143 | llnos, next); | |||
2144 | break; | |||
2145 | } | |||
2146 | /* else fall through */ | |||
2147 | default: | |||
2148 | fprintf (file, "AUX lnno %d size 0x%x tagndx %ld", | |||
2149 | auxp->u.auxent.x_sym.x_misc.x_lnsz.x_lnno, | |||
2150 | auxp->u.auxent.x_sym.x_misc.x_lnsz.x_size, | |||
2151 | tagndx); | |||
2152 | if (auxp->fix_end) | |||
2153 | fprintf (file, " endndx %ld", | |||
2154 | ((long) | |||
2155 | (auxp->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p | |||
2156 | - root))); | |||
2157 | break; | |||
2158 | } | |||
2159 | } | |||
2160 | ||||
2161 | if (l) | |||
2162 | { | |||
2163 | fprintf (file, "\n%s :", l->u.sym->name); | |||
2164 | l++; | |||
2165 | while (l->line_number) | |||
2166 | { | |||
2167 | fprintf (file, "\n%4d : 0x%lx", | |||
2168 | l->line_number, | |||
2169 | ((unsigned long) | |||
2170 | (l->u.offset + symbol->section->vma))); | |||
2171 | l++; | |||
2172 | } | |||
2173 | } | |||
2174 | } | |||
2175 | else | |||
2176 | { | |||
2177 | bfd_print_symbol_vandf (abfd, (PTRvoid *) file, symbol); | |||
2178 | fprintf (file, " %-5s %s %s %s", | |||
2179 | symbol->section->name, | |||
2180 | coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->native ? "n" : "g", | |||
2181 | coffsymbol (symbol)((coff_symbol_type *)(&((symbol)->the_bfd)))->lineno ? "l" : " ", | |||
2182 | symbol->name); | |||
2183 | } | |||
2184 | } | |||
2185 | } | |||
2186 | ||||
2187 | /* Return whether a symbol name implies a local symbol. In COFF, | |||
2188 | local symbols generally start with ``.L''. Most targets use this | |||
2189 | function for the is_local_label_name entry point, but some may | |||
2190 | override it. */ | |||
2191 | ||||
2192 | bfd_boolean | |||
2193 | _bfd_coff_is_local_label_name (abfd, name) | |||
2194 | bfd *abfd ATTRIBUTE_UNUSED__attribute__ ((__unused__)); | |||
2195 | const char *name; | |||
2196 | { | |||
2197 | return name[0] == '.' && name[1] == 'L'; | |||
2198 | } | |||
2199 | ||||
2200 | /* Provided a BFD, a section and an offset (in bytes, not octets) into the | |||
2201 | section, calculate and return the name of the source file and the line | |||
2202 | nearest to the wanted location. */ | |||
2203 | ||||
2204 | bfd_boolean | |||
2205 | coff_find_nearest_line (abfd, section, symbols, offset, filename_ptr, | |||
2206 | functionname_ptr, line_ptr) | |||
2207 | bfd *abfd; | |||
2208 | asection *section; | |||
2209 | asymbol **symbols; | |||
2210 | bfd_vma offset; | |||
2211 | const char **filename_ptr; | |||
2212 | const char **functionname_ptr; | |||
2213 | unsigned int *line_ptr; | |||
2214 | { | |||
2215 | bfd_boolean found; | |||
2216 | unsigned int i; | |||
2217 | unsigned int line_base; | |||
2218 | coff_data_type *cof = coff_data (abfd)((abfd)->tdata.coff_obj_data); | |||
2219 | /* Run through the raw syments if available */ | |||
2220 | combined_entry_type *p; | |||
2221 | combined_entry_type *pend; | |||
2222 | alent *l; | |||
2223 | struct coff_section_tdata *sec_data; | |||
2224 | bfd_size_type amt; | |||
2225 | ||||
2226 | /* Before looking through the symbol table, try to use a .stab | |||
2227 | section to find the information. */ | |||
2228 | if (! _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, | |||
2229 | &found, filename_ptr, | |||
2230 | functionname_ptr, line_ptr, | |||
2231 | &coff_data(abfd)((abfd)->tdata.coff_obj_data)->line_info)) | |||
2232 | return FALSE0; | |||
2233 | ||||
2234 | if (found) | |||
2235 | return TRUE1; | |||
2236 | ||||
2237 | /* Also try examining DWARF2 debugging information. */ | |||
2238 | if (_bfd_dwarf2_find_nearest_line (abfd, section, symbols, offset, | |||
2239 | filename_ptr, functionname_ptr, | |||
2240 | line_ptr, 0, | |||
2241 | &coff_data(abfd)((abfd)->tdata.coff_obj_data)->dwarf2_find_line_info)) | |||
2242 | return TRUE1; | |||
2243 | ||||
2244 | *filename_ptr = 0; | |||
2245 | *functionname_ptr = 0; | |||
2246 | *line_ptr = 0; | |||
2247 | ||||
2248 | /* Don't try and find line numbers in a non coff file */ | |||
2249 | if (!bfd_family_coff (abfd)(((abfd)->xvec->flavour) == bfd_target_coff_flavour || ( (abfd)->xvec->flavour) == bfd_target_xcoff_flavour)) | |||
2250 | return FALSE0; | |||
2251 | ||||
2252 | if (cof == NULL((void*)0)) | |||
2253 | return FALSE0; | |||
2254 | ||||
2255 | /* Find the first C_FILE symbol. */ | |||
2256 | p = cof->raw_syments; | |||
2257 | if (!p) | |||
2258 | return FALSE0; | |||
2259 | ||||
2260 | pend = p + cof->raw_syment_count; | |||
2261 | while (p < pend) | |||
2262 | { | |||
2263 | if (p->u.syment.n_sclass == C_FILE103) | |||
2264 | break; | |||
2265 | p += 1 + p->u.syment.n_numaux; | |||
2266 | } | |||
2267 | ||||
2268 | if (p < pend) | |||
2269 | { | |||
2270 | bfd_vma sec_vma; | |||
2271 | bfd_vma maxdiff; | |||
2272 | ||||
2273 | /* Look through the C_FILE symbols to find the best one. */ | |||
2274 | sec_vma = bfd_get_section_vma (abfd, section)((section)->vma + 0); | |||
2275 | *filename_ptr = (char *) p->u.syment._n._n_n._n_offset; | |||
2276 | maxdiff = (bfd_vma) 0 - (bfd_vma) 1; | |||
2277 | while (1) | |||
2278 | { | |||
2279 | combined_entry_type *p2; | |||
2280 | ||||
2281 | for (p2 = p + 1 + p->u.syment.n_numaux; | |||
2282 | p2 < pend; | |||
2283 | p2 += 1 + p2->u.syment.n_numaux) | |||
2284 | { | |||
2285 | if (p2->u.syment.n_scnum > 0 | |||
2286 | && (section | |||
2287 | == coff_section_from_bfd_index (abfd, | |||
2288 | p2->u.syment.n_scnum))) | |||
2289 | break; | |||
2290 | if (p2->u.syment.n_sclass == C_FILE103) | |||
2291 | { | |||
2292 | p2 = pend; | |||
2293 | break; | |||
2294 | } | |||
2295 | } | |||
2296 | ||||
2297 | /* We use <= MAXDIFF here so that if we get a zero length | |||
2298 | file, we actually use the next file entry. */ | |||
2299 | if (p2 < pend | |||
2300 | && offset + sec_vma >= (bfd_vma) p2->u.syment.n_value | |||
2301 | && offset + sec_vma - (bfd_vma) p2->u.syment.n_value <= maxdiff) | |||
2302 | { | |||
2303 | *filename_ptr = (char *) p->u.syment._n._n_n._n_offset; | |||
2304 | maxdiff = offset + sec_vma - p2->u.syment.n_value; | |||
2305 | } | |||
2306 | ||||
2307 | /* Avoid endless loops on erroneous files by ensuring that | |||
2308 | we always move forward in the file. */ | |||
2309 | if (p >= cof->raw_syments + p->u.syment.n_value) | |||
2310 | break; | |||
2311 | ||||
2312 | p = cof->raw_syments + p->u.syment.n_value; | |||
2313 | if (p > pend || p->u.syment.n_sclass != C_FILE103) | |||
2314 | break; | |||
2315 | } | |||
2316 | } | |||
2317 | ||||
2318 | /* Now wander though the raw linenumbers of the section */ | |||
2319 | /* If we have been called on this section before, and the offset we | |||
2320 | want is further down then we can prime the lookup loop. */ | |||
2321 | sec_data = coff_section_data (abfd, section)((struct coff_section_tdata *) (section)->used_by_bfd); | |||
2322 | if (sec_data != NULL((void*)0) | |||
2323 | && sec_data->i > 0 | |||
2324 | && offset >= sec_data->offset) | |||
2325 | { | |||
2326 | i = sec_data->i; | |||
2327 | *functionname_ptr = sec_data->function; | |||
2328 | line_base = sec_data->line_base; | |||
2329 | } | |||
2330 | else | |||
2331 | { | |||
2332 | i = 0; | |||
2333 | line_base = 0; | |||
2334 | } | |||
2335 | ||||
2336 | if (section->lineno != NULL((void*)0)) | |||
2337 | { | |||
2338 | bfd_vma last_value = 0; | |||
2339 | ||||
2340 | l = §ion->lineno[i]; | |||
2341 | ||||
2342 | for (; i < section->lineno_count; i++) | |||
2343 | { | |||
2344 | if (l->line_number == 0) | |||
2345 | { | |||
2346 | /* Get the symbol this line number points at */ | |||
2347 | coff_symbol_type *coff = (coff_symbol_type *) (l->u.sym); | |||
2348 | if (coff->symbol.value > offset) | |||
2349 | break; | |||
2350 | *functionname_ptr = coff->symbol.name; | |||
2351 | last_value = coff->symbol.value; | |||
2352 | if (coff->native) | |||
2353 | { | |||
2354 | combined_entry_type *s = coff->native; | |||
2355 | s = s + 1 + s->u.syment.n_numaux; | |||
2356 | ||||
2357 | /* In XCOFF a debugging symbol can follow the | |||
2358 | function symbol. */ | |||
2359 | if (s->u.syment.n_scnum == N_DEBUG((short)-2)) | |||
2360 | s = s + 1 + s->u.syment.n_numaux; | |||
2361 | ||||
2362 | /* S should now point to the .bf of the function. */ | |||
2363 | if (s->u.syment.n_numaux) | |||
2364 | { | |||
2365 | /* The linenumber is stored in the auxent. */ | |||
2366 | union internal_auxent *a = &((s + 1)->u.auxent); | |||
2367 | line_base = a->x_sym.x_misc.x_lnsz.x_lnno; | |||
2368 | *line_ptr = line_base; | |||
2369 | } | |||
2370 | } | |||
2371 | } | |||
2372 | else | |||
2373 | { | |||
2374 | if (l->u.offset > offset) | |||
2375 | break; | |||
2376 | *line_ptr = l->line_number + line_base - 1; | |||
2377 | } | |||
2378 | l++; | |||
2379 | } | |||
2380 | ||||
2381 | /* If we fell off the end of the loop, then assume that this | |||
2382 | symbol has no line number info. Otherwise, symbols with no | |||
2383 | line number info get reported with the line number of the | |||
2384 | last line of the last symbol which does have line number | |||
2385 | info. We use 0x100 as a slop to account for cases where the | |||
2386 | last line has executable code. */ | |||
2387 | if (i >= section->lineno_count | |||
2388 | && last_value != 0 | |||
2389 | && offset - last_value > 0x100) | |||
2390 | { | |||
2391 | *functionname_ptr = NULL((void*)0); | |||
2392 | *line_ptr = 0; | |||
2393 | } | |||
2394 | } | |||
2395 | ||||
2396 | /* Cache the results for the next call. */ | |||
2397 | if (sec_data == NULL((void*)0) && section->owner == abfd) | |||
2398 | { | |||
2399 | amt = sizeof (struct coff_section_tdata); | |||
2400 | section->used_by_bfd = (PTRvoid *) bfd_zalloc (abfd, amt); | |||
2401 | sec_data = (struct coff_section_tdata *) section->used_by_bfd; | |||
2402 | } | |||
2403 | if (sec_data != NULL((void*)0)) | |||
2404 | { | |||
2405 | sec_data->offset = offset; | |||
2406 | sec_data->i = i; | |||
2407 | sec_data->function = *functionname_ptr; | |||
2408 | sec_data->line_base = line_base; | |||
2409 | } | |||
2410 | ||||
2411 | return TRUE1; | |||
2412 | } | |||
2413 | ||||
2414 | int | |||
2415 | coff_sizeof_headers (abfd, reloc) | |||
2416 | bfd *abfd; | |||
2417 | bfd_boolean reloc; | |||
2418 | { | |||
2419 | size_t size; | |||
2420 | ||||
2421 | if (! reloc) | |||
2422 | { | |||
2423 | size = bfd_coff_filhsz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_filhsz) + bfd_coff_aoutsz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_aoutsz); | |||
2424 | } | |||
2425 | else | |||
2426 | { | |||
2427 | size = bfd_coff_filhsz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_filhsz); | |||
2428 | } | |||
2429 | ||||
2430 | size += abfd->section_count * bfd_coff_scnhsz (abfd)(((bfd_coff_backend_data *) (abfd)->xvec->backend_data) ->_bfd_scnhsz); | |||
2431 | return size; | |||
2432 | } | |||
2433 | ||||
2434 | /* Change the class of a coff symbol held by BFD. */ | |||
2435 | bfd_boolean | |||
2436 | bfd_coff_set_symbol_class (abfd, symbol, class) | |||
2437 | bfd * abfd; | |||
2438 | asymbol * symbol; | |||
2439 | unsigned int class; | |||
2440 | { | |||
2441 | coff_symbol_type * csym; | |||
2442 | ||||
2443 | csym = coff_symbol_from (abfd, symbol); | |||
2444 | if (csym == NULL((void*)0)) | |||
2445 | { | |||
2446 | bfd_set_error (bfd_error_invalid_operation); | |||
2447 | return FALSE0; | |||
2448 | } | |||
2449 | else if (csym->native == NULL((void*)0)) | |||
2450 | { | |||
2451 | /* This is an alien symbol which no native coff backend data. | |||
2452 | We cheat here by creating a fake native entry for it and | |||
2453 | then filling in the class. This code is based on that in | |||
2454 | coff_write_alien_symbol(). */ | |||
2455 | ||||
2456 | combined_entry_type * native; | |||
2457 | bfd_size_type amt = sizeof (* native); | |||
2458 | ||||
2459 | native = (combined_entry_type *) bfd_zalloc (abfd, amt); | |||
2460 | if (native == NULL((void*)0)) | |||
2461 | return FALSE0; | |||
2462 | ||||
2463 | native->u.syment.n_type = T_NULL0; | |||
2464 | native->u.syment.n_sclass = class; | |||
2465 | ||||
2466 | if (bfd_is_und_section (symbol->section)((symbol->section) == ((asection *) &bfd_und_section))) | |||
2467 | { | |||
2468 | native->u.syment.n_scnum = N_UNDEF((short)0); | |||
2469 | native->u.syment.n_value = symbol->value; | |||
2470 | } | |||
2471 | else if (bfd_is_com_section (symbol->section)(((symbol->section)->flags & 0x8000) != 0)) | |||
2472 | { | |||
2473 | native->u.syment.n_scnum = N_UNDEF((short)0); | |||
2474 | native->u.syment.n_value = symbol->value; | |||
2475 | } | |||
2476 | else | |||
2477 | { | |||
2478 | native->u.syment.n_scnum = | |||
2479 | symbol->section->output_section->target_index; | |||
2480 | native->u.syment.n_value = (symbol->value | |||
2481 | + symbol->section->output_offset); | |||
2482 | if (! obj_pe (abfd)(((abfd)->tdata.coff_obj_data)->pe)) | |||
2483 | native->u.syment.n_value += symbol->section->output_section->vma; | |||
2484 | ||||
2485 | /* Copy the any flags from the file header into the symbol. | |||
2486 | FIXME: Why? */ | |||
2487 | native->u.syment.n_flags = bfd_asymbol_bfd (& csym->symbol)((& csym->symbol)->the_bfd)->flags; | |||
2488 | } | |||
2489 | ||||
2490 | csym->native = native; | |||
2491 | } | |||
2492 | else | |||
2493 | { | |||
2494 | csym->native->u.syment.n_sclass = class; | |||
2495 | } | |||
2496 | ||||
2497 | return TRUE1; | |||
2498 | } |