8 Tie together all the interseting blocks
14 #include "../bfd/seclet.h"
15 #include "coff/internal.h"
26 DEFUN(build_it,(statement),
27 lang_statement_union_type *statement)
29 switch (statement->header.type) {
33 bfd_byte play_area[SHORT_SIZE];
35 bfd_putshort(output_bfd, statement->fill_statement.fill, play_area);
36 /* Write out all entire shorts */
38 i < statement->fill_statement.size - SHORT_SIZE + 1;
41 bfd_set_section_contents(output_bfd,
42 statement->fill_statement.output_section,
44 statement->data_statement.output_offset +i,
49 /* Now write any remaining byte */
50 if (i < statement->fill_statement.size)
52 bfd_set_section_contents(output_bfd,
53 statement->fill_statement.output_section,
55 statement->data_statement.output_offset +i,
64 case lang_data_statement_enum:
68 bfd_vma value = statement->data_statement.value;
69 bfd_byte play_area[LONG_SIZE];
70 unsigned int size = 0;
71 switch (statement->data_statement.type) {
73 bfd_put_32(output_bfd, value, play_area);
77 bfd_put_16(output_bfd, value, play_area);
81 bfd_put_8(output_bfd, value, play_area);
86 bfd_set_section_contents(output_bfd,
87 statement->data_statement.output_section,
89 statement->data_statement.output_vma,
97 case lang_input_section_enum:
99 /* Create a new seclet in the output section with this
101 if (statement->input_section.ifile->just_syms_flag == false)
103 asection *i = statement->input_section.section;
105 asection *output_section = i->output_section;
107 bfd_seclet_type *seclet = bfd_new_seclet(output_section->owner,output_section);
109 seclet->type = bfd_indirect_seclet;
110 seclet->u.indirect.section = i;
111 seclet->u.indirect.symbols = statement->input_section.ifile->asymbols;
112 seclet->size = i->_cooked_size;
113 seclet->offset = i->output_offset;
119 case lang_padding_statement_enum:
120 /* Make a new seclet with the right filler */
122 /* Create a new seclet in the output section with this
125 bfd_seclet_type *seclet =
126 bfd_new_seclet(statement->padding_statement.output_section->owner,
127 statement->padding_statement.output_section);
129 seclet->type = bfd_fill_seclet;
130 seclet->size = statement->padding_statement.size;
131 seclet->offset = statement->padding_statement.output_offset;
132 seclet->u.fill.value = statement->padding_statement.fill;
141 /* All the other ones fall through */
152 DEFUN(write_relaxnorel,(output_bfd, data),
156 /* Tie up all the statements to generate an output bfd structure which
160 lang_for_each_statement(build_it);
162 seclet_dump(output_bfd, data);
170 /* See if we can change the size of this section by shrinking the
171 relocations in it. If this happens, then we'll have to renumber the
172 symbols in it, and shift around the data too.
175 DEFUN(relax_section,(this_ptr),
176 lang_statement_union_type **this_ptr)
179 lang_input_section_type *is = &((*this_ptr)->input_section);
180 asection *i = is->section;
181 if (!(i->owner->flags & BFD_IS_RELAXABLE))
183 einfo("%B: not assembled with -linkrelax\n", i->owner);
186 return bfd_relax_section(i->owner, i, is->ifile->asymbols);