Commit | Line | Data |
---|---|---|
c2dcd04e NC |
1 | /* BFD library support routines for the Renesas H8/300 architecture. |
2 | Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 2000, 2001, 2002, 2003 | |
7898deda | 3 | Free Software Foundation, Inc. |
252b5132 RH |
4 | Hacked by Steve Chamberlain of Cygnus Support. |
5 | ||
c2dcd04e | 6 | This file is part of BFD, the Binary File Descriptor library. |
252b5132 | 7 | |
c2dcd04e NC |
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. | |
252b5132 | 12 | |
c2dcd04e NC |
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. | |
252b5132 | 17 | |
c2dcd04e NC |
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. */ | |
252b5132 RH |
21 | |
22 | #include "bfd.h" | |
23 | #include "sysdep.h" | |
24 | #include "libbfd.h" | |
25 | ||
b34976b6 | 26 | static bfd_boolean |
c6baf75e | 27 | h8300_scan (const struct bfd_arch_info *info, const char *string) |
252b5132 RH |
28 | { |
29 | if (*string != 'h' && *string != 'H') | |
b34976b6 | 30 | return FALSE; |
252b5132 RH |
31 | |
32 | string++; | |
33 | if (*string != '8') | |
b34976b6 | 34 | return FALSE; |
252b5132 RH |
35 | |
36 | string++; | |
37 | if (*string == '/') | |
38 | string++; | |
39 | ||
40 | if (*string != '3') | |
b34976b6 | 41 | return FALSE; |
252b5132 RH |
42 | string++; |
43 | if (*string != '0') | |
b34976b6 | 44 | return FALSE; |
252b5132 RH |
45 | string++; |
46 | if (*string != '0') | |
b34976b6 | 47 | return FALSE; |
252b5132 RH |
48 | string++; |
49 | if (*string == '-') | |
50 | string++; | |
0a83638b JL |
51 | |
52 | /* In ELF linker scripts, we typically express the architecture/machine | |
53 | as architecture:machine. | |
54 | ||
55 | So if we've matched so far and encounter a colon, try to match the | |
56 | string following the colon. */ | |
57 | if (*string == ':') | |
58 | { | |
59 | string++; | |
eea78af1 | 60 | return h8300_scan (info, string); |
0a83638b JL |
61 | } |
62 | ||
252b5132 RH |
63 | if (*string == 'h' || *string == 'H') |
64 | { | |
8d9cd6b1 NC |
65 | string++; |
66 | if (*string == 'n' || *string == 'N') | |
67 | return (info->mach == bfd_mach_h8300hn); | |
68 | ||
252b5132 RH |
69 | return (info->mach == bfd_mach_h8300h); |
70 | } | |
71 | else if (*string == 's' || *string == 'S') | |
72 | { | |
8d9cd6b1 NC |
73 | string++; |
74 | if (*string == 'n' || *string == 'N') | |
75 | return (info->mach == bfd_mach_h8300sn); | |
76 | ||
5d1db417 | 77 | if (*string == 'x' || *string == 'X') |
f4984206 RS |
78 | { |
79 | string++; | |
80 | if (*string == 'n' || *string == 'N') | |
81 | return (info->mach == bfd_mach_h8300sxn); | |
82 | ||
83 | return (info->mach == bfd_mach_h8300sx); | |
84 | } | |
5d1db417 | 85 | |
252b5132 RH |
86 | return (info->mach == bfd_mach_h8300s); |
87 | } | |
88 | else | |
8d9cd6b1 | 89 | return info->mach == bfd_mach_h8300; |
252b5132 RH |
90 | } |
91 | ||
cc040812 NC |
92 | /* This routine is provided two arch_infos and works out the machine |
93 | which would be compatible with both and returns a pointer to its | |
94 | info structure. */ | |
252b5132 RH |
95 | |
96 | static const bfd_arch_info_type * | |
c6baf75e | 97 | compatible (const bfd_arch_info_type *in, const bfd_arch_info_type *out) |
252b5132 RH |
98 | { |
99 | /* It's really not a good idea to mix and match modes. */ | |
b74fa2cd | 100 | if (in->arch != out->arch || in->mach != out->mach) |
252b5132 RH |
101 | return 0; |
102 | else | |
103 | return in; | |
104 | } | |
105 | ||
f4984206 RS |
106 | static const bfd_arch_info_type h8300sxn_info_struct = |
107 | { | |
108 | 32, /* 32 bits in a word */ | |
d4e2de6b | 109 | 16, /* 16 bits in an address */ |
f4984206 RS |
110 | 8, /* 8 bits in a byte */ |
111 | bfd_arch_h8300, | |
112 | bfd_mach_h8300sxn, | |
113 | "h8300sxn", /* arch_name */ | |
114 | "h8300sxn", /* printable name */ | |
115 | 1, | |
116 | FALSE, /* the default machine */ | |
117 | compatible, | |
118 | h8300_scan, | |
119 | 0 | |
120 | }; | |
121 | ||
5d1db417 MS |
122 | static const bfd_arch_info_type h8300sx_info_struct = |
123 | { | |
124 | 32, /* 32 bits in a word */ | |
125 | 32, /* 32 bits in an address */ | |
126 | 8, /* 8 bits in a byte */ | |
127 | bfd_arch_h8300, | |
128 | bfd_mach_h8300sx, | |
129 | "h8300sx", /* arch_name */ | |
130 | "h8300sx", /* printable name */ | |
131 | 1, | |
132 | FALSE, /* the default machine */ | |
133 | compatible, | |
134 | h8300_scan, | |
f4984206 | 135 | &h8300sxn_info_struct |
5d1db417 MS |
136 | }; |
137 | ||
8d9cd6b1 NC |
138 | static const bfd_arch_info_type h8300sn_info_struct = |
139 | { | |
140 | 32, /* 32 bits in a word. */ | |
d4e2de6b | 141 | 16, /* 16 bits in an address. */ |
8d9cd6b1 NC |
142 | 8, /* 8 bits in a byte. */ |
143 | bfd_arch_h8300, | |
144 | bfd_mach_h8300sn, | |
145 | "h8300sn", /* Architecture name. */ | |
146 | "h8300sn", /* Printable name. */ | |
147 | 1, | |
148 | FALSE, /* The default machine. */ | |
149 | compatible, | |
150 | h8300_scan, | |
5d1db417 | 151 | &h8300sx_info_struct |
8d9cd6b1 NC |
152 | }; |
153 | ||
8d9cd6b1 NC |
154 | static const bfd_arch_info_type h8300hn_info_struct = |
155 | { | |
156 | 32, /* 32 bits in a word. */ | |
d4e2de6b | 157 | 16, /* 16 bits in an address. */ |
8d9cd6b1 NC |
158 | 8, /* 8 bits in a byte. */ |
159 | bfd_arch_h8300, | |
160 | bfd_mach_h8300hn, | |
161 | "h8300hn", /* Architecture name. */ | |
162 | "h8300hn", /* Printable name. */ | |
163 | 1, | |
164 | FALSE, /* The default machine. */ | |
165 | compatible, | |
166 | h8300_scan, | |
167 | &h8300sn_info_struct | |
168 | }; | |
169 | ||
4c7aad1c | 170 | static const bfd_arch_info_type h8300s_info_struct = |
252b5132 | 171 | { |
8d9cd6b1 NC |
172 | 32, /* 32 bits in a word. */ |
173 | 32, /* 32 bits in an address. */ | |
174 | 8, /* 8 bits in a byte. */ | |
252b5132 | 175 | bfd_arch_h8300, |
4c7aad1c | 176 | bfd_mach_h8300s, |
8d9cd6b1 NC |
177 | "h8300s", /* Architecture name. */ |
178 | "h8300s", /* Printable name. */ | |
252b5132 | 179 | 1, |
8d9cd6b1 | 180 | FALSE, /* The default machine. */ |
252b5132 RH |
181 | compatible, |
182 | h8300_scan, | |
8d9cd6b1 | 183 | & h8300hn_info_struct |
252b5132 RH |
184 | }; |
185 | ||
186 | static const bfd_arch_info_type h8300h_info_struct = | |
187 | { | |
8d9cd6b1 NC |
188 | 32, /* 32 bits in a word. */ |
189 | 32, /* 32 bits in an address. */ | |
190 | 8, /* 8 bits in a byte. */ | |
252b5132 RH |
191 | bfd_arch_h8300, |
192 | bfd_mach_h8300h, | |
8d9cd6b1 NC |
193 | "h8300h", /* Architecture name. */ |
194 | "h8300h", /* Printable name. */ | |
252b5132 | 195 | 1, |
8d9cd6b1 | 196 | FALSE, /* The default machine. */ |
252b5132 RH |
197 | compatible, |
198 | h8300_scan, | |
4c7aad1c | 199 | &h8300s_info_struct |
252b5132 RH |
200 | }; |
201 | ||
202 | const bfd_arch_info_type bfd_h8300_arch = | |
203 | { | |
8d9cd6b1 NC |
204 | 16, /* 16 bits in a word. */ |
205 | 16, /* 16 bits in an address. */ | |
206 | 8, /* 8 bits in a byte. */ | |
252b5132 | 207 | bfd_arch_h8300, |
4c7aad1c | 208 | bfd_mach_h8300, |
8d9cd6b1 NC |
209 | "h8300", /* Architecture name. */ |
210 | "h8300", /* Printable name. */ | |
252b5132 | 211 | 1, |
8d9cd6b1 | 212 | TRUE, /* The default machine. */ |
252b5132 RH |
213 | compatible, |
214 | h8300_scan, | |
4c7aad1c | 215 | &h8300h_info_struct |
252b5132 | 216 | }; |
2808c7aa RS |
217 | |
218 | /* Pad the given address to 32 bits, converting 16-bit and 24-bit | |
219 | addresses into the values they would have had on a h8s target. */ | |
220 | ||
221 | bfd_vma | |
222 | bfd_h8300_pad_address (bfd *abfd, bfd_vma address) | |
223 | { | |
224 | /* Cope with bfd_vma's larger than 32 bits. */ | |
225 | address &= 0xffffffffu; | |
226 | ||
227 | switch (bfd_get_mach (abfd)) | |
228 | { | |
229 | case bfd_mach_h8300: | |
230 | case bfd_mach_h8300hn: | |
231 | case bfd_mach_h8300sn: | |
232 | case bfd_mach_h8300sxn: | |
233 | /* Sign extend a 16-bit address. */ | |
234 | if (address >= 0x8000) | |
235 | return address | 0xffff0000u; | |
236 | return address; | |
237 | ||
238 | case bfd_mach_h8300h: | |
239 | /* Sign extend a 24-bit address. */ | |
240 | if (address >= 0x800000) | |
241 | return address | 0xff000000u; | |
242 | return address; | |
243 | ||
244 | case bfd_mach_h8300s: | |
245 | case bfd_mach_h8300sx: | |
246 | return address; | |
247 | ||
248 | default: | |
249 | abort (); | |
250 | } | |
251 | } |