Commit | Line | Data |
---|---|---|
252b5132 | 1 | # This shell script emits a C file. -*- C -*- |
8afb0e02 | 2 | # Copyright 1991, 1993, 1996, 1997, 1998, 1999, 2000, 2002 |
41392f03 AM |
3 | # Free Software Foundation, Inc. |
4 | # | |
5 | # This file is part of GLD, the Gnu Linker. | |
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 | |
9 | # the Free Software Foundation; either version 2 of the License, or | |
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 | |
19 | # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
20 | # | |
21 | ||
22 | # This file is sourced from elf32.em, and defines extra arm-elf | |
23 | # specific routines. | |
24 | # | |
25 | cat >>e${EMULATION_NAME}.c <<EOF | |
7ca69e9e | 26 | |
88f7bcd5 NC |
27 | static int no_pipeline_knowledge = 0; |
28 | static char *thumb_entry_symbol = NULL; | |
29 | static bfd *bfd_for_interwork; | |
7ca69e9e | 30 | |
252b5132 RH |
31 | |
32 | static void | |
33 | gld${EMULATION_NAME}_before_parse () | |
34 | { | |
35 | #ifndef TARGET_ /* I.e., if not generic. */ | |
36 | ldfile_set_output_arch ("`echo ${ARCH}`"); | |
37 | #endif /* not TARGET_ */ | |
b34976b6 AM |
38 | config.dynamic_link = ${DYNAMIC_LINK-TRUE}; |
39 | config.has_shared = `if test -n "$GENERATE_SHLIB_SCRIPT" ; then echo TRUE ; else echo FALSE ; fi`; | |
252b5132 RH |
40 | } |
41 | ||
88f7bcd5 NC |
42 | static void arm_elf_after_open PARAMS ((void)); |
43 | ||
1220a729 | 44 | static void |
41392f03 | 45 | arm_elf_after_open () |
1220a729 | 46 | { |
f11523b0 | 47 | if (strstr (bfd_get_target (output_bfd), "arm") == NULL) |
1220a729 | 48 | { |
f11523b0 NC |
49 | /* The arm backend needs special fields in the output hash structure. |
50 | These will only be created if the output format is an arm format, | |
51 | hence we do not support linking and changing output formats at the | |
52 | same time. Use a link followed by objcopy to change output formats. */ | |
53 | einfo ("%F%X%P: error: cannot change output format whilst linking ARM binaries\n"); | |
54 | return; | |
1220a729 NC |
55 | } |
56 | ||
f11523b0 NC |
57 | { |
58 | LANG_FOR_EACH_INPUT_STATEMENT (is) | |
59 | { | |
8afb0e02 | 60 | bfd_elf32_arm_add_glue_sections_to_bfd (is->the_bfd, & link_info); |
f11523b0 NC |
61 | } |
62 | } | |
63 | ||
41392f03 AM |
64 | /* Call the standard elf routine. */ |
65 | gld${EMULATION_NAME}_after_open (); | |
1220a729 NC |
66 | } |
67 | ||
88f7bcd5 NC |
68 | static void arm_elf_set_bfd_for_interworking |
69 | PARAMS ((lang_statement_union_type *)); | |
70 | ||
8afb0e02 NC |
71 | static void |
72 | arm_elf_set_bfd_for_interworking (statement) | |
88f7bcd5 | 73 | lang_statement_union_type *statement; |
8afb0e02 NC |
74 | { |
75 | if (statement->header.type == lang_input_section_enum | |
b34976b6 | 76 | && !statement->input_section.ifile->just_syms_flag) |
8afb0e02 | 77 | { |
88f7bcd5 NC |
78 | asection *i = statement->input_section.section; |
79 | asection *output_section = i->output_section; | |
8afb0e02 NC |
80 | |
81 | ASSERT (output_section->owner == output_bfd); | |
82 | ||
83 | if ((output_section->flags & SEC_HAS_CONTENTS) != 0 | |
84 | && (i->flags & SEC_NEVER_LOAD) == 0 | |
85 | && ! i->owner->output_has_begun) | |
86 | { | |
87 | bfd_for_interwork = i->owner; | |
b34976b6 | 88 | bfd_for_interwork->output_has_begun = TRUE; |
8afb0e02 NC |
89 | } |
90 | } | |
91 | } | |
1220a729 | 92 | |
88f7bcd5 NC |
93 | static void arm_elf_before_allocation PARAMS ((void)); |
94 | ||
1220a729 | 95 | static void |
41392f03 | 96 | arm_elf_before_allocation () |
1220a729 | 97 | { |
88f7bcd5 | 98 | bfd *tem; |
8afb0e02 | 99 | |
41392f03 AM |
100 | /* Call the standard elf routine. */ |
101 | gld${EMULATION_NAME}_before_allocation (); | |
1220a729 | 102 | |
2004afbc NC |
103 | if (link_info.input_bfds != NULL) |
104 | { | |
105 | /* The interworking bfd must be the last one in the link. */ | |
106 | bfd_for_interwork = NULL; | |
107 | for (tem = link_info.input_bfds; tem != NULL; tem = tem->link_next) | |
b34976b6 | 108 | tem->output_has_begun = FALSE; |
252b5132 | 109 | |
2004afbc NC |
110 | lang_for_each_statement (arm_elf_set_bfd_for_interworking); |
111 | ASSERT (bfd_for_interwork != NULL); | |
112 | for (tem = link_info.input_bfds; tem != NULL; tem = tem->link_next) | |
b34976b6 | 113 | tem->output_has_begun = FALSE; |
8afb0e02 | 114 | |
2004afbc NC |
115 | bfd_elf32_arm_get_bfd_for_interworking (bfd_for_interwork, &link_info); |
116 | } | |
8afb0e02 NC |
117 | /* We should be able to set the size of the interworking stub section. */ |
118 | ||
119 | /* Here we rummage through the found bfds to collect glue information. */ | |
120 | /* FIXME: should this be based on a command line option? krk@cygnus.com */ | |
252b5132 RH |
121 | { |
122 | LANG_FOR_EACH_INPUT_STATEMENT (is) | |
123 | { | |
7ca69e9e NC |
124 | if (!bfd_elf32_arm_process_before_allocation (is->the_bfd, & link_info, |
125 | no_pipeline_knowledge)) | |
252b5132 RH |
126 | { |
127 | /* xgettext:c-format */ | |
128 | einfo (_("Errors encountered processing file %s"), is->filename); | |
129 | } | |
130 | } | |
131 | } | |
132 | ||
8afb0e02 | 133 | /* We have seen it all. Allocate it, and carry on. */ |
252b5132 RH |
134 | bfd_elf32_arm_allocate_interworking_sections (& link_info); |
135 | } | |
136 | ||
88f7bcd5 | 137 | static void arm_elf_finish PARAMS ((void)); |
41392f03 | 138 | |
6f798e5c | 139 | static void |
a48ca7f2 | 140 | arm_elf_finish () |
6f798e5c NC |
141 | { |
142 | struct bfd_link_hash_entry * h; | |
143 | ||
c56feb2b AM |
144 | /* Call the elf32.em routine. */ |
145 | gld${EMULATION_NAME}_finish (); | |
146 | ||
88f7bcd5 NC |
147 | if (thumb_entry_symbol == NULL) |
148 | return; | |
149 | ||
150 | h = bfd_link_hash_lookup (link_info.hash, thumb_entry_symbol, | |
b34976b6 | 151 | FALSE, FALSE, TRUE); |
6f798e5c NC |
152 | |
153 | if (h != (struct bfd_link_hash_entry *) NULL | |
154 | && (h->type == bfd_link_hash_defined | |
155 | || h->type == bfd_link_hash_defweak) | |
156 | && h->u.def.section->output_section != NULL) | |
157 | { | |
158 | static char buffer[32]; | |
88f7bcd5 NC |
159 | bfd_vma val; |
160 | ||
161 | /* Special procesing is required for a Thumb entry symbol. The | |
162 | bottom bit of its address must be set. */ | |
163 | val = (h->u.def.value | |
164 | + bfd_get_section_vma (output_bfd, | |
165 | h->u.def.section->output_section) | |
166 | + h->u.def.section->output_offset); | |
167 | ||
168 | val |= 1; | |
6f798e5c | 169 | |
88f7bcd5 NC |
170 | /* Now convert this value into a string and store it in entry_symbol |
171 | where the lang_finish() function will pick it up. */ | |
172 | buffer[0] = '0'; | |
173 | buffer[1] = 'x'; | |
174 | ||
175 | sprintf_vma (buffer + 2, val); | |
6f798e5c | 176 | |
88f7bcd5 NC |
177 | if (entry_symbol.name != NULL && entry_from_cmdline) |
178 | einfo (_("%P: warning: '--thumb-entry %s' is overriding '-e %s'\n"), | |
179 | thumb_entry_symbol, entry_symbol.name); | |
180 | entry_symbol.name = buffer; | |
6f798e5c | 181 | } |
88f7bcd5 NC |
182 | else |
183 | einfo (_("%P: warning: connot find thumb start symbol %s\n"), | |
184 | thumb_entry_symbol); | |
6f798e5c NC |
185 | } |
186 | ||
252b5132 RH |
187 | EOF |
188 | ||
41392f03 AM |
189 | # Define some shell vars to insert bits of code into the standard elf |
190 | # parse_args and list_options functions. | |
191 | # | |
192 | PARSE_AND_LIST_PROLOGUE=' | |
193 | #define OPTION_THUMB_ENTRY 301 | |
194 | ' | |
252b5132 | 195 | |
ef5bdbd1 | 196 | PARSE_AND_LIST_SHORTOPTS=p |
252b5132 | 197 | |
ef5bdbd1 NC |
198 | # Note we have duplicate entries for no-pipeline-knowledge in order |
199 | # to prevent getopt_long_only from thinking that -n is a unique | |
200 | # abbreviation for --no-pipeline-knowledge. | |
41392f03 | 201 | PARSE_AND_LIST_LONGOPTS=' |
ef5bdbd1 | 202 | { "no-pipeline-knowledge", no_argument, NULL, '\'p\''}, |
41392f03 AM |
203 | { "no-pipeline-knowledge", no_argument, NULL, '\'p\''}, |
204 | { "thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY}, | |
205 | ' | |
252b5132 | 206 | |
41392f03 AM |
207 | PARSE_AND_LIST_OPTIONS=' |
208 | fprintf (file, _(" -p --no-pipeline-knowledge Stop the linker knowing about the pipeline length\n")); | |
209 | fprintf (file, _(" --thumb-entry=<sym> Set the entry point to be Thumb symbol <sym>\n")); | |
210 | ' | |
252b5132 | 211 | |
41392f03 AM |
212 | PARSE_AND_LIST_ARGS_CASES=' |
213 | case '\'p\'': | |
214 | no_pipeline_knowledge = 1; | |
215 | break; | |
252b5132 | 216 | |
41392f03 AM |
217 | case OPTION_THUMB_ENTRY: |
218 | thumb_entry_symbol = optarg; | |
219 | break; | |
220 | ' | |
252b5132 | 221 | |
41392f03 AM |
222 | # We have our own after_open and before_allocation functions, but they call |
223 | # the standard routines, so give them a different name. | |
224 | LDEMUL_AFTER_OPEN=arm_elf_after_open | |
225 | LDEMUL_BEFORE_ALLOCATION=arm_elf_before_allocation | |
252b5132 | 226 | |
41392f03 AM |
227 | # Replace the elf before_parse function with our own. |
228 | LDEMUL_BEFORE_PARSE=gld"${EMULATION_NAME}"_before_parse | |
252b5132 | 229 | |
41392f03 | 230 | # Call the extra arm-elf function |
a48ca7f2 | 231 | LDEMUL_FINISH=arm_elf_finish |