Annotation of src/external/gpl3/binutils.old/dist/bfd/cpu-h8300.c, Revision 1.5
1.1 christos 1: /* BFD library support routines for the Renesas H8/300 architecture.
1.5 ! christos 2: Copyright (C) 1990-2016 Free Software Foundation, Inc.
1.1 christos 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
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: }
1.3 christos 85:
1.1 christos 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 *
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
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: }
CVSweb <webmaster@jp.NetBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to cpu-h8300.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [cvs.NetBSD.org] / src / external / gpl3 / binutils.old / dist / bfd