Commit | Line | Data |
---|---|---|
3c3bdf30 | 1 | # This shell script emits a C file. -*- C -*- |
aa820537 | 2 | # Copyright 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
f13a99db | 3 | # Free Software Foundation, Inc. |
3c3bdf30 | 4 | # |
f96b4a7b | 5 | # This file is part of the GNU Binutils. |
3c3bdf30 NC |
6 | # |
7 | # This program is free software; you can redistribute it and/or modify | |
8 | # it under the terms of the GNU General Public License as published by | |
f96b4a7b | 9 | # the Free Software Foundation; either version 3 of the License, or |
3c3bdf30 NC |
10 | # (at your option) any later version. |
11 | # | |
12 | # This program is distributed in the hope that it will be useful, | |
13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | # GNU General Public License for more details. | |
16 | # | |
17 | # You should have received a copy of the GNU General Public License | |
18 | # along with this program; if not, write to the Free Software | |
f96b4a7b NC |
19 | # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, |
20 | # MA 02110-1301, USA. | |
3c3bdf30 NC |
21 | # |
22 | ||
a4308b79 | 23 | # This file is sourced from generic.em. |
3c3bdf30 | 24 | |
92b93329 | 25 | fragment <<EOF |
a4308b79 HPN |
26 | /* Need to have this macro defined before mmix-elfnmmo, which uses the |
27 | name for the before_allocation function, defined in ldemul.c (for | |
28 | the mmo "emulation") or in elf32.em (for the elf64mmix | |
29 | "emulation"). */ | |
48fa4a5d | 30 | #define gldmmo_before_allocation before_allocation_default |
8ded5a0f | 31 | |
a4308b79 HPN |
32 | /* We include this header *not* because we expect to handle ELF here |
33 | but because we re-use the map_segments function in elf-generic.em, | |
34 | a file which is rightly somewhat ELF-centric. But this is only to | |
35 | get a weird testcase right; ld-mmix/bpo-22, forcing ELF to be | |
36 | output from the mmo emulation: -m mmo --oformat elf64-mmix! */ | |
8ded5a0f | 37 | #include "elf-bfd.h" |
eaeb0a9d AM |
38 | |
39 | static void gld${EMULATION_NAME}_after_allocation (void); | |
48fa4a5d HPN |
40 | EOF |
41 | ||
92b93329 RM |
42 | source_em ${srcdir}/emultempl/elf-generic.em |
43 | source_em ${srcdir}/emultempl/mmix-elfnmmo.em | |
3c3bdf30 | 44 | |
92b93329 | 45 | fragment <<EOF |
3c3bdf30 | 46 | |
3c3bdf30 NC |
47 | /* Place an orphan section. We use this to put random SEC_CODE or |
48 | SEC_READONLY sections right after MMO_TEXT_SECTION_NAME. Much borrowed | |
49 | from elf32.em. */ | |
50 | ||
c2edb4b8 | 51 | static lang_output_section_statement_type * |
8a99a385 AM |
52 | mmo_place_orphan (asection *s, |
53 | const char *secname, | |
54 | int constraint ATTRIBUTE_UNUSED) | |
3c3bdf30 | 55 | { |
afd7a018 AM |
56 | static struct orphan_save hold_text = |
57 | { | |
58 | MMO_TEXT_SECTION_NAME, | |
59 | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE, | |
60 | 0, 0, 0, 0 | |
61 | }; | |
3c3bdf30 | 62 | struct orphan_save *place; |
afd7a018 | 63 | lang_output_section_statement_type *after; |
3c3bdf30 | 64 | lang_output_section_statement_type *os; |
3c3bdf30 NC |
65 | |
66 | /* We have nothing to say for anything other than a final link. */ | |
1049f94e | 67 | if (link_info.relocatable |
afd7a018 | 68 | || (s->flags & (SEC_EXCLUDE | SEC_LOAD)) != SEC_LOAD) |
c2edb4b8 | 69 | return NULL; |
3c3bdf30 NC |
70 | |
71 | /* Only care for sections we're going to load. */ | |
afd7a018 | 72 | os = lang_output_section_find (secname); |
3c3bdf30 NC |
73 | |
74 | /* We have an output section by this name. Place the section inside it | |
75 | (regardless of whether the linker script lists it as input). */ | |
76 | if (os != NULL) | |
77 | { | |
7b986e99 | 78 | lang_add_section (&os->children, s, os); |
c2edb4b8 | 79 | return os; |
3c3bdf30 NC |
80 | } |
81 | ||
82 | /* If this section does not have .text-type section flags or there's no | |
83 | MMO_TEXT_SECTION_NAME, we don't have anything to say. */ | |
afd7a018 | 84 | if ((s->flags & (SEC_CODE | SEC_READONLY)) == 0) |
c2edb4b8 | 85 | return NULL; |
3c3bdf30 NC |
86 | |
87 | if (hold_text.os == NULL) | |
afd7a018 | 88 | hold_text.os = lang_output_section_find (hold_text.name); |
3c3bdf30 NC |
89 | |
90 | place = &hold_text; | |
afd7a018 AM |
91 | if (hold_text.os != NULL) |
92 | after = hold_text.os; | |
93 | else | |
94 | after = &lang_output_section_statement.head->output_section_statement; | |
3c3bdf30 NC |
95 | |
96 | /* If there's an output section by this name, we'll use it, regardless | |
97 | of section flags, in contrast to what's done in elf32.em. */ | |
8a99a385 | 98 | os = lang_insert_orphan (s, secname, 0, after, place, NULL, NULL); |
25844aae | 99 | |
3595bd6e HPN |
100 | /* We need an output section for .text as a root, so if there was none |
101 | (might happen with a peculiar linker script such as in "map | |
102 | addresses", map-address.exp), we grab the output section created | |
103 | above. */ | |
104 | if (hold_text.os == NULL) | |
afd7a018 | 105 | hold_text.os = os; |
3c3bdf30 | 106 | |
c2edb4b8 | 107 | return os; |
3c3bdf30 NC |
108 | } |
109 | ||
110 | /* Remove the spurious settings of SEC_RELOC that make it to the output at | |
111 | link time. We are as confused as elflink.h:elf_bfd_final_link, and | |
112 | paper over the bug similarly. */ | |
113 | ||
114 | static void | |
0c7a8e5a | 115 | mmo_wipe_sec_reloc_flag (bfd *abfd, asection *sec, void *ptr ATTRIBUTE_UNUSED) |
3c3bdf30 NC |
116 | { |
117 | bfd_set_section_flags (abfd, sec, | |
118 | bfd_get_section_flags (abfd, sec) & ~SEC_RELOC); | |
119 | } | |
120 | ||
121 | /* Iterate with bfd_map_over_sections over mmo_wipe_sec_reloc_flag... */ | |
122 | ||
123 | static void | |
eaeb0a9d | 124 | gld${EMULATION_NAME}_after_allocation (void) |
3c3bdf30 | 125 | { |
f13a99db | 126 | bfd_map_over_sections (link_info.output_bfd, mmo_wipe_sec_reloc_flag, NULL); |
8ded5a0f | 127 | gld${EMULATION_NAME}_map_segments (FALSE); |
3c3bdf30 | 128 | } |
48fa4a5d HPN |
129 | \f |
130 | /* To get on-demand global register allocation right, we need to parse the | |
131 | relocs, like what happens when linking to ELF. It needs to be done | |
132 | before all input sections are supposed to be present. When linking to | |
133 | ELF, it's done when reading symbols. When linking to mmo, we do it | |
134 | when all input files are seen, which is equivalent. */ | |
3c3bdf30 | 135 | |
48fa4a5d | 136 | static void |
0c7a8e5a | 137 | mmo_after_open (void) |
48fa4a5d | 138 | { |
1c5e6447 HPN |
139 | /* When there's a mismatch between the output format and the emulation |
140 | (using weird combinations like "-m mmo --oformat elf64-mmix" for | |
141 | example), we'd count relocs twice because they'd also be counted | |
142 | along the usual route for ELF-only linking, which would lead to an | |
143 | internal accounting error. */ | |
f13a99db | 144 | if (bfd_get_flavour (link_info.output_bfd) != bfd_target_elf_flavour) |
48fa4a5d | 145 | { |
1c5e6447 HPN |
146 | LANG_FOR_EACH_INPUT_STATEMENT (is) |
147 | { | |
148 | if (bfd_get_flavour (is->the_bfd) == bfd_target_elf_flavour | |
149 | && !_bfd_mmix_check_all_relocs (is->the_bfd, &link_info)) | |
150 | einfo ("%X%P: Internal problems scanning %B after opening it", | |
151 | is->the_bfd); | |
152 | } | |
48fa4a5d | 153 | } |
5c3049d2 | 154 | after_open_default (); |
48fa4a5d | 155 | } |
3c3bdf30 NC |
156 | EOF |
157 | ||
158 | LDEMUL_PLACE_ORPHAN=mmo_place_orphan | |
48fa4a5d | 159 | LDEMUL_AFTER_OPEN=mmo_after_open |