1 /* BFD library support routines for the Renesas H8/300 architecture.
2    Copyright (C) 1990-2016 Free Software Foundation, Inc.
3    Hacked by Steve Chamberlain of Cygnus Support.
4 
5    This file is part of BFD, the Binary File Descriptor library.
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 3 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., 51 Franklin Street - Fifth Floor, Boston,
20    MA 02110-1301, USA.  */
21 
22 #include "sysdep.h"
23 #include "bfd.h"
24 #include "libbfd.h"
25 
26 static bfd_boolean
h8300_scan(const struct bfd_arch_info * info,const char * string)27 h8300_scan (const struct bfd_arch_info *info, const char *string)
28 {
29   if (*string != 'h' && *string != 'H')
30     return FALSE;
31 
32   string++;
33   if (*string != '8')
34     return FALSE;
35 
36   string++;
37   if (*string == '/')
38     string++;
39 
40   if (*string != '3')
41     return FALSE;
42   string++;
43   if (*string != '0')
44     return FALSE;
45   string++;
46   if (*string != '0')
47     return FALSE;
48   string++;
49   if (*string == '-')
50     string++;
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++;
60       return h8300_scan (info, string);
61     }
62 
63   if (*string == 'h' || *string == 'H')
64     {
65       string++;
66       if (*string == 'n' || *string == 'N')
67 	return (info->mach == bfd_mach_h8300hn);
68 
69       return (info->mach == bfd_mach_h8300h);
70     }
71   else if (*string == 's' || *string == 'S')
72     {
73       string++;
74       if (*string == 'n' || *string == 'N')
75 	return (info->mach == bfd_mach_h8300sn);
76 
77       if (*string == 'x' || *string == 'X')
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 	}
85 
86       return (info->mach == bfd_mach_h8300s);
87     }
88   else
89     return info->mach == bfd_mach_h8300;
90 }
91 
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.  */
95 
96 static const bfd_arch_info_type *
compatible(const bfd_arch_info_type * in,const bfd_arch_info_type * out)97 compatible (const bfd_arch_info_type *in, const bfd_arch_info_type *out)
98 {
99   if (in->arch != out->arch)
100     return 0;
101   if (in->mach == bfd_mach_h8300sx && out->mach == bfd_mach_h8300s)
102     return in;
103   if (in->mach == bfd_mach_h8300s && out->mach == bfd_mach_h8300sx)
104     return out;
105   if (in->mach == bfd_mach_h8300sxn && out->mach == bfd_mach_h8300sn)
106     return in;
107   if (in->mach == bfd_mach_h8300sn && out->mach == bfd_mach_h8300sxn)
108     return out;
109   /* It's really not a good idea to mix and match modes.  */
110   if (in->mach != out->mach)
111     return 0;
112   else
113     return in;
114 }
115 
116 static const bfd_arch_info_type h8300sxn_info_struct =
117 {
118   32,				/* 32 bits in a word */
119   16,				/* 16 bits in an address */
120   8,				/* 8 bits in a byte */
121   bfd_arch_h8300,
122   bfd_mach_h8300sxn,
123   "h8300sxn",			/* arch_name  */
124   "h8300sxn",			/* printable name */
125   1,
126   FALSE,			/* the default machine */
127   compatible,
128   h8300_scan,
129   bfd_arch_default_fill,
130   0
131 };
132 
133 static const bfd_arch_info_type h8300sx_info_struct =
134 {
135   32,				/* 32 bits in a word */
136   32,				/* 32 bits in an address */
137   8,				/* 8 bits in a byte */
138   bfd_arch_h8300,
139   bfd_mach_h8300sx,
140   "h8300sx",			/* arch_name  */
141   "h8300sx",			/* printable name */
142   1,
143   FALSE,			/* the default machine */
144   compatible,
145   h8300_scan,
146   bfd_arch_default_fill,
147   &h8300sxn_info_struct
148 };
149 
150 static const bfd_arch_info_type h8300sn_info_struct =
151 {
152   32,				/* 32 bits in a word.  */
153   16,				/* 16 bits in an address.  */
154   8,				/* 8 bits in a byte.  */
155   bfd_arch_h8300,
156   bfd_mach_h8300sn,
157   "h8300sn",			/* Architecture name.  */
158   "h8300sn",			/* Printable name.  */
159   1,
160   FALSE,			/* The default machine.  */
161   compatible,
162   h8300_scan,
163   bfd_arch_default_fill,
164   &h8300sx_info_struct
165 };
166 
167 static const bfd_arch_info_type h8300hn_info_struct =
168 {
169   32,				/* 32 bits in a word.  */
170   16,				/* 16 bits in an address.  */
171   8,				/* 8 bits in a byte.  */
172   bfd_arch_h8300,
173   bfd_mach_h8300hn,
174   "h8300hn",			/* Architecture name.  */
175   "h8300hn",			/* Printable name.  */
176   1,
177   FALSE,			/* The default machine.  */
178   compatible,
179   h8300_scan,
180   bfd_arch_default_fill,
181   &h8300sn_info_struct
182 };
183 
184 static const bfd_arch_info_type h8300s_info_struct =
185 {
186   32,				/* 32 bits in a word.  */
187   32,				/* 32 bits in an address.  */
188   8,				/* 8 bits in a byte.  */
189   bfd_arch_h8300,
190   bfd_mach_h8300s,
191   "h8300s",			/* Architecture name.  */
192   "h8300s",			/* Printable name.  */
193   1,
194   FALSE,			/* The default machine.  */
195   compatible,
196   h8300_scan,
197   bfd_arch_default_fill,
198   & h8300hn_info_struct
199 };
200 
201 static const bfd_arch_info_type h8300h_info_struct =
202 {
203   32,				/* 32 bits in a word.  */
204   32,				/* 32 bits in an address.  */
205   8,				/* 8 bits in a byte.  */
206   bfd_arch_h8300,
207   bfd_mach_h8300h,
208   "h8300h",			/* Architecture name.  */
209   "h8300h",			/* Printable name.  */
210   1,
211   FALSE,			/* The default machine.  */
212   compatible,
213   h8300_scan,
214   bfd_arch_default_fill,
215   &h8300s_info_struct
216 };
217 
218 const bfd_arch_info_type bfd_h8300_arch =
219 {
220   16,				/* 16 bits in a word.  */
221   16,				/* 16 bits in an address.  */
222   8,				/* 8 bits in a byte.  */
223   bfd_arch_h8300,
224   bfd_mach_h8300,
225   "h8300",			/* Architecture name.  */
226   "h8300",			/* Printable name.  */
227   1,
228   TRUE,				/* The default machine.  */
229   compatible,
230   h8300_scan,
231   bfd_arch_default_fill,
232   &h8300h_info_struct
233 };
234 
235 /* Pad the given address to 32 bits, converting 16-bit and 24-bit
236    addresses into the values they would have had on a h8s target.  */
237 
238 bfd_vma
bfd_h8300_pad_address(bfd * abfd,bfd_vma address)239 bfd_h8300_pad_address (bfd *abfd, bfd_vma address)
240 {
241   /* Cope with bfd_vma's larger than 32 bits.  */
242   address &= 0xffffffffu;
243 
244   switch (bfd_get_mach (abfd))
245     {
246     case bfd_mach_h8300:
247     case bfd_mach_h8300hn:
248     case bfd_mach_h8300sn:
249     case bfd_mach_h8300sxn:
250       /* Sign extend a 16-bit address.  */
251       if (address >= 0x8000)
252 	return address | 0xffff0000u;
253       return address;
254 
255     case bfd_mach_h8300h:
256       /* Sign extend a 24-bit address.  */
257       if (address >= 0x800000)
258 	return address | 0xff000000u;
259       return address;
260 
261     case bfd_mach_h8300s:
262     case bfd_mach_h8300sx:
263       return address;
264 
265     default:
266       abort ();
267     }
268 }
269