Commit | Line | Data |
---|---|---|
886a2506 | 1 | /* ARC target-dependent stuff. Extension structure access functions |
82704155 | 2 | Copyright (C) 1995-2019 Free Software Foundation, Inc. |
0d2bcfaf | 3 | |
9b201bb5 | 4 | This file is part of libopcodes. |
0d2bcfaf | 5 | |
9b201bb5 | 6 | This library is free software; you can redistribute it and/or modify |
0d2bcfaf | 7 | it under the terms of the GNU General Public License as published by |
9b201bb5 NC |
8 | the Free Software Foundation; either version 3, or (at your option) |
9 | any later version. | |
0d2bcfaf | 10 | |
9b201bb5 NC |
11 | It is distributed in the hope that it will be useful, but WITHOUT |
12 | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | |
13 | or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public | |
14 | License for more details. | |
0d2bcfaf NC |
15 | |
16 | You should have received a copy of the GNU General Public License | |
17 | along with this program; if not, write to the Free Software | |
9b201bb5 NC |
18 | Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, |
19 | MA 02110-1301, USA. */ | |
0d2bcfaf | 20 | |
5bd67f35 | 21 | #include "sysdep.h" |
0d2bcfaf NC |
22 | #include <stdlib.h> |
23 | #include <stdio.h> | |
886a2506 | 24 | |
0d2bcfaf NC |
25 | #include "bfd.h" |
26 | #include "arc-ext.h" | |
886a2506 | 27 | #include "elf/arc.h" |
0d2bcfaf NC |
28 | #include "libiberty.h" |
29 | ||
886a2506 NC |
30 | /* This module provides support for extensions to the ARC processor |
31 | architecture. */ | |
0d2bcfaf | 32 | |
0d2bcfaf | 33 | |
886a2506 | 34 | /* Local constants. */ |
0d2bcfaf | 35 | |
886a2506 NC |
36 | #define FIRST_EXTENSION_CORE_REGISTER 32 |
37 | #define LAST_EXTENSION_CORE_REGISTER 59 | |
38 | #define FIRST_EXTENSION_CONDITION_CODE 0x10 | |
39 | #define LAST_EXTENSION_CONDITION_CODE 0x1f | |
0d2bcfaf | 40 | |
886a2506 NC |
41 | #define NUM_EXT_CORE \ |
42 | (LAST_EXTENSION_CORE_REGISTER - FIRST_EXTENSION_CORE_REGISTER + 1) | |
43 | #define NUM_EXT_COND \ | |
44 | (LAST_EXTENSION_CONDITION_CODE - FIRST_EXTENSION_CONDITION_CODE + 1) | |
45 | #define INST_HASH_BITS 6 | |
46 | #define INST_HASH_SIZE (1 << INST_HASH_BITS) | |
47 | #define INST_HASH_MASK (INST_HASH_SIZE - 1) | |
0d2bcfaf | 48 | |
0d2bcfaf | 49 | |
886a2506 | 50 | /* Local types. */ |
0d2bcfaf | 51 | |
886a2506 | 52 | /* These types define the information stored in the table. */ |
0d2bcfaf | 53 | |
886a2506 NC |
54 | struct ExtAuxRegister |
55 | { | |
db18dbab GM |
56 | long address; |
57 | char * name; | |
58 | struct ExtAuxRegister * next; | |
886a2506 | 59 | }; |
0d2bcfaf | 60 | |
886a2506 NC |
61 | struct ExtCoreRegister |
62 | { | |
63 | short number; | |
64 | enum ExtReadWrite rw; | |
db18dbab | 65 | char * name; |
886a2506 | 66 | }; |
0d2bcfaf | 67 | |
886a2506 | 68 | struct arcExtMap |
0d2bcfaf | 69 | { |
886a2506 NC |
70 | struct ExtAuxRegister* auxRegisters; |
71 | struct ExtInstruction* instructions[INST_HASH_SIZE]; | |
72 | struct ExtCoreRegister coreRegisters[NUM_EXT_CORE]; | |
db18dbab | 73 | char * condCodes[NUM_EXT_COND]; |
886a2506 | 74 | }; |
5bd67f35 | 75 | |
0d2bcfaf | 76 | |
886a2506 | 77 | /* Local data. */ |
0d2bcfaf | 78 | |
886a2506 NC |
79 | /* Extension table. */ |
80 | static struct arcExtMap arc_extension_map; | |
5bd67f35 | 81 | |
5bd67f35 | 82 | |
886a2506 | 83 | /* Local macros. */ |
5bd67f35 | 84 | |
886a2506 NC |
85 | /* A hash function used to map instructions into the table. */ |
86 | #define INST_HASH(MAJOR, MINOR) ((((MAJOR) << 3) ^ (MINOR)) & INST_HASH_MASK) | |
5bd67f35 | 87 | |
0d2bcfaf | 88 | |
886a2506 | 89 | /* Local functions. */ |
5bd67f35 | 90 | |
886a2506 NC |
91 | static void |
92 | create_map (unsigned char *block, | |
93 | unsigned long length) | |
94 | { | |
95 | unsigned char *p = block; | |
0d2bcfaf | 96 | |
5bd67f35 | 97 | while (p && p < (block + length)) |
0d2bcfaf NC |
98 | { |
99 | /* p[0] == length of record | |
100 | p[1] == type of record | |
101 | For instructions: | |
102 | p[2] = opcode | |
103 | p[3] = minor opcode (if opcode == 3) | |
104 | p[4] = flags | |
105 | p[5]+ = name | |
106 | For core regs and condition codes: | |
107 | p[2] = value | |
108 | p[3]+ = name | |
886a2506 | 109 | For auxiliary regs: |
0d2bcfaf NC |
110 | p[2..5] = value |
111 | p[6]+ = name | |
886a2506 | 112 | (value is p[2]<<24|p[3]<<16|p[4]<<8|p[5]). */ |
0d2bcfaf | 113 | |
886a2506 NC |
114 | /* The sequence of records is temrinated by an "empty" |
115 | record. */ | |
0d2bcfaf | 116 | if (p[0] == 0) |
886a2506 | 117 | break; |
5bd67f35 | 118 | |
0d2bcfaf NC |
119 | switch (p[1]) |
120 | { | |
121 | case EXT_INSTRUCTION: | |
122 | { | |
886a2506 NC |
123 | struct ExtInstruction *insn = XNEW (struct ExtInstruction); |
124 | int major = p[2]; | |
125 | int minor = p[3]; | |
126 | struct ExtInstruction **bucket = | |
127 | &arc_extension_map.instructions[INST_HASH (major, minor)]; | |
128 | ||
129 | insn->name = xstrdup ((char *) (p + 5)); | |
130 | insn->major = major; | |
131 | insn->minor = minor; | |
132 | insn->flags = p[4]; | |
133 | insn->next = *bucket; | |
b99747ae CZ |
134 | insn->suffix = 0; |
135 | insn->syntax = 0; | |
136 | insn->modsyn = 0; | |
886a2506 NC |
137 | *bucket = insn; |
138 | break; | |
0d2bcfaf | 139 | } |
5bd67f35 AJ |
140 | |
141 | case EXT_CORE_REGISTER: | |
0d2bcfaf | 142 | { |
886a2506 NC |
143 | unsigned char number = p[2]; |
144 | char* name = (char *) (p + 3); | |
145 | ||
146 | arc_extension_map. | |
147 | coreRegisters[number - FIRST_EXTENSION_CORE_REGISTER].number | |
148 | = number; | |
149 | arc_extension_map. | |
150 | coreRegisters[number - FIRST_EXTENSION_CORE_REGISTER].rw | |
151 | = REG_READWRITE; | |
152 | arc_extension_map. | |
153 | coreRegisters[number - FIRST_EXTENSION_CORE_REGISTER].name | |
154 | = xstrdup (name); | |
155 | break; | |
156 | } | |
0d2bcfaf | 157 | |
886a2506 NC |
158 | case EXT_LONG_CORE_REGISTER: |
159 | { | |
160 | unsigned char number = p[2]; | |
161 | char* name = (char *) (p + 7); | |
162 | enum ExtReadWrite rw = p[6]; | |
163 | ||
164 | arc_extension_map. | |
165 | coreRegisters[number - FIRST_EXTENSION_CORE_REGISTER].number | |
166 | = number; | |
167 | arc_extension_map. | |
168 | coreRegisters[number - FIRST_EXTENSION_CORE_REGISTER].rw | |
169 | = rw; | |
170 | arc_extension_map. | |
171 | coreRegisters[number - FIRST_EXTENSION_CORE_REGISTER].name | |
172 | = xstrdup (name); | |
2b804145 | 173 | break; |
0d2bcfaf | 174 | } |
5bd67f35 AJ |
175 | |
176 | case EXT_COND_CODE: | |
0d2bcfaf | 177 | { |
886a2506 NC |
178 | char *cc_name = xstrdup ((char *) (p + 3)); |
179 | ||
180 | arc_extension_map. | |
181 | condCodes[p[2] - FIRST_EXTENSION_CONDITION_CODE] | |
182 | = cc_name; | |
183 | break; | |
5bd67f35 | 184 | } |
5bd67f35 AJ |
185 | |
186 | case EXT_AUX_REGISTER: | |
0d2bcfaf | 187 | { |
886a2506 NC |
188 | /* Trickier -- need to store linked list of these. */ |
189 | struct ExtAuxRegister *newAuxRegister | |
190 | = XNEW (struct ExtAuxRegister); | |
191 | char *aux_name = xstrdup ((char *) (p + 6)); | |
0d2bcfaf | 192 | |
0d2bcfaf | 193 | newAuxRegister->name = aux_name; |
886a2506 NC |
194 | newAuxRegister->address = (p[2] << 24) | (p[3] << 16) |
195 | | (p[4] << 8) | p[5]; | |
0d2bcfaf NC |
196 | newAuxRegister->next = arc_extension_map.auxRegisters; |
197 | arc_extension_map.auxRegisters = newAuxRegister; | |
886a2506 | 198 | break; |
0d2bcfaf | 199 | } |
5bd67f35 | 200 | |
0d2bcfaf | 201 | default: |
886a2506 NC |
202 | break; |
203 | } | |
204 | ||
205 | p += p[0]; /* Move on to next record. */ | |
206 | } | |
207 | } | |
208 | ||
209 | ||
210 | /* Free memory that has been allocated for the extensions. */ | |
211 | ||
212 | static void | |
213 | destroy_map (void) | |
214 | { | |
215 | struct ExtAuxRegister *r; | |
216 | unsigned int i; | |
217 | ||
218 | /* Free auxiliary registers. */ | |
219 | r = arc_extension_map.auxRegisters; | |
220 | while (r) | |
221 | { | |
222 | /* N.B. after r has been freed, r->next is invalid! */ | |
223 | struct ExtAuxRegister* next = r->next; | |
224 | ||
225 | free (r->name); | |
226 | free (r); | |
227 | r = next; | |
228 | } | |
229 | ||
230 | /* Free instructions. */ | |
231 | for (i = 0; i < INST_HASH_SIZE; i++) | |
232 | { | |
233 | struct ExtInstruction *insn = arc_extension_map.instructions[i]; | |
234 | ||
235 | while (insn) | |
236 | { | |
237 | /* N.B. after insn has been freed, insn->next is invalid! */ | |
238 | struct ExtInstruction *next = insn->next; | |
239 | ||
240 | free (insn->name); | |
241 | free (insn); | |
242 | insn = next; | |
243 | } | |
244 | } | |
245 | ||
246 | /* Free core registers. */ | |
247 | for (i = 0; i < NUM_EXT_CORE; i++) | |
248 | { | |
249 | if (arc_extension_map.coreRegisters[i].name) | |
250 | free (arc_extension_map.coreRegisters[i].name); | |
251 | } | |
5bd67f35 | 252 | |
886a2506 NC |
253 | /* Free condition codes. */ |
254 | for (i = 0; i < NUM_EXT_COND; i++) | |
255 | { | |
256 | if (arc_extension_map.condCodes[i]) | |
257 | free (arc_extension_map.condCodes[i]); | |
258 | } | |
259 | ||
260 | memset (&arc_extension_map, 0, sizeof (arc_extension_map)); | |
261 | } | |
262 | ||
263 | ||
264 | static const char * | |
265 | ExtReadWrite_image (enum ExtReadWrite val) | |
266 | { | |
267 | switch (val) | |
268 | { | |
269 | case REG_INVALID : return "INVALID"; | |
270 | case REG_READ : return "RO"; | |
271 | case REG_WRITE : return "WO"; | |
272 | case REG_READWRITE: return "R/W"; | |
273 | default : return "???"; | |
274 | } | |
275 | } | |
276 | ||
277 | ||
278 | /* Externally visible functions. */ | |
279 | ||
280 | /* Get the name of an extension instruction. */ | |
281 | ||
b99747ae | 282 | const extInstruction_t * |
bdfe53e3 | 283 | arcExtMap_insn (int opcode, unsigned long long insn) |
886a2506 NC |
284 | { |
285 | /* Here the following tasks need to be done. First of all, the | |
286 | opcode stored in the Extension Map is the real opcode. However, | |
287 | the subopcode stored in the instruction to be disassembled is | |
288 | mangled. We pass (in minor opcode), the instruction word. Here | |
289 | we will un-mangle it and get the real subopcode which we can look | |
290 | for in the Extension Map. This function is used both for the | |
291 | ARCTangent and the ARCompact, so we would also need some sort of | |
292 | a way to distinguish between the two architectures. This is | |
293 | because the ARCTangent does not do any of this mangling so we | |
294 | have no issues there. */ | |
295 | ||
296 | /* If P[22:23] is 0 or 2 then un-mangle using iiiiiI. If it is 1 | |
297 | then use iiiiIi. Now, if P is 3 then check M[5:5] and if it is 0 | |
298 | then un-mangle using iiiiiI else iiiiii. */ | |
299 | ||
300 | unsigned char minor; | |
b99747ae | 301 | extInstruction_t *temp; |
886a2506 NC |
302 | |
303 | /* 16-bit instructions. */ | |
304 | if (0x08 <= opcode && opcode <= 0x0b) | |
305 | { | |
306 | unsigned char b, c, i; | |
307 | ||
308 | b = (insn & 0x0700) >> 8; | |
309 | c = (insn & 0x00e0) >> 5; | |
310 | i = (insn & 0x001f); | |
311 | ||
312 | if (i) | |
313 | minor = i; | |
314 | else | |
315 | minor = (c == 0x07) ? b : c; | |
316 | } | |
317 | /* 32-bit instructions. */ | |
318 | else | |
319 | { | |
320 | unsigned char I, A, B; | |
321 | ||
322 | I = (insn & 0x003f0000) >> 16; | |
323 | A = (insn & 0x0000003f); | |
324 | B = ((insn & 0x07000000) >> 24) | ((insn & 0x00007000) >> 9); | |
325 | ||
326 | if (I != 0x2f) | |
327 | { | |
328 | #ifndef UNMANGLED | |
329 | switch (P) | |
330 | { | |
331 | case 3: | |
332 | if (M) | |
333 | { | |
334 | minor = I; | |
335 | break; | |
336 | } | |
337 | case 0: | |
338 | case 2: | |
339 | minor = (I >> 1) | ((I & 0x1) << 5); | |
340 | break; | |
341 | case 1: | |
342 | minor = (I >> 1) | (I & 0x1) | ((I & 0x2) << 4); | |
343 | } | |
344 | #else | |
345 | minor = I; | |
346 | #endif | |
347 | } | |
348 | else | |
349 | { | |
350 | if (A != 0x3f) | |
351 | minor = A; | |
352 | else | |
353 | minor = B; | |
354 | } | |
355 | } | |
356 | ||
357 | temp = arc_extension_map.instructions[INST_HASH (opcode, minor)]; | |
358 | while (temp) | |
359 | { | |
360 | if ((temp->major == opcode) && (temp->minor == minor)) | |
361 | { | |
b99747ae | 362 | return temp; |
0d2bcfaf | 363 | } |
886a2506 | 364 | temp = temp->next; |
0d2bcfaf | 365 | } |
5bd67f35 | 366 | |
886a2506 | 367 | return NULL; |
0d2bcfaf NC |
368 | } |
369 | ||
886a2506 | 370 | /* Get the name of an extension core register. */ |
0d2bcfaf | 371 | |
886a2506 NC |
372 | const char * |
373 | arcExtMap_coreRegName (int regnum) | |
374 | { | |
375 | if (regnum < FIRST_EXTENSION_CORE_REGISTER | |
f36e33da | 376 | || regnum > LAST_EXTENSION_CORE_REGISTER) |
886a2506 NC |
377 | return NULL; |
378 | return arc_extension_map. | |
379 | coreRegisters[regnum - FIRST_EXTENSION_CORE_REGISTER].name; | |
380 | } | |
381 | ||
382 | /* Get the access mode of an extension core register. */ | |
383 | ||
384 | enum ExtReadWrite | |
385 | arcExtMap_coreReadWrite (int regnum) | |
0d2bcfaf | 386 | { |
886a2506 | 387 | if (regnum < FIRST_EXTENSION_CORE_REGISTER |
f36e33da | 388 | || regnum > LAST_EXTENSION_CORE_REGISTER) |
886a2506 NC |
389 | return REG_INVALID; |
390 | return arc_extension_map. | |
391 | coreRegisters[regnum - FIRST_EXTENSION_CORE_REGISTER].rw; | |
392 | } | |
393 | ||
394 | /* Get the name of an extension condition code. */ | |
395 | ||
396 | const char * | |
397 | arcExtMap_condCodeName (int code) | |
398 | { | |
399 | if (code < FIRST_EXTENSION_CONDITION_CODE | |
400 | || code > LAST_EXTENSION_CONDITION_CODE) | |
401 | return NULL; | |
402 | return arc_extension_map. | |
403 | condCodes[code - FIRST_EXTENSION_CONDITION_CODE]; | |
404 | } | |
405 | ||
406 | /* Get the name of an extension auxiliary register. */ | |
407 | ||
408 | const char * | |
409 | arcExtMap_auxRegName (long address) | |
410 | { | |
411 | /* Walk the list of auxiliary register names and find the name. */ | |
412 | struct ExtAuxRegister *r; | |
413 | ||
414 | for (r = arc_extension_map.auxRegisters; r; r = r->next) | |
415 | { | |
416 | if (r->address == address) | |
417 | return (const char *)r->name; | |
418 | } | |
419 | return NULL; | |
420 | } | |
421 | ||
422 | /* Load extensions described in .arcextmap and | |
423 | .gnu.linkonce.arcextmap.* ELF section. */ | |
0d2bcfaf | 424 | |
886a2506 NC |
425 | void |
426 | build_ARC_extmap (bfd *text_bfd) | |
427 | { | |
428 | asection *sect; | |
429 | ||
430 | /* The map is built each time gdb loads an executable file - so free | |
431 | any existing map, as the map defined by the new file may differ | |
432 | from the old. */ | |
433 | destroy_map (); | |
434 | ||
435 | for (sect = text_bfd->sections; sect != NULL; sect = sect->next) | |
436 | if (!strncmp (sect->name, | |
437 | ".gnu.linkonce.arcextmap.", | |
438 | sizeof (".gnu.linkonce.arcextmap.") - 1) | |
439 | || !strcmp (sect->name,".arcextmap")) | |
0d2bcfaf | 440 | { |
fd361982 | 441 | bfd_size_type count = bfd_section_size (sect); |
886a2506 NC |
442 | unsigned char* buffer = xmalloc (count); |
443 | ||
444 | if (buffer) | |
445 | { | |
446 | if (bfd_get_section_contents (text_bfd, sect, buffer, 0, count)) | |
447 | create_map (buffer, count); | |
448 | free (buffer); | |
449 | } | |
0d2bcfaf NC |
450 | } |
451 | } | |
886a2506 | 452 | |
b99747ae CZ |
453 | /* Debug function used to dump the ARC information fount in arcextmap |
454 | sections. */ | |
886a2506 NC |
455 | |
456 | void | |
457 | dump_ARC_extmap (void) | |
458 | { | |
459 | struct ExtAuxRegister *r; | |
460 | int i; | |
461 | ||
462 | r = arc_extension_map.auxRegisters; | |
463 | ||
464 | while (r) | |
465 | { | |
466 | printf ("AUX : %s %ld\n", r->name, r->address); | |
467 | r = r->next; | |
468 | } | |
469 | ||
470 | for (i = 0; i < INST_HASH_SIZE; i++) | |
471 | { | |
472 | struct ExtInstruction *insn; | |
473 | ||
474 | for (insn = arc_extension_map.instructions[i]; | |
475 | insn != NULL; insn = insn->next) | |
b99747ae CZ |
476 | { |
477 | printf ("INST: 0x%02x 0x%02x ", insn->major, insn->minor); | |
945e0f82 CZ |
478 | switch (insn->flags & ARC_SYNTAX_MASK) |
479 | { | |
480 | case ARC_SYNTAX_2OP: | |
481 | printf ("SYNTAX_2OP"); | |
482 | break; | |
483 | case ARC_SYNTAX_3OP: | |
484 | printf ("SYNTAX_3OP"); | |
485 | break; | |
486 | case ARC_SYNTAX_1OP: | |
487 | printf ("SYNTAX_1OP"); | |
488 | break; | |
489 | case ARC_SYNTAX_NOP: | |
490 | printf ("SYNTAX_NOP"); | |
491 | break; | |
492 | default: | |
493 | printf ("SYNTAX_UNK"); | |
494 | break; | |
495 | } | |
b99747ae CZ |
496 | |
497 | if (insn->flags & 0x10) | |
498 | printf ("|MODIFIER"); | |
499 | ||
500 | printf (" %s\n", insn->name); | |
501 | } | |
886a2506 NC |
502 | } |
503 | ||
504 | for (i = 0; i < NUM_EXT_CORE; i++) | |
505 | { | |
506 | struct ExtCoreRegister reg = arc_extension_map.coreRegisters[i]; | |
507 | ||
508 | if (reg.name) | |
f36e33da CZ |
509 | printf ("CORE: 0x%04x %s %s\n", reg.number, |
510 | ExtReadWrite_image (reg.rw), | |
511 | reg.name); | |
886a2506 NC |
512 | } |
513 | ||
514 | for (i = 0; i < NUM_EXT_COND; i++) | |
515 | if (arc_extension_map.condCodes[i]) | |
516 | printf ("COND: %s\n", arc_extension_map.condCodes[i]); | |
517 | } | |
b99747ae CZ |
518 | |
519 | /* For a given extension instruction generate the equivalent arc | |
520 | opcode structure. */ | |
521 | ||
522 | struct arc_opcode * | |
523 | arcExtMap_genOpcode (const extInstruction_t *einsn, | |
524 | unsigned arc_target, | |
525 | const char **errmsg) | |
526 | { | |
527 | struct arc_opcode *q, *arc_ext_opcodes = NULL; | |
528 | const unsigned char *lflags_f; | |
529 | const unsigned char *lflags_ccf; | |
530 | int count; | |
531 | ||
532 | /* Check for the class to see how many instructions we generate. */ | |
945e0f82 | 533 | switch (einsn->flags & ARC_SYNTAX_MASK) |
b99747ae CZ |
534 | { |
535 | case ARC_SYNTAX_3OP: | |
536 | count = (einsn->modsyn & ARC_OP1_MUST_BE_IMM) ? 10 : 20; | |
537 | break; | |
538 | case ARC_SYNTAX_2OP: | |
539 | count = (einsn->flags & 0x10) ? 7 : 6; | |
540 | break; | |
945e0f82 CZ |
541 | case ARC_SYNTAX_1OP: |
542 | count = 3; | |
543 | break; | |
544 | case ARC_SYNTAX_NOP: | |
545 | count = 1; | |
546 | break; | |
b99747ae CZ |
547 | default: |
548 | count = 0; | |
549 | break; | |
550 | } | |
551 | ||
552 | /* Allocate memory. */ | |
553 | arc_ext_opcodes = (struct arc_opcode *) | |
554 | xmalloc ((count + 1) * sizeof (*arc_ext_opcodes)); | |
555 | ||
556 | if (arc_ext_opcodes == NULL) | |
557 | { | |
558 | *errmsg = "Virtual memory exhausted"; | |
559 | return NULL; | |
560 | } | |
561 | ||
562 | /* Generate the patterns. */ | |
563 | q = arc_ext_opcodes; | |
564 | ||
565 | if (einsn->suffix) | |
566 | { | |
567 | lflags_f = flags_none; | |
568 | lflags_ccf = flags_none; | |
569 | } | |
570 | else | |
571 | { | |
572 | lflags_f = flags_f; | |
573 | lflags_ccf = flags_ccf; | |
574 | } | |
575 | ||
576 | if (einsn->suffix & ARC_SUFFIX_COND) | |
577 | lflags_ccf = flags_cc; | |
578 | if (einsn->suffix & ARC_SUFFIX_FLAG) | |
579 | { | |
580 | lflags_f = flags_f; | |
581 | lflags_ccf = flags_f; | |
582 | } | |
583 | if (einsn->suffix & (ARC_SUFFIX_FLAG | ARC_SUFFIX_COND)) | |
584 | lflags_ccf = flags_ccf; | |
585 | ||
586 | if (einsn->flags & ARC_SYNTAX_2OP | |
587 | && !(einsn->flags & 0x10)) | |
588 | { | |
589 | /* Regular 2OP instruction. */ | |
590 | if (einsn->suffix & ARC_SUFFIX_COND) | |
591 | *errmsg = "Suffix SUFFIX_COND ignored"; | |
592 | ||
593 | INSERT_XOP (q, einsn->name, | |
594 | INSN2OP_BC (einsn->major, einsn->minor), MINSN2OP_BC, | |
595 | arc_target, arg_32bit_rbrc, lflags_f); | |
596 | ||
597 | INSERT_XOP (q, einsn->name, | |
598 | INSN2OP_0C (einsn->major, einsn->minor), MINSN2OP_0C, | |
599 | arc_target, arg_32bit_zarc, lflags_f); | |
600 | ||
601 | INSERT_XOP (q, einsn->name, | |
602 | INSN2OP_BU (einsn->major, einsn->minor), MINSN2OP_BU, | |
603 | arc_target, arg_32bit_rbu6, lflags_f); | |
604 | ||
605 | INSERT_XOP (q, einsn->name, | |
606 | INSN2OP_0U (einsn->major, einsn->minor), MINSN2OP_0U, | |
607 | arc_target, arg_32bit_zau6, lflags_f); | |
608 | ||
609 | INSERT_XOP (q, einsn->name, | |
610 | INSN2OP_BL (einsn->major, einsn->minor), MINSN2OP_BL, | |
611 | arc_target, arg_32bit_rblimm, lflags_f); | |
612 | ||
613 | INSERT_XOP (q, einsn->name, | |
614 | INSN2OP_0L (einsn->major, einsn->minor), MINSN2OP_0L, | |
615 | arc_target, arg_32bit_zalimm, lflags_f); | |
616 | } | |
617 | else if (einsn->flags & (0x10 | ARC_SYNTAX_2OP)) | |
618 | { | |
619 | /* This is actually a 3OP pattern. The first operand is | |
620 | immplied and is set to zero. */ | |
621 | INSERT_XOP (q, einsn->name, | |
622 | INSN3OP_0BC (einsn->major, einsn->minor), MINSN3OP_0BC, | |
623 | arc_target, arg_32bit_rbrc, lflags_f); | |
624 | ||
625 | INSERT_XOP (q, einsn->name, | |
626 | INSN3OP_0BU (einsn->major, einsn->minor), MINSN3OP_0BU, | |
627 | arc_target, arg_32bit_rbu6, lflags_f); | |
628 | ||
629 | INSERT_XOP (q, einsn->name, | |
630 | INSN3OP_0BL (einsn->major, einsn->minor), MINSN3OP_0BL, | |
631 | arc_target, arg_32bit_rblimm, lflags_f); | |
632 | ||
633 | INSERT_XOP (q, einsn->name, | |
634 | INSN3OP_C0LC (einsn->major, einsn->minor), MINSN3OP_C0LC, | |
635 | arc_target, arg_32bit_limmrc, lflags_ccf); | |
636 | ||
637 | INSERT_XOP (q, einsn->name, | |
638 | INSN3OP_C0LU (einsn->major, einsn->minor), MINSN3OP_C0LU, | |
639 | arc_target, arg_32bit_limmu6, lflags_ccf); | |
640 | ||
641 | INSERT_XOP (q, einsn->name, | |
642 | INSN3OP_0LS (einsn->major, einsn->minor), MINSN3OP_0LS, | |
643 | arc_target, arg_32bit_limms12, lflags_f); | |
644 | ||
645 | INSERT_XOP (q, einsn->name, | |
646 | INSN3OP_C0LL (einsn->major, einsn->minor), MINSN3OP_C0LL, | |
647 | arc_target, arg_32bit_limmlimm, lflags_ccf); | |
648 | } | |
649 | else if (einsn->flags & ARC_SYNTAX_3OP | |
650 | && !(einsn->modsyn & ARC_OP1_MUST_BE_IMM)) | |
651 | { | |
652 | /* Regular 3OP instruction. */ | |
653 | INSERT_XOP (q, einsn->name, | |
654 | INSN3OP_ABC (einsn->major, einsn->minor), MINSN3OP_ABC, | |
655 | arc_target, arg_32bit_rarbrc, lflags_f); | |
656 | ||
657 | INSERT_XOP (q, einsn->name, | |
658 | INSN3OP_0BC (einsn->major, einsn->minor), MINSN3OP_0BC, | |
659 | arc_target, arg_32bit_zarbrc, lflags_f); | |
660 | ||
661 | INSERT_XOP (q, einsn->name, | |
662 | INSN3OP_CBBC (einsn->major, einsn->minor), MINSN3OP_CBBC, | |
663 | arc_target, arg_32bit_rbrbrc, lflags_ccf); | |
664 | ||
665 | INSERT_XOP (q, einsn->name, | |
666 | INSN3OP_ABU (einsn->major, einsn->minor), MINSN3OP_ABU, | |
667 | arc_target, arg_32bit_rarbu6, lflags_f); | |
668 | ||
669 | INSERT_XOP (q, einsn->name, | |
670 | INSN3OP_0BU (einsn->major, einsn->minor), MINSN3OP_0BU, | |
671 | arc_target, arg_32bit_zarbu6, lflags_f); | |
672 | ||
673 | INSERT_XOP (q, einsn->name, | |
674 | INSN3OP_CBBU (einsn->major, einsn->minor), MINSN3OP_CBBU, | |
675 | arc_target, arg_32bit_rbrbu6, lflags_ccf); | |
676 | ||
677 | INSERT_XOP (q, einsn->name, | |
678 | INSN3OP_BBS (einsn->major, einsn->minor), MINSN3OP_BBS, | |
679 | arc_target, arg_32bit_rbrbs12, lflags_f); | |
680 | ||
681 | INSERT_XOP (q, einsn->name, | |
682 | INSN3OP_ALC (einsn->major, einsn->minor), MINSN3OP_ALC, | |
683 | arc_target, arg_32bit_ralimmrc, lflags_f); | |
684 | ||
685 | INSERT_XOP (q, einsn->name, | |
686 | INSN3OP_ABL (einsn->major, einsn->minor), MINSN3OP_ABL, | |
687 | arc_target, arg_32bit_rarblimm, lflags_f); | |
688 | ||
689 | INSERT_XOP (q, einsn->name, | |
690 | INSN3OP_0LC (einsn->major, einsn->minor), MINSN3OP_0LC, | |
691 | arc_target, arg_32bit_zalimmrc, lflags_f); | |
692 | ||
693 | INSERT_XOP (q, einsn->name, | |
694 | INSN3OP_0BL (einsn->major, einsn->minor), MINSN3OP_0BL, | |
695 | arc_target, arg_32bit_zarblimm, lflags_f); | |
696 | ||
697 | INSERT_XOP (q, einsn->name, | |
698 | INSN3OP_C0LC (einsn->major, einsn->minor), MINSN3OP_C0LC, | |
699 | arc_target, arg_32bit_zalimmrc, lflags_ccf); | |
700 | ||
701 | INSERT_XOP (q, einsn->name, | |
702 | INSN3OP_CBBL (einsn->major, einsn->minor), MINSN3OP_CBBL, | |
703 | arc_target, arg_32bit_rbrblimm, lflags_ccf); | |
704 | ||
705 | INSERT_XOP (q, einsn->name, | |
706 | INSN3OP_ALU (einsn->major, einsn->minor), MINSN3OP_ALU, | |
707 | arc_target, arg_32bit_ralimmu6, lflags_f); | |
708 | ||
709 | INSERT_XOP (q, einsn->name, | |
710 | INSN3OP_0LU (einsn->major, einsn->minor), MINSN3OP_0LU, | |
711 | arc_target, arg_32bit_zalimmu6, lflags_f); | |
712 | ||
713 | INSERT_XOP (q, einsn->name, | |
714 | INSN3OP_C0LU (einsn->major, einsn->minor), MINSN3OP_C0LU, | |
715 | arc_target, arg_32bit_zalimmu6, lflags_ccf); | |
716 | ||
717 | INSERT_XOP (q, einsn->name, | |
718 | INSN3OP_0LS (einsn->major, einsn->minor), MINSN3OP_0LS, | |
719 | arc_target, arg_32bit_zalimms12, lflags_f); | |
720 | ||
721 | INSERT_XOP (q, einsn->name, | |
722 | INSN3OP_ALL (einsn->major, einsn->minor), MINSN3OP_ALL, | |
723 | arc_target, arg_32bit_ralimmlimm, lflags_f); | |
724 | ||
725 | INSERT_XOP (q, einsn->name, | |
726 | INSN3OP_0LL (einsn->major, einsn->minor), MINSN3OP_0LL, | |
727 | arc_target, arg_32bit_zalimmlimm, lflags_f); | |
728 | ||
729 | INSERT_XOP (q, einsn->name, | |
730 | INSN3OP_C0LL (einsn->major, einsn->minor), MINSN3OP_C0LL, | |
731 | arc_target, arg_32bit_zalimmlimm, lflags_ccf); | |
732 | } | |
733 | else if (einsn->flags & ARC_SYNTAX_3OP) | |
734 | { | |
735 | /* 3OP instruction which accepts only zero as first | |
736 | argument. */ | |
737 | INSERT_XOP (q, einsn->name, | |
738 | INSN3OP_0BC (einsn->major, einsn->minor), MINSN3OP_0BC, | |
739 | arc_target, arg_32bit_zarbrc, lflags_f); | |
740 | ||
741 | INSERT_XOP (q, einsn->name, | |
742 | INSN3OP_0BU (einsn->major, einsn->minor), MINSN3OP_0BU, | |
743 | arc_target, arg_32bit_zarbu6, lflags_f); | |
744 | ||
745 | INSERT_XOP (q, einsn->name, | |
746 | INSN3OP_0LC (einsn->major, einsn->minor), MINSN3OP_0LC, | |
747 | arc_target, arg_32bit_zalimmrc, lflags_f); | |
748 | ||
749 | INSERT_XOP (q, einsn->name, | |
750 | INSN3OP_0BL (einsn->major, einsn->minor), MINSN3OP_0BL, | |
751 | arc_target, arg_32bit_zarblimm, lflags_f); | |
752 | ||
753 | INSERT_XOP (q, einsn->name, | |
754 | INSN3OP_C0LC (einsn->major, einsn->minor), MINSN3OP_C0LC, | |
755 | arc_target, arg_32bit_zalimmrc, lflags_ccf); | |
756 | ||
757 | INSERT_XOP (q, einsn->name, | |
758 | INSN3OP_0LU (einsn->major, einsn->minor), MINSN3OP_0LU, | |
759 | arc_target, arg_32bit_zalimmu6, lflags_f); | |
760 | ||
761 | INSERT_XOP (q, einsn->name, | |
762 | INSN3OP_C0LU (einsn->major, einsn->minor), MINSN3OP_C0LU, | |
763 | arc_target, arg_32bit_zalimmu6, lflags_ccf); | |
764 | ||
765 | INSERT_XOP (q, einsn->name, | |
766 | INSN3OP_0LS (einsn->major, einsn->minor), MINSN3OP_0LS, | |
767 | arc_target, arg_32bit_zalimms12, lflags_f); | |
768 | ||
769 | INSERT_XOP (q, einsn->name, | |
770 | INSN3OP_0LL (einsn->major, einsn->minor), MINSN3OP_0LL, | |
771 | arc_target, arg_32bit_zalimmlimm, lflags_f); | |
772 | ||
773 | INSERT_XOP (q, einsn->name, | |
774 | INSN3OP_C0LL (einsn->major, einsn->minor), MINSN3OP_C0LL, | |
775 | arc_target, arg_32bit_zalimmlimm, lflags_ccf); | |
776 | } | |
945e0f82 CZ |
777 | else if (einsn->flags & ARC_SYNTAX_1OP) |
778 | { | |
779 | if (einsn->suffix & ARC_SUFFIX_COND) | |
780 | *errmsg = "Suffix SUFFIX_COND ignored"; | |
781 | ||
782 | INSERT_XOP (q, einsn->name, | |
783 | INSN2OP (einsn->major, 0x3F) | FIELDB (einsn->minor), | |
784 | MINSN2OP_0C, arc_target, arg_32bit_rc, lflags_f); | |
785 | ||
786 | INSERT_XOP (q, einsn->name, | |
787 | INSN2OP (einsn->major, 0x3F) | FIELDB (einsn->minor) | |
788 | | (0x01 << 22), MINSN2OP_0U, arc_target, arg_32bit_u6, | |
789 | lflags_f); | |
790 | ||
791 | INSERT_XOP (q, einsn->name, | |
792 | INSN2OP (einsn->major, 0x3F) | FIELDB (einsn->minor) | |
793 | | FIELDC (62), MINSN2OP_0L, arc_target, arg_32bit_limm, | |
794 | lflags_f); | |
795 | ||
796 | } | |
797 | else if (einsn->flags & ARC_SYNTAX_NOP) | |
798 | { | |
799 | if (einsn->suffix & ARC_SUFFIX_COND) | |
800 | *errmsg = "Suffix SUFFIX_COND ignored"; | |
801 | ||
802 | INSERT_XOP (q, einsn->name, | |
803 | INSN2OP (einsn->major, 0x3F) | FIELDB (einsn->minor) | |
804 | | (0x01 << 22), MINSN2OP_0L, arc_target, arg_none, lflags_f); | |
805 | } | |
b99747ae CZ |
806 | else |
807 | { | |
808 | *errmsg = "Unknown syntax"; | |
809 | return NULL; | |
810 | } | |
811 | ||
812 | /* End marker. */ | |
813 | memset (q, 0, sizeof (*arc_ext_opcodes)); | |
814 | ||
815 | return arc_ext_opcodes; | |
816 | } |