* section.c (_bfd_strip_section_from_output): Add info parameter.
[external/binutils.git] / bfd / section.c
1 /* Object file "section" support for the BFD library.
2    Copyright (C) 1990, 91, 92, 93, 94, 95, 96, 97, 98, 1999
3    Free Software Foundation, Inc.
4    Written by Cygnus Support.
5
6 This file is part of BFD, the Binary File Descriptor library.
7
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
12
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
21
22 /*
23 SECTION
24         Sections
25
26         The raw data contained within a BFD is maintained through the
27         section abstraction.  A single BFD may have any number of
28         sections.  It keeps hold of them by pointing to the first;
29         each one points to the next in the list.
30
31         Sections are supported in BFD in <<section.c>>.
32
33 @menu
34 @* Section Input::
35 @* Section Output::
36 @* typedef asection::
37 @* section prototypes::
38 @end menu
39
40 INODE
41 Section Input, Section Output, Sections, Sections
42 SUBSECTION
43         Section input
44
45         When a BFD is opened for reading, the section structures are
46         created and attached to the BFD.
47
48         Each section has a name which describes the section in the
49         outside world---for example, <<a.out>> would contain at least
50         three sections, called <<.text>>, <<.data>> and <<.bss>>.
51
52         Names need not be unique; for example a COFF file may have several
53         sections named <<.data>>.
54
55         Sometimes a BFD will contain more than the ``natural'' number of
56         sections. A back end may attach other sections containing
57         constructor data, or an application may add a section (using
58         <<bfd_make_section>>) to the sections attached to an already open
59         BFD. For example, the linker creates an extra section
60         <<COMMON>> for each input file's BFD to hold information about
61         common storage.
62
63         The raw data is not necessarily read in when
64         the section descriptor is created. Some targets may leave the
65         data in place until a <<bfd_get_section_contents>> call is
66         made. Other back ends may read in all the data at once.  For
67         example, an S-record file has to be read once to determine the
68         size of the data. An IEEE-695 file doesn't contain raw data in
69         sections, but data and relocation expressions intermixed, so
70         the data area has to be parsed to get out the data and
71         relocations.
72
73 INODE
74 Section Output, typedef asection, Section Input, Sections
75
76 SUBSECTION
77         Section output
78
79         To write a new object style BFD, the various sections to be
80         written have to be created. They are attached to the BFD in
81         the same way as input sections; data is written to the
82         sections using <<bfd_set_section_contents>>.
83
84         Any program that creates or combines sections (e.g., the assembler
85         and linker) must use the <<asection>> fields <<output_section>> and
86         <<output_offset>> to indicate the file sections to which each
87         section must be written.  (If the section is being created from
88         scratch, <<output_section>> should probably point to the section
89         itself and <<output_offset>> should probably be zero.)
90
91         The data to be written comes from input sections attached
92         (via <<output_section>> pointers) to
93         the output sections.  The output section structure can be
94         considered a filter for the input section: the output section
95         determines the vma of the output data and the name, but the
96         input section determines the offset into the output section of
97         the data to be written.
98
99         E.g., to create a section "O", starting at 0x100, 0x123 long,
100         containing two subsections, "A" at offset 0x0 (i.e., at vma
101         0x100) and "B" at offset 0x20 (i.e., at vma 0x120) the <<asection>>
102         structures would look like:
103
104 |   section name          "A"
105 |     output_offset   0x00
106 |     size            0x20
107 |     output_section ----------->  section name    "O"
108 |                             |    vma             0x100
109 |   section name          "B" |    size            0x123
110 |     output_offset   0x20    |
111 |     size            0x103   |
112 |     output_section  --------|
113
114
115 SUBSECTION
116         Link orders
117
118         The data within a section is stored in a @dfn{link_order}.
119         These are much like the fixups in <<gas>>.  The link_order
120         abstraction allows a section to grow and shrink within itself.
121
122         A link_order knows how big it is, and which is the next
123         link_order and where the raw data for it is; it also points to
124         a list of relocations which apply to it.
125
126         The link_order is used by the linker to perform relaxing on
127         final code.  The compiler creates code which is as big as
128         necessary to make it work without relaxing, and the user can
129         select whether to relax.  Sometimes relaxing takes a lot of
130         time.  The linker runs around the relocations to see if any
131         are attached to data which can be shrunk, if so it does it on
132         a link_order by link_order basis.
133
134 */
135
136
137 #include "bfd.h"
138 #include "sysdep.h"
139 #include "libbfd.h"
140 #include "bfdlink.h"
141
142 /*
143 DOCDD
144 INODE
145 typedef asection, section prototypes, Section Output, Sections
146 SUBSECTION
147         typedef asection
148
149         Here is the section structure:
150
151 CODE_FRAGMENT
152 .
153 . {* This structure is used for a comdat section, as in PE.  A comdat
154 .    section is associated with a particular symbol.  When the linker
155 .    sees a comdat section, it keeps only one of the sections with a
156 .    given name and associated with a given symbol. *}
157 .
158 .struct bfd_comdat_info
159 .{
160 .  {* The name of the symbol associated with a comdat section.  *}
161 .  const char *name;
162 .
163 .  {* The local symbol table index of the symbol associated with a
164 .     comdat section.  This is only meaningful to the object file format
165 .     specific code; it is not an index into the list returned by
166 .     bfd_canonicalize_symtab.  *}
167 .  long symbol;
168 .
169 .  {* If this section is being discarded, the linker uses this field
170 .     to point to the input section which is being kept.  *}
171 .  struct sec *sec;
172 .};
173 .
174 .typedef struct sec
175 .{
176 .        {* The name of the section; the name isn't a copy, the pointer is
177 .        the same as that passed to bfd_make_section. *}
178 .
179 .    CONST char *name;
180 .
181 .        {* Which section is it; 0..nth.      *}
182 .
183 .   int index;
184 .
185 .        {* The next section in the list belonging to the BFD, or NULL. *}
186 .
187 .    struct sec *next;
188 .
189 .        {* The field flags contains attributes of the section. Some
190 .           flags are read in from the object file, and some are
191 .           synthesized from other information.  *}
192 .
193 .    flagword flags;
194 .
195 .#define SEC_NO_FLAGS   0x000
196 .
197 .        {* Tells the OS to allocate space for this section when loading.
198 .           This is clear for a section containing debug information
199 .           only. *}
200 .#define SEC_ALLOC      0x001
201 .
202 .        {* Tells the OS to load the section from the file when loading.
203 .           This is clear for a .bss section. *}
204 .#define SEC_LOAD       0x002
205 .
206 .        {* The section contains data still to be relocated, so there is
207 .           some relocation information too. *}
208 .#define SEC_RELOC      0x004
209 .
210 .#if 0   {* Obsolete ? *}
211 .#define SEC_BALIGN     0x008
212 .#endif
213 .
214 .        {* A signal to the OS that the section contains read only
215 .          data. *}
216 .#define SEC_READONLY   0x010
217 .
218 .        {* The section contains code only. *}
219 .#define SEC_CODE       0x020
220 .
221 .        {* The section contains data only. *}
222 .#define SEC_DATA       0x040
223 .
224 .        {* The section will reside in ROM. *}
225 .#define SEC_ROM        0x080
226 .
227 .        {* The section contains constructor information. This section
228 .           type is used by the linker to create lists of constructors and
229 .           destructors used by <<g++>>. When a back end sees a symbol
230 .           which should be used in a constructor list, it creates a new
231 .           section for the type of name (e.g., <<__CTOR_LIST__>>), attaches
232 .           the symbol to it, and builds a relocation. To build the lists
233 .           of constructors, all the linker has to do is catenate all the
234 .           sections called <<__CTOR_LIST__>> and relocate the data
235 .           contained within - exactly the operations it would peform on
236 .           standard data. *}
237 .#define SEC_CONSTRUCTOR 0x100
238 .
239 .        {* The section is a constructor, and should be placed at the
240 .          end of the text, data, or bss section(?). *}
241 .#define SEC_CONSTRUCTOR_TEXT 0x1100
242 .#define SEC_CONSTRUCTOR_DATA 0x2100
243 .#define SEC_CONSTRUCTOR_BSS  0x3100
244 .
245 .        {* The section has contents - a data section could be
246 .           <<SEC_ALLOC>> | <<SEC_HAS_CONTENTS>>; a debug section could be
247 .           <<SEC_HAS_CONTENTS>> *}
248 .#define SEC_HAS_CONTENTS 0x200
249 .
250 .        {* An instruction to the linker to not output the section
251 .           even if it has information which would normally be written. *}
252 .#define SEC_NEVER_LOAD 0x400
253 .
254 .        {* The section is a COFF shared library section.  This flag is
255 .           only for the linker.  If this type of section appears in
256 .           the input file, the linker must copy it to the output file
257 .           without changing the vma or size.  FIXME: Although this
258 .           was originally intended to be general, it really is COFF
259 .           specific (and the flag was renamed to indicate this).  It
260 .           might be cleaner to have some more general mechanism to
261 .           allow the back end to control what the linker does with
262 .           sections. *}
263 .#define SEC_COFF_SHARED_LIBRARY 0x800
264 .
265 .        {* The section contains common symbols (symbols may be defined
266 .           multiple times, the value of a symbol is the amount of
267 .           space it requires, and the largest symbol value is the one
268 .           used).  Most targets have exactly one of these (which we
269 .           translate to bfd_com_section_ptr), but ECOFF has two. *}
270 .#define SEC_IS_COMMON 0x8000
271 .
272 .        {* The section contains only debugging information.  For
273 .           example, this is set for ELF .debug and .stab sections.
274 .           strip tests this flag to see if a section can be
275 .           discarded. *}
276 .#define SEC_DEBUGGING 0x10000
277 .
278 .        {* The contents of this section are held in memory pointed to
279 .           by the contents field.  This is checked by
280 .           bfd_get_section_contents, and the data is retrieved from
281 .           memory if appropriate.  *}
282 .#define SEC_IN_MEMORY 0x20000
283 .
284 .        {* The contents of this section are to be excluded by the
285 .           linker for executable and shared objects unless those
286 .           objects are to be further relocated.  *}
287 .#define SEC_EXCLUDE 0x40000
288 .
289 .       {* The contents of this section are to be sorted by the
290 .          based on the address specified in the associated symbol
291 .          table.  *}
292 .#define SEC_SORT_ENTRIES 0x80000
293 .
294 .       {* When linking, duplicate sections of the same name should be
295 .          discarded, rather than being combined into a single section as
296 .          is usually done.  This is similar to how common symbols are
297 .          handled.  See SEC_LINK_DUPLICATES below.  *}
298 .#define SEC_LINK_ONCE 0x100000
299 .
300 .       {* If SEC_LINK_ONCE is set, this bitfield describes how the linker
301 .          should handle duplicate sections.  *}
302 .#define SEC_LINK_DUPLICATES 0x600000
303 .
304 .       {* This value for SEC_LINK_DUPLICATES means that duplicate
305 .          sections with the same name should simply be discarded. *}
306 .#define SEC_LINK_DUPLICATES_DISCARD 0x0
307 .
308 .       {* This value for SEC_LINK_DUPLICATES means that the linker
309 .          should warn if there are any duplicate sections, although
310 .          it should still only link one copy.  *}
311 .#define SEC_LINK_DUPLICATES_ONE_ONLY 0x200000
312 .
313 .       {* This value for SEC_LINK_DUPLICATES means that the linker
314 .          should warn if any duplicate sections are a different size.  *}
315 .#define SEC_LINK_DUPLICATES_SAME_SIZE 0x400000
316 .
317 .       {* This value for SEC_LINK_DUPLICATES means that the linker
318 .          should warn if any duplicate sections contain different
319 .          contents.  *}
320 .#define SEC_LINK_DUPLICATES_SAME_CONTENTS 0x600000
321 .
322 .       {* This section was created by the linker as part of dynamic
323 .          relocation or other arcane processing.  It is skipped when
324 .          going through the first-pass output, trusting that someone
325 .          else up the line will take care of it later.  *}
326 .#define SEC_LINKER_CREATED 0x800000
327 .
328 .       {* This section should not be subject to garbage collection.  *}
329 .#define SEC_KEEP 0x1000000
330 .
331 .       {* This section contains "short" data, and should be placed
332 .          "near" the GP.  *}
333 .#define SEC_SMALL_DATA 0x2000000
334 .
335 .       {* This section contains data which may be shared with other
336 .          executables or shared objects.  *}
337 .#define SEC_SHARED 0x4000000
338 .
339 .       {*  End of section flags.  *}
340 .
341 .       {* Some internal packed boolean fields.  *}
342 .
343 .       {* See the vma field.  *}
344 .       unsigned int user_set_vma : 1;
345 .
346 .       {* Whether relocations have been processed.  *}
347 .       unsigned int reloc_done : 1;
348 .
349 .       {* A mark flag used by some of the linker backends.  *}
350 .       unsigned int linker_mark : 1;
351 .
352 .       {* A mark flag used by some linker backends for garbage collection.  *}
353 .       unsigned int gc_mark : 1;
354 .
355 .       {* End of internal packed boolean fields.  *}
356 .
357 .       {*  The virtual memory address of the section - where it will be
358 .           at run time.  The symbols are relocated against this.  The
359 .           user_set_vma flag is maintained by bfd; if it's not set, the
360 .           backend can assign addresses (for example, in <<a.out>>, where
361 .           the default address for <<.data>> is dependent on the specific
362 .           target and various flags).  *}
363 .
364 .   bfd_vma vma;
365 .
366 .       {*  The load address of the section - where it would be in a
367 .           rom image; really only used for writing section header
368 .           information. *}
369 .
370 .   bfd_vma lma;
371 .
372 .        {* The size of the section in octets, as it will be output.
373 .           Contains a value even if the section has no contents (e.g., the
374 .           size of <<.bss>>).  This will be filled in after relocation.  *}
375 .
376 .   bfd_size_type _cooked_size;
377 .
378 .        {* The original size on disk of the section, in octets.  Normally this
379 .           value is the same as the size, but if some relaxing has
380 .           been done, then this value will be bigger.  *}
381 .
382 .   bfd_size_type _raw_size;
383 .
384 .        {* If this section is going to be output, then this value is the
385 .           offset in *bytes* into the output section of the first byte in the
386 .           input section (byte ==> smallest addressable unit on the
387 .           target).  In most cases, if this was going to start at the
388 .           100th octet (8-bit quantity) in the output section, this value
389 .           would be 100.  However, if the target byte size is 16 bits
390 .           (bfd_octets_per_byte is "2"), this value would be 50. *}
391 .
392 .   bfd_vma output_offset;
393 .
394 .        {* The output section through which to map on output. *}
395 .
396 .   struct sec *output_section;
397 .
398 .        {* The alignment requirement of the section, as an exponent of 2 -
399 .           e.g., 3 aligns to 2^3 (or 8). *}
400 .
401 .   unsigned int alignment_power;
402 .
403 .        {* If an input section, a pointer to a vector of relocation
404 .           records for the data in this section. *}
405 .
406 .   struct reloc_cache_entry *relocation;
407 .
408 .        {* If an output section, a pointer to a vector of pointers to
409 .           relocation records for the data in this section. *}
410 .
411 .   struct reloc_cache_entry **orelocation;
412 .
413 .        {* The number of relocation records in one of the above  *}
414 .
415 .   unsigned reloc_count;
416 .
417 .        {* Information below is back end specific - and not always used
418 .           or updated.  *}
419 .
420 .        {* File position of section data    *}
421 .
422 .   file_ptr filepos;
423 .
424 .        {* File position of relocation info *}
425 .
426 .   file_ptr rel_filepos;
427 .
428 .        {* File position of line data       *}
429 .
430 .   file_ptr line_filepos;
431 .
432 .        {* Pointer to data for applications *}
433 .
434 .   PTR userdata;
435 .
436 .        {* If the SEC_IN_MEMORY flag is set, this points to the actual
437 .           contents.  *}
438 .   unsigned char *contents;
439 .
440 .        {* Attached line number information *}
441 .
442 .   alent *lineno;
443 .
444 .        {* Number of line number records   *}
445 .
446 .   unsigned int lineno_count;
447 .
448 .        {* Optional information about a COMDAT entry; NULL if not COMDAT *}
449 .
450 .   struct bfd_comdat_info *comdat;
451 .
452 .        {* When a section is being output, this value changes as more
453 .           linenumbers are written out *}
454 .
455 .   file_ptr moving_line_filepos;
456 .
457 .        {* What the section number is in the target world  *}
458 .
459 .   int target_index;
460 .
461 .   PTR used_by_bfd;
462 .
463 .        {* If this is a constructor section then here is a list of the
464 .           relocations created to relocate items within it. *}
465 .
466 .   struct relent_chain *constructor_chain;
467 .
468 .        {* The BFD which owns the section. *}
469 .
470 .   bfd *owner;
471 .
472 .        {* A symbol which points at this section only *}
473 .   struct symbol_cache_entry *symbol;
474 .   struct symbol_cache_entry **symbol_ptr_ptr;
475 .
476 .   struct bfd_link_order *link_order_head;
477 .   struct bfd_link_order *link_order_tail;
478 .} asection ;
479 .
480 .    {* These sections are global, and are managed by BFD.  The application
481 .       and target back end are not permitted to change the values in
482 .       these sections.  New code should use the section_ptr macros rather
483 .       than referring directly to the const sections.  The const sections
484 .       may eventually vanish.  *}
485 .#define BFD_ABS_SECTION_NAME "*ABS*"
486 .#define BFD_UND_SECTION_NAME "*UND*"
487 .#define BFD_COM_SECTION_NAME "*COM*"
488 .#define BFD_IND_SECTION_NAME "*IND*"
489 .
490 .    {* the absolute section *}
491 .extern const asection bfd_abs_section;
492 .#define bfd_abs_section_ptr ((asection *) &bfd_abs_section)
493 .#define bfd_is_abs_section(sec) ((sec) == bfd_abs_section_ptr)
494 .    {* Pointer to the undefined section *}
495 .extern const asection bfd_und_section;
496 .#define bfd_und_section_ptr ((asection *) &bfd_und_section)
497 .#define bfd_is_und_section(sec) ((sec) == bfd_und_section_ptr)
498 .    {* Pointer to the common section *}
499 .extern const asection bfd_com_section;
500 .#define bfd_com_section_ptr ((asection *) &bfd_com_section)
501 .    {* Pointer to the indirect section *}
502 .extern const asection bfd_ind_section;
503 .#define bfd_ind_section_ptr ((asection *) &bfd_ind_section)
504 .#define bfd_is_ind_section(sec) ((sec) == bfd_ind_section_ptr)
505 .
506 .extern const struct symbol_cache_entry * const bfd_abs_symbol;
507 .extern const struct symbol_cache_entry * const bfd_com_symbol;
508 .extern const struct symbol_cache_entry * const bfd_und_symbol;
509 .extern const struct symbol_cache_entry * const bfd_ind_symbol;
510 .#define bfd_get_section_size_before_reloc(section) \
511 .     (section->reloc_done ? (abort(),1): (section)->_raw_size)
512 .#define bfd_get_section_size_after_reloc(section) \
513 .     ((section->reloc_done) ? (section)->_cooked_size: (abort(),1))
514 */
515
516 /* We use a macro to initialize the static asymbol structures because
517    traditional C does not permit us to initialize a union member while
518    gcc warns if we don't initialize it.  */
519  /* the_bfd, name, value, attr, section [, udata] */
520 #ifdef __STDC__
521 #define GLOBAL_SYM_INIT(NAME, SECTION) \
522   { 0, NAME, 0, BSF_SECTION_SYM, (asection *) SECTION, { 0 }}
523 #else
524 #define GLOBAL_SYM_INIT(NAME, SECTION) \
525   { 0, NAME, 0, BSF_SECTION_SYM, (asection *) SECTION }
526 #endif
527
528 /* These symbols are global, not specific to any BFD.  Therefore, anything
529    that tries to change them is broken, and should be repaired.  */
530
531 static const asymbol global_syms[] =
532 {
533   GLOBAL_SYM_INIT (BFD_COM_SECTION_NAME, &bfd_com_section),
534   GLOBAL_SYM_INIT (BFD_UND_SECTION_NAME, &bfd_und_section),
535   GLOBAL_SYM_INIT (BFD_ABS_SECTION_NAME, &bfd_abs_section),
536   GLOBAL_SYM_INIT (BFD_IND_SECTION_NAME, &bfd_ind_section)
537 };
538
539 #define STD_SECTION(SEC, FLAGS, SYM, NAME, IDX) \
540   const asymbol * const SYM = (asymbol *) &global_syms[IDX]; \
541   const asection SEC = \
542     /* name, index, next, flags, set_vma, reloc_done, linker_mark, gc_mark */ \
543     { NAME,  0,     0,    FLAGS, 0,       0,          0,           0,         \
544                                                                               \
545     /* vma, lma, _cooked_size, _raw_size, output_offset, output_section, */   \
546        0,   0,   0,            0,         0,             (struct sec *) &SEC, \
547                                                                               \
548     /* alig..., reloc..., orel..., reloc_count, filepos, rel_..., line_... */ \
549        0,       0,        0,       0,           0,       0,        0,         \
550                                                                               \
551     /* userdata, contents, lineno, lineno_count */                            \
552        0,        0,        0,      0,                                         \
553                                                                               \
554     /* comdat_info, moving_line_filepos, target_index, used_by_bfd,  */       \
555        NULL,        0,                   0,            0,                     \
556                                                                               \
557     /* cons..., owner, symbol */                                              \
558        0,       0,     (struct symbol_cache_entry *) &global_syms[IDX],       \
559                                                                               \
560     /* symbol_ptr_ptr,                      link_order_head, ..._tail */      \
561        (struct symbol_cache_entry **) &SYM, 0,               0                \
562     }
563
564 STD_SECTION (bfd_com_section, SEC_IS_COMMON, bfd_com_symbol,
565              BFD_COM_SECTION_NAME, 0);
566 STD_SECTION (bfd_und_section, 0, bfd_und_symbol, BFD_UND_SECTION_NAME, 1);
567 STD_SECTION (bfd_abs_section, 0, bfd_abs_symbol, BFD_ABS_SECTION_NAME, 2);
568 STD_SECTION (bfd_ind_section, 0, bfd_ind_symbol, BFD_IND_SECTION_NAME, 3);
569 #undef STD_SECTION
570
571 /*
572 DOCDD
573 INODE
574 section prototypes,  , typedef asection, Sections
575 SUBSECTION
576         Section prototypes
577
578 These are the functions exported by the section handling part of BFD.
579 */
580
581 /*
582 FUNCTION
583         bfd_get_section_by_name
584
585 SYNOPSIS
586         asection *bfd_get_section_by_name(bfd *abfd, CONST char *name);
587
588 DESCRIPTION
589         Run through @var{abfd} and return the one of the
590         <<asection>>s whose name matches @var{name}, otherwise <<NULL>>.
591         @xref{Sections}, for more information.
592
593         This should only be used in special cases; the normal way to process
594         all sections of a given name is to use <<bfd_map_over_sections>> and
595         <<strcmp>> on the name (or better yet, base it on the section flags
596         or something else) for each section.
597 */
598
599 asection *
600 bfd_get_section_by_name (abfd, name)
601      bfd *abfd;
602      CONST char *name;
603 {
604   asection *sect;
605
606   for (sect = abfd->sections; sect != NULL; sect = sect->next)
607     if (!strcmp (sect->name, name))
608       return sect;
609   return NULL;
610 }
611
612
613 /*
614 FUNCTION
615         bfd_make_section_old_way
616
617 SYNOPSIS
618         asection *bfd_make_section_old_way(bfd *abfd, CONST char *name);
619
620 DESCRIPTION
621         Create a new empty section called @var{name}
622         and attach it to the end of the chain of sections for the
623         BFD @var{abfd}. An attempt to create a section with a name which
624         is already in use returns its pointer without changing the
625         section chain.
626
627         It has the funny name since this is the way it used to be
628         before it was rewritten....
629
630         Possible errors are:
631         o <<bfd_error_invalid_operation>> -
632         If output has already started for this BFD.
633         o <<bfd_error_no_memory>> -
634         If memory allocation fails.
635
636 */
637
638
639 asection *
640 bfd_make_section_old_way (abfd, name)
641      bfd *abfd;
642      CONST char *name;
643 {
644   asection *sec = bfd_get_section_by_name (abfd, name);
645   if (sec == (asection *) NULL)
646     {
647       sec = bfd_make_section (abfd, name);
648     }
649   return sec;
650 }
651
652 /*
653 FUNCTION
654         bfd_make_section_anyway
655
656 SYNOPSIS
657         asection *bfd_make_section_anyway(bfd *abfd, CONST char *name);
658
659 DESCRIPTION
660    Create a new empty section called @var{name} and attach it to the end of
661    the chain of sections for @var{abfd}.  Create a new section even if there
662    is already a section with that name.
663
664    Return <<NULL>> and set <<bfd_error>> on error; possible errors are:
665    o <<bfd_error_invalid_operation>> - If output has already started for @var{abfd}.
666    o <<bfd_error_no_memory>> - If memory allocation fails.
667 */
668
669 sec_ptr
670 bfd_make_section_anyway (abfd, name)
671      bfd *abfd;
672      CONST char *name;
673 {
674   asection *newsect;
675   asection **prev = &abfd->sections;
676   asection *sect = abfd->sections;
677
678   if (abfd->output_has_begun)
679     {
680       bfd_set_error (bfd_error_invalid_operation);
681       return NULL;
682     }
683
684   while (sect)
685     {
686       prev = &sect->next;
687       sect = sect->next;
688     }
689
690   newsect = (asection *) bfd_zalloc (abfd, sizeof (asection));
691   if (newsect == NULL)
692     return NULL;
693
694   newsect->name = name;
695   newsect->index = abfd->section_count++;
696   newsect->flags = SEC_NO_FLAGS;
697
698   newsect->userdata = NULL;
699   newsect->contents = NULL;
700   newsect->next = (asection *) NULL;
701   newsect->relocation = (arelent *) NULL;
702   newsect->reloc_count = 0;
703   newsect->line_filepos = 0;
704   newsect->owner = abfd;
705   newsect->comdat = NULL;
706
707   /* Create a symbol whos only job is to point to this section. This is
708      useful for things like relocs which are relative to the base of a
709      section.  */
710   newsect->symbol = bfd_make_empty_symbol (abfd);
711   if (newsect->symbol == NULL)
712     return NULL;
713   newsect->symbol->name = name;
714   newsect->symbol->value = 0;
715   newsect->symbol->section = newsect;
716   newsect->symbol->flags = BSF_SECTION_SYM;
717
718   newsect->symbol_ptr_ptr = &newsect->symbol;
719
720   if (BFD_SEND (abfd, _new_section_hook, (abfd, newsect)) != true)
721     {
722       free (newsect);
723       return NULL;
724     }
725
726   *prev = newsect;
727   return newsect;
728 }
729
730 /*
731 FUNCTION
732         bfd_make_section
733
734 SYNOPSIS
735         asection *bfd_make_section(bfd *, CONST char *name);
736
737 DESCRIPTION
738    Like <<bfd_make_section_anyway>>, but return <<NULL>> (without calling
739    bfd_set_error ()) without changing the section chain if there is already a
740    section named @var{name}.  If there is an error, return <<NULL>> and set
741    <<bfd_error>>.
742 */
743
744 asection *
745 bfd_make_section (abfd, name)
746      bfd *abfd;
747      CONST char *name;
748 {
749   asection *sect = abfd->sections;
750
751   if (strcmp (name, BFD_ABS_SECTION_NAME) == 0)
752     {
753       return bfd_abs_section_ptr;
754     }
755   if (strcmp (name, BFD_COM_SECTION_NAME) == 0)
756     {
757       return bfd_com_section_ptr;
758     }
759   if (strcmp (name, BFD_UND_SECTION_NAME) == 0)
760     {
761       return bfd_und_section_ptr;
762     }
763
764   if (strcmp (name, BFD_IND_SECTION_NAME) == 0)
765     {
766       return bfd_ind_section_ptr;
767     }
768
769   while (sect)
770     {
771       if (!strcmp (sect->name, name))
772         return NULL;
773       sect = sect->next;
774     }
775
776   /* The name is not already used; go ahead and make a new section.  */
777   return bfd_make_section_anyway (abfd, name);
778 }
779
780
781 /*
782 FUNCTION
783         bfd_set_section_flags
784
785 SYNOPSIS
786         boolean bfd_set_section_flags(bfd *abfd, asection *sec, flagword flags);
787
788 DESCRIPTION
789         Set the attributes of the section @var{sec} in the BFD
790         @var{abfd} to the value @var{flags}. Return <<true>> on success,
791         <<false>> on error. Possible error returns are:
792
793         o <<bfd_error_invalid_operation>> -
794         The section cannot have one or more of the attributes
795         requested. For example, a .bss section in <<a.out>> may not
796         have the <<SEC_HAS_CONTENTS>> field set.
797
798 */
799
800 /*ARGSUSED*/
801 boolean
802 bfd_set_section_flags (abfd, section, flags)
803      bfd *abfd ATTRIBUTE_UNUSED;
804      sec_ptr section;
805      flagword flags;
806 {
807 #if 0
808   /* If you try to copy a text section from an input file (where it
809      has the SEC_CODE flag set) to an output file, this loses big if
810      the bfd_applicable_section_flags (abfd) doesn't have the SEC_CODE
811      set - which it doesn't, at least not for a.out.  FIXME */
812
813   if ((flags & bfd_applicable_section_flags (abfd)) != flags)
814     {
815       bfd_set_error (bfd_error_invalid_operation);
816       return false;
817     }
818 #endif
819
820   section->flags = flags;
821   return true;
822 }
823
824
825 /*
826 FUNCTION
827         bfd_map_over_sections
828
829 SYNOPSIS
830         void bfd_map_over_sections(bfd *abfd,
831                                    void (*func)(bfd *abfd,
832                                                 asection *sect,
833                                                 PTR obj),
834                                    PTR obj);
835
836 DESCRIPTION
837         Call the provided function @var{func} for each section
838         attached to the BFD @var{abfd}, passing @var{obj} as an
839         argument. The function will be called as if by
840
841 |       func(abfd, the_section, obj);
842
843         This is the prefered method for iterating over sections; an
844         alternative would be to use a loop:
845
846 |          section *p;
847 |          for (p = abfd->sections; p != NULL; p = p->next)
848 |             func(abfd, p, ...)
849
850
851 */
852
853 /*VARARGS2*/
854 void
855 bfd_map_over_sections (abfd, operation, user_storage)
856      bfd *abfd;
857      void (*operation) PARAMS ((bfd * abfd, asection * sect, PTR obj));
858      PTR user_storage;
859 {
860   asection *sect;
861   unsigned int i = 0;
862
863   for (sect = abfd->sections; sect != NULL; i++, sect = sect->next)
864     (*operation) (abfd, sect, user_storage);
865
866   if (i != abfd->section_count) /* Debugging */
867     abort ();
868 }
869
870
871 /*
872 FUNCTION
873         bfd_set_section_size
874
875 SYNOPSIS
876         boolean bfd_set_section_size(bfd *abfd, asection *sec, bfd_size_type val);
877
878 DESCRIPTION
879         Set @var{sec} to the size @var{val}. If the operation is
880         ok, then <<true>> is returned, else <<false>>.
881
882         Possible error returns:
883         o <<bfd_error_invalid_operation>> -
884         Writing has started to the BFD, so setting the size is invalid.
885
886 */
887
888 boolean
889 bfd_set_section_size (abfd, ptr, val)
890      bfd *abfd;
891      sec_ptr ptr;
892      bfd_size_type val;
893 {
894   /* Once you've started writing to any section you cannot create or change
895      the size of any others. */
896
897   if (abfd->output_has_begun)
898     {
899       bfd_set_error (bfd_error_invalid_operation);
900       return false;
901     }
902
903   ptr->_cooked_size = val;
904   ptr->_raw_size = val;
905
906   return true;
907 }
908
909 /*
910 FUNCTION
911         bfd_set_section_contents
912
913 SYNOPSIS
914         boolean bfd_set_section_contents
915          (bfd *abfd,
916          asection *section,
917          PTR data,
918          file_ptr offset,
919          bfd_size_type count);
920
921
922 DESCRIPTION
923         Sets the contents of the section @var{section} in BFD
924         @var{abfd} to the data starting in memory at @var{data}. The
925         data is written to the output section starting at offset
926         @var{offset} for @var{count} octets.
927
928
929
930         Normally <<true>> is returned, else <<false>>. Possible error
931         returns are:
932         o <<bfd_error_no_contents>> -
933         The output section does not have the <<SEC_HAS_CONTENTS>>
934         attribute, so nothing can be written to it.
935         o and some more too
936
937         This routine is front end to the back end function
938         <<_bfd_set_section_contents>>.
939
940
941 */
942
943 #define bfd_get_section_size_now(abfd,sec) \
944 (sec->reloc_done \
945  ? bfd_get_section_size_after_reloc (sec) \
946  : bfd_get_section_size_before_reloc (sec))
947
948 boolean
949 bfd_set_section_contents (abfd, section, location, offset, count)
950      bfd *abfd;
951      sec_ptr section;
952      PTR location;
953      file_ptr offset;
954      bfd_size_type count;
955 {
956   bfd_size_type sz;
957
958   if (!(bfd_get_section_flags (abfd, section) & SEC_HAS_CONTENTS))
959     {
960       bfd_set_error (bfd_error_no_contents);
961       return (false);
962     }
963
964   if (offset < 0)
965     {
966     bad_val:
967       bfd_set_error (bfd_error_bad_value);
968       return false;
969     }
970   sz = bfd_get_section_size_now (abfd, section);
971   if ((bfd_size_type) offset > sz
972       || count > sz
973       || offset + count > sz)
974     goto bad_val;
975
976   switch (abfd->direction)
977     {
978     case read_direction:
979     case no_direction:
980       bfd_set_error (bfd_error_invalid_operation);
981       return false;
982
983     case write_direction:
984       break;
985
986     case both_direction:
987       /* File is opened for update. `output_has_begun' some time ago when
988            the file was created.  Do not recompute sections sizes or alignments
989            in _bfd_set_section_content.  */
990       abfd->output_has_begun = true;
991       break;
992     }
993
994   if (BFD_SEND (abfd, _bfd_set_section_contents,
995                 (abfd, section, location, offset, count)))
996     {
997       abfd->output_has_begun = true;
998       return true;
999     }
1000
1001   return false;
1002 }
1003
1004 /*
1005 FUNCTION
1006         bfd_get_section_contents
1007
1008 SYNOPSIS
1009         boolean bfd_get_section_contents
1010         (bfd *abfd, asection *section, PTR location,
1011          file_ptr offset, bfd_size_type count);
1012
1013 DESCRIPTION
1014         Read data from @var{section} in BFD @var{abfd}
1015         into memory starting at @var{location}. The data is read at an
1016         offset of @var{offset} from the start of the input section,
1017         and is read for @var{count} bytes.
1018
1019         If the contents of a constructor with the <<SEC_CONSTRUCTOR>>
1020         flag set are requested or if the section does not have the
1021         <<SEC_HAS_CONTENTS>> flag set, then the @var{location} is filled
1022         with zeroes. If no errors occur, <<true>> is returned, else
1023         <<false>>.
1024
1025
1026
1027 */
1028 boolean
1029 bfd_get_section_contents (abfd, section, location, offset, count)
1030      bfd *abfd;
1031      sec_ptr section;
1032      PTR location;
1033      file_ptr offset;
1034      bfd_size_type count;
1035 {
1036   bfd_size_type sz;
1037
1038   if (section->flags & SEC_CONSTRUCTOR)
1039     {
1040       memset (location, 0, (unsigned) count);
1041       return true;
1042     }
1043
1044   if (offset < 0)
1045     {
1046     bad_val:
1047       bfd_set_error (bfd_error_bad_value);
1048       return false;
1049     }
1050   /* Even if reloc_done is true, this function reads unrelocated
1051      contents, so we want the raw size.  */
1052   sz = section->_raw_size;
1053   if ((bfd_size_type) offset > sz || count > sz || offset + count > sz)
1054     goto bad_val;
1055
1056   if (count == 0)
1057     /* Don't bother.  */
1058     return true;
1059
1060   if ((section->flags & SEC_HAS_CONTENTS) == 0)
1061     {
1062       memset (location, 0, (unsigned) count);
1063       return true;
1064     }
1065
1066   if ((section->flags & SEC_IN_MEMORY) != 0)
1067     {
1068       memcpy (location, section->contents + offset, (size_t) count);
1069       return true;
1070     }
1071
1072   return BFD_SEND (abfd, _bfd_get_section_contents,
1073                    (abfd, section, location, offset, count));
1074 }
1075
1076 /*
1077 FUNCTION
1078         bfd_copy_private_section_data
1079
1080 SYNOPSIS
1081         boolean bfd_copy_private_section_data(bfd *ibfd, asection *isec, bfd *obfd, asection *osec);
1082
1083 DESCRIPTION
1084         Copy private section information from @var{isec} in the BFD
1085         @var{ibfd} to the section @var{osec} in the BFD @var{obfd}.
1086         Return <<true>> on success, <<false>> on error.  Possible error
1087         returns are:
1088
1089         o <<bfd_error_no_memory>> -
1090         Not enough memory exists to create private data for @var{osec}.
1091
1092 .#define bfd_copy_private_section_data(ibfd, isection, obfd, osection) \
1093 .     BFD_SEND (obfd, _bfd_copy_private_section_data, \
1094 .               (ibfd, isection, obfd, osection))
1095 */
1096
1097 /*
1098 FUNCTION
1099         _bfd_strip_section_from_output
1100
1101 SYNOPSIS
1102         void _bfd_strip_section_from_output
1103         (struct bfd_link_info *info, asection *section);
1104
1105 DESCRIPTION
1106         Remove @var{section} from the output.  If the output section
1107         becomes empty, remove it from the output bfd.  @var{info} may
1108         be NULL; if it is not, it is used to decide whether the output
1109         section is empty.
1110 */
1111 void
1112 _bfd_strip_section_from_output (info, s)
1113      struct bfd_link_info *info;
1114      asection *s;
1115 {
1116   asection **spp, *os;
1117   struct bfd_link_order *p, *pp;
1118   boolean keep_os;
1119
1120   /* Excise the input section from the link order.
1121
1122      FIXME: For all calls that I can see to this function, the link
1123      orders have not yet been set up.  So why are we checking them? --
1124      Ian */
1125   os = s->output_section;
1126   for (p = os->link_order_head, pp = NULL; p != NULL; pp = p, p = p->next)
1127     if (p->type == bfd_indirect_link_order
1128         && p->u.indirect.section == s)
1129       {
1130         if (pp)
1131           pp->next = p->next;
1132         else
1133           os->link_order_head = p->next;
1134         if (!p->next)
1135           os->link_order_tail = pp;
1136         break;
1137       }
1138
1139   keep_os = os->link_order_head != NULL;
1140
1141   if (! keep_os && info != NULL)
1142     {
1143       bfd *abfd;
1144       for (abfd = info->input_bfds; abfd != NULL; abfd = abfd->link_next)
1145         {
1146           asection *is;
1147           for (is = abfd->sections; is != NULL; is = is->next)
1148             {
1149               if (is != s && is->output_section == os)
1150                 break;
1151             }
1152           if (is != NULL)
1153             break;
1154         }
1155       if (abfd != NULL)
1156         keep_os = true;
1157     }
1158
1159   /* If the output section is empty, remove it too.  Careful about sections
1160      that have been discarded in the link script -- they are mapped to 
1161      bfd_abs_section, which has no owner.  */
1162   if (!keep_os && os->owner != NULL)
1163     {
1164       for (spp = &os->owner->sections; *spp; spp = &(*spp)->next)
1165         if (*spp == os)
1166           {
1167             *spp = os->next;
1168             os->owner->section_count--;
1169             break;
1170           }
1171     }
1172 }