Commit | Line | Data |
---|---|---|
60bcf0fa | 1 | /* Motorola 68HC12-specific support for 32-bit ELF |
dae78fb0 SC |
2 | Copyright 1999, 2000, 2002 Free Software Foundation, Inc. |
3 | Contributed by Stephane Carrez (stcarrez@nerim.fr) | |
60bcf0fa NC |
4 | (Heavily copied from the D10V port by Martin Hunt (hunt@cygnus.com)) |
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 | #include "bfd.h" | |
23 | #include "sysdep.h" | |
24 | #include "libbfd.h" | |
25 | #include "elf-bfd.h" | |
26 | #include "elf/m68hc11.h" | |
dae78fb0 | 27 | #include "opcode/m68hc11.h" |
60bcf0fa NC |
28 | |
29 | static reloc_howto_type *bfd_elf32_bfd_reloc_type_lookup | |
56780f18 | 30 | PARAMS ((bfd *, bfd_reloc_code_real_type)); |
60bcf0fa | 31 | static void m68hc11_info_to_howto_rel |
56780f18 | 32 | PARAMS ((bfd *, arelent *, Elf32_Internal_Rel *)); |
60bcf0fa | 33 | |
dae78fb0 | 34 | static bfd_reloc_status_type m68hc11_elf_ignore_reloc |
56780f18 | 35 | PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); |
dae78fb0 SC |
36 | static bfd_reloc_status_type m68hc12_elf_special_reloc |
37 | PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); | |
38 | static int m68hc12_addr_is_banked PARAMS ((bfd_vma)); | |
39 | static bfd_vma m68hc12_phys_addr PARAMS ((bfd_vma)); | |
40 | static bfd_vma m68hc12_phys_page PARAMS ((bfd_vma)); | |
41 | ||
9b701e44 SC |
42 | /* GC mark and sweep. */ |
43 | static asection *elf32_m68hc11_gc_mark_hook | |
56780f18 AM |
44 | PARAMS ((asection *, struct bfd_link_info *, Elf_Internal_Rela *, |
45 | struct elf_link_hash_entry *, Elf_Internal_Sym *)); | |
9b701e44 | 46 | static boolean elf32_m68hc11_gc_sweep_hook |
56780f18 AM |
47 | PARAMS ((bfd *, struct bfd_link_info *, asection *, |
48 | const Elf_Internal_Rela *)); | |
9b701e44 | 49 | |
56780f18 AM |
50 | boolean _bfd_m68hc12_elf_merge_private_bfd_data PARAMS ((bfd *, bfd *)); |
51 | boolean _bfd_m68hc12_elf_set_private_flags PARAMS ((bfd *, flagword)); | |
52 | boolean _bfd_m68hc12_elf_print_private_bfd_data PARAMS ((bfd *, PTR)); | |
96405e3c SC |
53 | |
54 | ||
55 | ||
60bcf0fa NC |
56 | /* Use REL instead of RELA to save space */ |
57 | #define USE_REL | |
58 | ||
59 | /* The Motorola 68HC11 microcontroler only addresses 64Kb. | |
60 | We must handle 8 and 16-bit relocations. The 32-bit relocation | |
61 | is defined but not used except by gas when -gstabs is used (which | |
62 | is wrong). | |
dae78fb0 SC |
63 | |
64 | The 68HC12 microcontroler has a memory bank switching system | |
65 | with a 16Kb window in the 64Kb address space. The extended memory | |
66 | is mapped in the 16Kb window (at 0x8000). The page register controls | |
67 | which 16Kb bank is mapped. The call/rtc instructions take care of | |
68 | bank switching in function calls/returns. | |
69 | ||
70 | For GNU Binutils to work, we consider there is a physical memory | |
71 | at 0..0x0ffff and a kind of virtual memory above that. Symbols | |
72 | in virtual memory have their addresses treated in a special way | |
73 | when disassembling and when linking. | |
74 | ||
75 | For the linker to work properly, we must always relocate the virtual | |
76 | memory as if it is mapped at 0x8000. When a 16-bit relocation is | |
77 | made in the virtual memory, we check that it does not cross the | |
78 | memory bank where it is used. This would involve a page change | |
79 | which would be wrong. The 24-bit relocation is for that and it | |
80 | treats the address as a physical address + page number. | |
81 | ||
82 | ||
83 | Banked | |
84 | Address Space | |
85 | | | Page n | |
86 | +---------------+ 0x1010000 | |
87 | | | | |
88 | | jsr _foo | | |
89 | | .. | Page 3 | |
90 | | _foo: | | |
91 | +---------------+ 0x100C000 | |
92 | | | | |
93 | | call _bar | | |
94 | | .. | Page 2 | |
95 | | _bar: | | |
96 | +---------------+ 0x1008000 | |
97 | /------>| | | |
98 | | | call _foo | Page 1 | |
99 | | | | | |
100 | | +---------------+ 0x1004000 | |
101 | Physical | | | | |
102 | Address Space | | | Page 0 | |
103 | | | | | |
104 | +-----------+ 0x00FFFF | +---------------+ 0x1000000 | |
105 | | | | | |
106 | | call _foo | | | |
107 | | | | | |
108 | +-----------+ 0x00BFFF -+---/ | |
109 | | | | | |
110 | | | | | |
111 | | | 16K | | |
112 | | | | | |
113 | +-----------+ 0x008000 -+ | |
114 | | | | |
115 | | | | |
116 | = = | |
117 | | | | |
118 | | | | |
119 | +-----------+ 0000 | |
120 | ||
121 | ||
122 | The 'call _foo' must be relocated with page 3 and 16-bit address | |
123 | mapped at 0x8000. | |
124 | ||
60bcf0fa NC |
125 | The 3-bit and 16-bit PC rel relocation is only used by 68HC12. */ |
126 | static reloc_howto_type elf_m68hc11_howto_table[] = { | |
127 | /* This reloc does nothing. */ | |
128 | HOWTO (R_M68HC11_NONE, /* type */ | |
129 | 0, /* rightshift */ | |
130 | 2, /* size (0 = byte, 1 = short, 2 = long) */ | |
131 | 32, /* bitsize */ | |
132 | false, /* pc_relative */ | |
133 | 0, /* bitpos */ | |
dae78fb0 | 134 | complain_overflow_dont,/* complain_on_overflow */ |
60bcf0fa | 135 | bfd_elf_generic_reloc, /* special_function */ |
dae78fb0 | 136 | "R_M68HC12_NONE", /* name */ |
60bcf0fa NC |
137 | false, /* partial_inplace */ |
138 | 0, /* src_mask */ | |
139 | 0, /* dst_mask */ | |
140 | false), /* pcrel_offset */ | |
141 | ||
142 | /* A 8 bit absolute relocation */ | |
143 | HOWTO (R_M68HC11_8, /* type */ | |
144 | 0, /* rightshift */ | |
145 | 0, /* size (0 = byte, 1 = short, 2 = long) */ | |
146 | 8, /* bitsize */ | |
147 | false, /* pc_relative */ | |
148 | 0, /* bitpos */ | |
149 | complain_overflow_bitfield, /* complain_on_overflow */ | |
150 | bfd_elf_generic_reloc, /* special_function */ | |
dae78fb0 | 151 | "R_M68HC12_8", /* name */ |
60bcf0fa NC |
152 | false, /* partial_inplace */ |
153 | 0x00ff, /* src_mask */ | |
154 | 0x00ff, /* dst_mask */ | |
155 | false), /* pcrel_offset */ | |
156 | ||
157 | /* A 8 bit absolute relocation (upper address) */ | |
158 | HOWTO (R_M68HC11_HI8, /* type */ | |
159 | 8, /* rightshift */ | |
160 | 0, /* size (0 = byte, 1 = short, 2 = long) */ | |
161 | 8, /* bitsize */ | |
162 | false, /* pc_relative */ | |
163 | 0, /* bitpos */ | |
164 | complain_overflow_bitfield, /* complain_on_overflow */ | |
165 | bfd_elf_generic_reloc, /* special_function */ | |
dae78fb0 | 166 | "R_M68HC12_HI8", /* name */ |
60bcf0fa NC |
167 | false, /* partial_inplace */ |
168 | 0x00ff, /* src_mask */ | |
169 | 0x00ff, /* dst_mask */ | |
170 | false), /* pcrel_offset */ | |
171 | ||
172 | /* A 8 bit absolute relocation (upper address) */ | |
173 | HOWTO (R_M68HC11_LO8, /* type */ | |
174 | 0, /* rightshift */ | |
175 | 0, /* size (0 = byte, 1 = short, 2 = long) */ | |
176 | 8, /* bitsize */ | |
177 | false, /* pc_relative */ | |
178 | 0, /* bitpos */ | |
179 | complain_overflow_dont, /* complain_on_overflow */ | |
180 | bfd_elf_generic_reloc, /* special_function */ | |
dae78fb0 | 181 | "R_M68HC12_LO8", /* name */ |
60bcf0fa NC |
182 | false, /* partial_inplace */ |
183 | 0x00ff, /* src_mask */ | |
184 | 0x00ff, /* dst_mask */ | |
185 | false), /* pcrel_offset */ | |
186 | ||
187 | /* A 8 bit PC-rel relocation */ | |
188 | HOWTO (R_M68HC11_PCREL_8, /* type */ | |
189 | 0, /* rightshift */ | |
190 | 0, /* size (0 = byte, 1 = short, 2 = long) */ | |
191 | 8, /* bitsize */ | |
192 | true, /* pc_relative */ | |
193 | 0, /* bitpos */ | |
194 | complain_overflow_bitfield, /* complain_on_overflow */ | |
195 | bfd_elf_generic_reloc, /* special_function */ | |
dae78fb0 | 196 | "R_M68HC12_PCREL_8", /* name */ |
60bcf0fa | 197 | false, /* partial_inplace */ |
dae78fb0 | 198 | 0x00ff, /* src_mask */ |
60bcf0fa NC |
199 | 0x00ff, /* dst_mask */ |
200 | false), /* pcrel_offset */ | |
201 | ||
202 | /* A 16 bit absolute relocation */ | |
203 | HOWTO (R_M68HC11_16, /* type */ | |
204 | 0, /* rightshift */ | |
205 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
206 | 16, /* bitsize */ | |
207 | false, /* pc_relative */ | |
208 | 0, /* bitpos */ | |
209 | complain_overflow_dont /*bitfield */ , /* complain_on_overflow */ | |
dae78fb0 SC |
210 | m68hc12_elf_special_reloc, /* special_function */ |
211 | "R_M68HC12_16", /* name */ | |
60bcf0fa NC |
212 | false, /* partial_inplace */ |
213 | 0xffff, /* src_mask */ | |
214 | 0xffff, /* dst_mask */ | |
215 | false), /* pcrel_offset */ | |
216 | ||
217 | /* A 32 bit absolute relocation. This one is never used for the | |
218 | code relocation. It's used by gas for -gstabs generation. */ | |
219 | HOWTO (R_M68HC11_32, /* type */ | |
220 | 0, /* rightshift */ | |
221 | 2, /* size (0 = byte, 1 = short, 2 = long) */ | |
222 | 32, /* bitsize */ | |
223 | false, /* pc_relative */ | |
224 | 0, /* bitpos */ | |
225 | complain_overflow_bitfield, /* complain_on_overflow */ | |
226 | bfd_elf_generic_reloc, /* special_function */ | |
dae78fb0 | 227 | "R_M68HC12_32", /* name */ |
60bcf0fa NC |
228 | false, /* partial_inplace */ |
229 | 0xffffffff, /* src_mask */ | |
230 | 0xffffffff, /* dst_mask */ | |
231 | false), /* pcrel_offset */ | |
232 | ||
233 | /* A 3 bit absolute relocation */ | |
234 | HOWTO (R_M68HC11_3B, /* type */ | |
235 | 0, /* rightshift */ | |
236 | 0, /* size (0 = byte, 1 = short, 2 = long) */ | |
237 | 3, /* bitsize */ | |
238 | false, /* pc_relative */ | |
239 | 0, /* bitpos */ | |
240 | complain_overflow_bitfield, /* complain_on_overflow */ | |
241 | bfd_elf_generic_reloc, /* special_function */ | |
dae78fb0 | 242 | "R_M68HC12_4B", /* name */ |
60bcf0fa NC |
243 | false, /* partial_inplace */ |
244 | 0x003, /* src_mask */ | |
245 | 0x003, /* dst_mask */ | |
246 | false), /* pcrel_offset */ | |
247 | ||
248 | /* A 16 bit PC-rel relocation */ | |
249 | HOWTO (R_M68HC11_PCREL_16, /* type */ | |
250 | 0, /* rightshift */ | |
251 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
252 | 16, /* bitsize */ | |
253 | true, /* pc_relative */ | |
254 | 0, /* bitpos */ | |
255 | complain_overflow_dont, /* complain_on_overflow */ | |
256 | bfd_elf_generic_reloc, /* special_function */ | |
dae78fb0 | 257 | "R_M68HC12_PCREL_16", /* name */ |
60bcf0fa | 258 | false, /* partial_inplace */ |
dae78fb0 | 259 | 0xffff, /* src_mask */ |
60bcf0fa NC |
260 | 0xffff, /* dst_mask */ |
261 | false), /* pcrel_offset */ | |
262 | ||
263 | /* GNU extension to record C++ vtable hierarchy */ | |
264 | HOWTO (R_M68HC11_GNU_VTINHERIT, /* type */ | |
265 | 0, /* rightshift */ | |
266 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
267 | 0, /* bitsize */ | |
268 | false, /* pc_relative */ | |
269 | 0, /* bitpos */ | |
270 | complain_overflow_dont, /* complain_on_overflow */ | |
271 | NULL, /* special_function */ | |
272 | "R_M68HC11_GNU_VTINHERIT", /* name */ | |
273 | false, /* partial_inplace */ | |
274 | 0, /* src_mask */ | |
275 | 0, /* dst_mask */ | |
276 | false), /* pcrel_offset */ | |
277 | ||
278 | /* GNU extension to record C++ vtable member usage */ | |
279 | HOWTO (R_M68HC11_GNU_VTENTRY, /* type */ | |
280 | 0, /* rightshift */ | |
281 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
282 | 0, /* bitsize */ | |
283 | false, /* pc_relative */ | |
284 | 0, /* bitpos */ | |
285 | complain_overflow_dont, /* complain_on_overflow */ | |
286 | _bfd_elf_rel_vtable_reloc_fn, /* special_function */ | |
287 | "R_M68HC11_GNU_VTENTRY", /* name */ | |
288 | false, /* partial_inplace */ | |
289 | 0, /* src_mask */ | |
290 | 0, /* dst_mask */ | |
291 | false), /* pcrel_offset */ | |
dae78fb0 SC |
292 | |
293 | /* A 24 bit relocation */ | |
294 | HOWTO (R_M68HC11_24, /* type */ | |
295 | 0, /* rightshift */ | |
296 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
297 | 24, /* bitsize */ | |
298 | false, /* pc_relative */ | |
299 | 0, /* bitpos */ | |
300 | complain_overflow_dont, /* complain_on_overflow */ | |
301 | m68hc12_elf_special_reloc, /* special_function */ | |
302 | "R_M68HC12_24", /* name */ | |
303 | false, /* partial_inplace */ | |
304 | 0xffff, /* src_mask */ | |
305 | 0xffff, /* dst_mask */ | |
306 | false), /* pcrel_offset */ | |
307 | ||
308 | /* A 16-bit low relocation */ | |
309 | HOWTO (R_M68HC11_LO16, /* type */ | |
310 | 0, /* rightshift */ | |
311 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
312 | 16, /* bitsize */ | |
313 | false, /* pc_relative */ | |
314 | 0, /* bitpos */ | |
315 | complain_overflow_dont, /* complain_on_overflow */ | |
316 | m68hc12_elf_special_reloc,/* special_function */ | |
317 | "R_M68HC12_LO16", /* name */ | |
318 | false, /* partial_inplace */ | |
319 | 0xffff, /* src_mask */ | |
320 | 0xffff, /* dst_mask */ | |
321 | false), /* pcrel_offset */ | |
322 | ||
323 | /* A page relocation */ | |
324 | HOWTO (R_M68HC11_PAGE, /* type */ | |
325 | 0, /* rightshift */ | |
326 | 0, /* size (0 = byte, 1 = short, 2 = long) */ | |
327 | 8, /* bitsize */ | |
328 | false, /* pc_relative */ | |
329 | 0, /* bitpos */ | |
330 | complain_overflow_dont, /* complain_on_overflow */ | |
331 | m68hc12_elf_special_reloc,/* special_function */ | |
332 | "R_M68HC12_PAGE", /* name */ | |
333 | false, /* partial_inplace */ | |
334 | 0x00ff, /* src_mask */ | |
335 | 0x00ff, /* dst_mask */ | |
336 | false), /* pcrel_offset */ | |
337 | ||
338 | EMPTY_HOWTO (14), | |
339 | EMPTY_HOWTO (15), | |
340 | EMPTY_HOWTO (16), | |
341 | EMPTY_HOWTO (17), | |
342 | EMPTY_HOWTO (18), | |
343 | EMPTY_HOWTO (19), | |
344 | ||
345 | /* Mark beginning of a jump instruction (any form). */ | |
346 | HOWTO (R_M68HC11_RL_JUMP, /* type */ | |
347 | 0, /* rightshift */ | |
348 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
349 | 0, /* bitsize */ | |
350 | false, /* pc_relative */ | |
351 | 0, /* bitpos */ | |
352 | complain_overflow_dont, /* complain_on_overflow */ | |
353 | m68hc11_elf_ignore_reloc, /* special_function */ | |
354 | "R_M68HC12_RL_JUMP", /* name */ | |
355 | true, /* partial_inplace */ | |
356 | 0, /* src_mask */ | |
357 | 0, /* dst_mask */ | |
358 | true), /* pcrel_offset */ | |
359 | ||
360 | /* Mark beginning of Gcc relaxation group instruction. */ | |
361 | HOWTO (R_M68HC11_RL_GROUP, /* type */ | |
362 | 0, /* rightshift */ | |
363 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
364 | 0, /* bitsize */ | |
365 | false, /* pc_relative */ | |
366 | 0, /* bitpos */ | |
367 | complain_overflow_dont, /* complain_on_overflow */ | |
368 | m68hc11_elf_ignore_reloc, /* special_function */ | |
369 | "R_M68HC12_RL_GROUP", /* name */ | |
370 | true, /* partial_inplace */ | |
371 | 0, /* src_mask */ | |
372 | 0, /* dst_mask */ | |
373 | true), /* pcrel_offset */ | |
60bcf0fa NC |
374 | }; |
375 | ||
376 | /* Map BFD reloc types to M68HC11 ELF reloc types. */ | |
377 | ||
378 | struct m68hc11_reloc_map | |
379 | { | |
380 | bfd_reloc_code_real_type bfd_reloc_val; | |
381 | unsigned char elf_reloc_val; | |
382 | }; | |
383 | ||
384 | static const struct m68hc11_reloc_map m68hc11_reloc_map[] = { | |
385 | {BFD_RELOC_NONE, R_M68HC11_NONE,}, | |
386 | {BFD_RELOC_8, R_M68HC11_8}, | |
387 | {BFD_RELOC_M68HC11_HI8, R_M68HC11_HI8}, | |
388 | {BFD_RELOC_M68HC11_LO8, R_M68HC11_LO8}, | |
389 | {BFD_RELOC_8_PCREL, R_M68HC11_PCREL_8}, | |
390 | {BFD_RELOC_16_PCREL, R_M68HC11_PCREL_16}, | |
391 | {BFD_RELOC_16, R_M68HC11_16}, | |
392 | {BFD_RELOC_32, R_M68HC11_32}, | |
393 | {BFD_RELOC_M68HC11_3B, R_M68HC11_3B}, | |
394 | ||
60bcf0fa NC |
395 | {BFD_RELOC_VTABLE_INHERIT, R_M68HC11_GNU_VTINHERIT}, |
396 | {BFD_RELOC_VTABLE_ENTRY, R_M68HC11_GNU_VTENTRY}, | |
dae78fb0 SC |
397 | |
398 | {BFD_RELOC_M68HC11_LO16, R_M68HC11_LO16}, | |
399 | {BFD_RELOC_M68HC11_PAGE, R_M68HC11_PAGE}, | |
400 | {BFD_RELOC_M68HC11_24, R_M68HC11_24}, | |
401 | ||
402 | {BFD_RELOC_M68HC11_RL_JUMP, R_M68HC11_RL_JUMP}, | |
403 | {BFD_RELOC_M68HC11_RL_GROUP, R_M68HC11_RL_GROUP}, | |
60bcf0fa NC |
404 | }; |
405 | ||
406 | static reloc_howto_type * | |
407 | bfd_elf32_bfd_reloc_type_lookup (abfd, code) | |
408 | bfd *abfd ATTRIBUTE_UNUSED; | |
409 | bfd_reloc_code_real_type code; | |
410 | { | |
411 | unsigned int i; | |
412 | ||
413 | for (i = 0; | |
414 | i < sizeof (m68hc11_reloc_map) / sizeof (struct m68hc11_reloc_map); | |
415 | i++) | |
416 | { | |
417 | if (m68hc11_reloc_map[i].bfd_reloc_val == code) | |
418 | return &elf_m68hc11_howto_table[m68hc11_reloc_map[i].elf_reloc_val]; | |
419 | } | |
420 | ||
421 | return NULL; | |
422 | } | |
423 | ||
dae78fb0 SC |
424 | /* This function is used for relocs which are only used for relaxing, |
425 | which the linker should otherwise ignore. */ | |
426 | ||
427 | static bfd_reloc_status_type | |
428 | m68hc11_elf_ignore_reloc (abfd, reloc_entry, symbol, data, input_section, | |
429 | output_bfd, error_message) | |
430 | bfd *abfd ATTRIBUTE_UNUSED; | |
431 | arelent *reloc_entry; | |
432 | asymbol *symbol ATTRIBUTE_UNUSED; | |
433 | PTR data ATTRIBUTE_UNUSED; | |
434 | asection *input_section; | |
435 | bfd *output_bfd; | |
436 | char **error_message ATTRIBUTE_UNUSED; | |
437 | { | |
438 | if (output_bfd != NULL) | |
439 | reloc_entry->address += input_section->output_offset; | |
440 | return bfd_reloc_ok; | |
441 | } | |
442 | ||
443 | static int | |
444 | m68hc12_addr_is_banked (addr) | |
445 | bfd_vma addr; | |
446 | { | |
447 | return (addr >= M68HC12_BANK_VIRT) ? 1 : 0; | |
448 | } | |
449 | ||
450 | /* Return the physical address seen by the processor, taking | |
451 | into account banked memory. */ | |
452 | static bfd_vma | |
453 | m68hc12_phys_addr (addr) | |
454 | bfd_vma addr; | |
455 | { | |
456 | if (addr < M68HC12_BANK_VIRT) | |
457 | return addr; | |
458 | ||
459 | /* Map the address to the memory bank. */ | |
460 | addr -= M68HC12_BANK_VIRT; | |
461 | addr &= M68HC12_BANK_MASK; | |
462 | addr += M68HC12_BANK_BASE; | |
463 | return addr; | |
464 | } | |
465 | ||
466 | /* Return the page number corresponding to an address in banked memory. */ | |
467 | static bfd_vma | |
468 | m68hc12_phys_page (addr) | |
469 | bfd_vma addr; | |
470 | { | |
471 | if (addr < M68HC12_BANK_VIRT) | |
472 | return 0; | |
473 | ||
474 | /* Map the address to the memory bank. */ | |
475 | addr -= M68HC12_BANK_VIRT; | |
476 | addr >>= M68HC12_BANK_SHIFT; | |
477 | addr &= M68HC12_BANK_PAGE_MASK; | |
478 | return addr; | |
479 | } | |
480 | ||
481 | static bfd_reloc_status_type | |
482 | m68hc12_elf_special_reloc (abfd, reloc_entry, symbol, data, input_section, | |
483 | output_bfd, error_message) | |
484 | bfd *abfd; | |
485 | arelent *reloc_entry; | |
486 | asymbol *symbol; | |
487 | PTR data; | |
488 | asection *input_section; | |
489 | bfd *output_bfd; | |
490 | char **error_message ATTRIBUTE_UNUSED; | |
491 | { | |
492 | reloc_howto_type *howto; | |
493 | bfd_vma relocation; | |
494 | bfd_vma phys_addr; | |
495 | bfd_vma phys_page; | |
496 | bfd_vma insn_page; | |
497 | bfd_vma insn_addr; | |
498 | ||
499 | if (output_bfd != (bfd *) NULL | |
500 | && (symbol->flags & BSF_SECTION_SYM) == 0 | |
501 | && (! reloc_entry->howto->partial_inplace | |
502 | || reloc_entry->addend == 0)) | |
503 | { | |
504 | reloc_entry->address += input_section->output_offset; | |
505 | return bfd_reloc_ok; | |
506 | } | |
507 | ||
508 | if (output_bfd != NULL) | |
509 | return bfd_reloc_continue; | |
510 | ||
511 | if (reloc_entry->address > input_section->_cooked_size) | |
512 | return bfd_reloc_outofrange; | |
513 | ||
514 | /* Compute relocation. */ | |
515 | relocation = (symbol->value | |
516 | + symbol->section->output_section->vma | |
517 | + symbol->section->output_offset); | |
518 | relocation += reloc_entry->addend; | |
519 | relocation += bfd_get_16 (abfd, (bfd_byte*) data + reloc_entry->address); | |
520 | ||
521 | /* Do the memory bank mapping. */ | |
522 | phys_addr = m68hc12_phys_addr (relocation); | |
523 | phys_page = m68hc12_phys_page (relocation); | |
524 | ||
525 | howto = reloc_entry->howto; | |
526 | if (howto->complain_on_overflow != complain_overflow_dont | |
527 | && (phys_addr & (((bfd_vma) -1) << 16))) | |
528 | return bfd_reloc_overflow; | |
529 | ||
530 | switch (howto->type) | |
531 | { | |
532 | case R_M68HC11_16: | |
533 | /* Get virtual address of instruction having the relocation. */ | |
534 | insn_addr = input_section->output_section->vma | |
535 | + input_section->output_offset | |
536 | + reloc_entry->address; | |
537 | ||
538 | insn_page = m68hc12_phys_page (insn_addr); | |
539 | ||
540 | if (m68hc12_addr_is_banked (relocation) | |
541 | && m68hc12_addr_is_banked (insn_addr) | |
542 | && phys_page != insn_page) | |
543 | { | |
544 | *error_message = _("address is not in the same bank"); | |
545 | return bfd_reloc_dangerous; | |
546 | } | |
547 | if (m68hc12_addr_is_banked (relocation) | |
548 | && !m68hc12_addr_is_banked (insn_addr)) | |
549 | { | |
550 | *error_message = _("reference to a banked address in " | |
551 | "the normal address space"); | |
552 | return bfd_reloc_dangerous; | |
553 | } | |
554 | ||
555 | case R_M68HC11_LO16: | |
556 | bfd_put_16 (abfd, phys_addr, (bfd_byte*) data + reloc_entry->address); | |
557 | break; | |
558 | ||
559 | case R_M68HC11_24: | |
560 | bfd_put_16 (abfd, phys_addr, (bfd_byte*) data + reloc_entry->address); | |
561 | bfd_put_8 (abfd, phys_page, (bfd_byte*) data + reloc_entry->address + 2); | |
562 | break; | |
563 | ||
564 | case R_M68HC11_PAGE: | |
565 | bfd_put_8 (abfd, phys_page, (bfd_byte*) data + reloc_entry->address); | |
566 | break; | |
567 | ||
568 | default: | |
569 | abort (); | |
570 | break; | |
571 | } | |
572 | ||
573 | return bfd_reloc_ok; | |
574 | } | |
575 | ||
60bcf0fa NC |
576 | /* Set the howto pointer for an M68HC11 ELF reloc. */ |
577 | ||
578 | static void | |
579 | m68hc11_info_to_howto_rel (abfd, cache_ptr, dst) | |
580 | bfd *abfd ATTRIBUTE_UNUSED; | |
581 | arelent *cache_ptr; | |
582 | Elf32_Internal_Rel *dst; | |
583 | { | |
584 | unsigned int r_type; | |
585 | ||
586 | r_type = ELF32_R_TYPE (dst->r_info); | |
587 | BFD_ASSERT (r_type < (unsigned int) R_M68HC11_max); | |
588 | cache_ptr->howto = &elf_m68hc11_howto_table[r_type]; | |
589 | } | |
590 | ||
9b701e44 | 591 | static asection * |
56780f18 AM |
592 | elf32_m68hc11_gc_mark_hook (sec, info, rel, h, sym) |
593 | asection *sec; | |
9b701e44 SC |
594 | struct bfd_link_info *info ATTRIBUTE_UNUSED; |
595 | Elf_Internal_Rela *rel; | |
596 | struct elf_link_hash_entry *h; | |
597 | Elf_Internal_Sym *sym; | |
598 | { | |
599 | if (h != NULL) | |
600 | { | |
601 | switch (ELF32_R_TYPE (rel->r_info)) | |
602 | { | |
603 | default: | |
604 | switch (h->root.type) | |
605 | { | |
606 | case bfd_link_hash_defined: | |
607 | case bfd_link_hash_defweak: | |
608 | return h->root.u.def.section; | |
609 | ||
610 | case bfd_link_hash_common: | |
611 | return h->root.u.c.p->section; | |
612 | ||
613 | default: | |
614 | break; | |
615 | } | |
616 | } | |
617 | } | |
618 | else | |
56780f18 AM |
619 | return bfd_section_from_elf_index (sec->owner, sym->st_shndx); |
620 | ||
9b701e44 SC |
621 | return NULL; |
622 | } | |
623 | ||
624 | static boolean | |
625 | elf32_m68hc11_gc_sweep_hook (abfd, info, sec, relocs) | |
626 | bfd *abfd ATTRIBUTE_UNUSED; | |
627 | struct bfd_link_info *info ATTRIBUTE_UNUSED; | |
628 | asection *sec ATTRIBUTE_UNUSED; | |
629 | const Elf_Internal_Rela *relocs ATTRIBUTE_UNUSED; | |
630 | { | |
631 | /* We don't use got and plt entries for 68hc11/68hc12. */ | |
632 | return true; | |
633 | } | |
634 | ||
96405e3c SC |
635 | \f |
636 | /* Set and control ELF flags in ELF header. */ | |
637 | ||
638 | boolean | |
639 | _bfd_m68hc12_elf_set_private_flags (abfd, flags) | |
640 | bfd *abfd; | |
641 | flagword flags; | |
642 | { | |
643 | BFD_ASSERT (!elf_flags_init (abfd) | |
644 | || elf_elfheader (abfd)->e_flags == flags); | |
645 | ||
646 | elf_elfheader (abfd)->e_flags = flags; | |
647 | elf_flags_init (abfd) = true; | |
648 | return true; | |
649 | } | |
650 | ||
651 | /* Merge backend specific data from an object file to the output | |
652 | object file when linking. */ | |
653 | ||
654 | boolean | |
655 | _bfd_m68hc12_elf_merge_private_bfd_data (ibfd, obfd) | |
656 | bfd *ibfd; | |
657 | bfd *obfd; | |
658 | { | |
659 | flagword old_flags; | |
660 | flagword new_flags; | |
661 | boolean ok = true; | |
662 | ||
663 | /* Check if we have the same endianess */ | |
664 | if (_bfd_generic_verify_endian_match (ibfd, obfd) == false) | |
665 | return false; | |
666 | ||
667 | if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour | |
668 | || bfd_get_flavour (obfd) != bfd_target_elf_flavour) | |
669 | return true; | |
670 | ||
671 | new_flags = elf_elfheader (ibfd)->e_flags; | |
672 | elf_elfheader (obfd)->e_flags |= new_flags & EF_M68HC11_ABI; | |
673 | old_flags = elf_elfheader (obfd)->e_flags; | |
674 | ||
675 | if (! elf_flags_init (obfd)) | |
676 | { | |
677 | elf_flags_init (obfd) = true; | |
678 | elf_elfheader (obfd)->e_flags = new_flags; | |
679 | elf_elfheader (obfd)->e_ident[EI_CLASS] | |
680 | = elf_elfheader (ibfd)->e_ident[EI_CLASS]; | |
681 | ||
682 | if (bfd_get_arch (obfd) == bfd_get_arch (ibfd) | |
683 | && bfd_get_arch_info (obfd)->the_default) | |
684 | { | |
685 | if (! bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), | |
686 | bfd_get_mach (ibfd))) | |
687 | return false; | |
688 | } | |
689 | ||
690 | return true; | |
691 | } | |
692 | ||
693 | /* Check ABI compatibility. */ | |
694 | if ((new_flags & E_M68HC11_I32) != (old_flags & E_M68HC11_I32)) | |
695 | { | |
696 | (*_bfd_error_handler) | |
697 | (_("%s: linking files compiled for 16-bit integers (-mshort) " | |
698 | "and others for 32-bit integers"), | |
699 | bfd_archive_filename (ibfd)); | |
700 | ok = false; | |
701 | } | |
702 | if ((new_flags & E_M68HC11_F64) != (old_flags & E_M68HC11_F64)) | |
703 | { | |
704 | (*_bfd_error_handler) | |
705 | (_("%s: linking files compiled for 32-bit double (-fshort-double) " | |
706 | "and others for 64-bit double"), | |
707 | bfd_archive_filename (ibfd)); | |
708 | ok = false; | |
709 | } | |
710 | new_flags &= ~EF_M68HC11_ABI; | |
711 | old_flags &= ~EF_M68HC11_ABI; | |
712 | ||
713 | /* Warn about any other mismatches */ | |
714 | if (new_flags != old_flags) | |
715 | { | |
716 | (*_bfd_error_handler) | |
717 | (_("%s: uses different e_flags (0x%lx) fields than previous modules (0x%lx)"), | |
718 | bfd_archive_filename (ibfd), (unsigned long) new_flags, | |
719 | (unsigned long) old_flags); | |
720 | ok = false; | |
721 | } | |
722 | ||
723 | if (! ok) | |
724 | { | |
725 | bfd_set_error (bfd_error_bad_value); | |
726 | return false; | |
727 | } | |
728 | ||
729 | return true; | |
730 | } | |
731 | ||
732 | boolean | |
733 | _bfd_m68hc12_elf_print_private_bfd_data (abfd, ptr) | |
734 | bfd *abfd; | |
735 | PTR ptr; | |
736 | { | |
737 | FILE *file = (FILE *) ptr; | |
738 | ||
739 | BFD_ASSERT (abfd != NULL && ptr != NULL); | |
740 | ||
741 | /* Print normal ELF private data. */ | |
742 | _bfd_elf_print_private_bfd_data (abfd, ptr); | |
743 | ||
744 | /* xgettext:c-format */ | |
745 | fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags); | |
746 | ||
747 | if (elf_elfheader (abfd)->e_flags & E_M68HC11_I32) | |
748 | fprintf (file, _("[abi=32-bit int,")); | |
749 | else | |
750 | fprintf (file, _("[abi=16-bit int,")); | |
751 | ||
752 | if (elf_elfheader (abfd)->e_flags & E_M68HC11_F64) | |
753 | fprintf (file, _(" 64-bit double]")); | |
754 | else | |
755 | fprintf (file, _(" 32-bit double]")); | |
756 | ||
757 | fputc ('\n', file); | |
758 | ||
759 | return true; | |
760 | } | |
761 | ||
60bcf0fa NC |
762 | /* Below is the only difference between elf32-m68hc12.c and elf32-m68hc11.c. |
763 | The Motorola spec says to use a different Elf machine code. */ | |
764 | #define ELF_ARCH bfd_arch_m68hc12 | |
765 | #define ELF_MACHINE_CODE EM_68HC12 | |
766 | #define ELF_MAXPAGESIZE 0x1000 | |
767 | ||
768 | #define TARGET_BIG_SYM bfd_elf32_m68hc12_vec | |
769 | #define TARGET_BIG_NAME "elf32-m68hc12" | |
770 | ||
771 | #define elf_info_to_howto 0 | |
772 | #define elf_info_to_howto_rel m68hc11_info_to_howto_rel | |
9b701e44 SC |
773 | #define elf_backend_gc_mark_hook elf32_m68hc11_gc_mark_hook |
774 | #define elf_backend_gc_sweep_hook elf32_m68hc11_gc_sweep_hook | |
60bcf0fa NC |
775 | #define elf_backend_object_p 0 |
776 | #define elf_backend_final_write_processing 0 | |
9f88ba09 AM |
777 | /* Disabled as this backend uses the generic linker. */ |
778 | #define elf_backend_can_gc_sections 0 | |
60bcf0fa | 779 | |
96405e3c SC |
780 | #define bfd_elf32_bfd_merge_private_bfd_data \ |
781 | _bfd_m68hc12_elf_merge_private_bfd_data | |
782 | #define bfd_elf32_bfd_set_private_flags _bfd_m68hc12_elf_set_private_flags | |
783 | #define bfd_elf32_bfd_print_private_bfd_data \ | |
784 | _bfd_m68hc12_elf_print_private_bfd_data | |
785 | ||
60bcf0fa | 786 | #include "elf32-target.h" |