?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* configure.ac: Set TOPLEVEL_CONFIGURE_ARGUMENTS early, when
[binutils.git] / opcodes / m32c-asm.c
blob2b8400bad6c6dab5a1f5d7d20dbcb4da7739783c
1 /* Assembler interface for targets using CGEN. -*- C -*-
2 CGEN: Cpu tools GENerator
3
4 THIS FILE IS MACHINE GENERATED WITH CGEN.
5 - the resultant file is machine generated, cgen-asm.in isn't
6
7 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2005, 2007
8 Free Software Foundation, Inc.
9
10 This file is part of libopcodes.
11
12 This library is free software; you can redistribute it and/or modify
13 it under the terms of the GNU General Public License as published by
14 the Free Software Foundation; either version 3, or (at your option)
15 any later version.
16
17 It is distributed in the hope that it will be useful, but WITHOUT
18 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
19 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
20 License for more details.
21
22 You should have received a copy of the GNU General Public License
23 along with this program; if not, write to the Free Software Foundation, Inc.,
24 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
25
26
27 /* ??? Eventually more and more of this stuff can go to cpu-independent files.
28 Keep that in mind. */
29
30 #include "sysdep.h"
31 #include <stdio.h>
32 #include "ansidecl.h"
33 #include "bfd.h"
34 #include "symcat.h"
35 #include "m32c-desc.h"
36 #include "m32c-opc.h"
37 #include "opintl.h"
38 #include "xregex.h"
39 #include "libiberty.h"
40 #include "safe-ctype.h"
41
42 #undef min
43 #define min(a,b) ((a) < (b) ? (a) : (b))
44 #undef max
45 #define max(a,b) ((a) > (b) ? (a) : (b))
46
47 static const char * parse_insn_normal
48 (CGEN_CPU_DESC, const CGEN_INSN *, const char **, CGEN_FIELDS *);
49 \f
50 /* -- assembler routines inserted here. */
51
52 /* -- asm.c */
53 #include "safe-ctype.h"
54
55 #define MACH_M32C 5 /* Must match md_begin. */
56
57 static int
58 m32c_cgen_isa_register (const char **strp)
59 {
60 int u;
61 const char *s = *strp;
62 static char * m32c_register_names [] =
63 {
64 "r0", "r1", "r2", "r3", "r0l", "r0h", "r1l", "r1h",
65 "a0", "a1", "r2r0", "r3r1", "sp", "fb", "dct0", "dct1", "flg", "svf",
66 "drc0", "drc1", "dmd0", "dmd1", "intb", "svp", "vct", "isp", "dma0",
67 "dma1", "dra0", "dra1", "dsa0", "dsa1", 0
68 };
69
70 for (u = 0; m32c_register_names[u]; u++)
71 {
72 int len = strlen (m32c_register_names[u]);
73
74 if (memcmp (m32c_register_names[u], s, len) == 0
75 && (s[len] == 0 || ! ISALNUM (s[len])))
76 return 1;
77 }
78 return 0;
79 }
80
81 #define PARSE_UNSIGNED \
82 do \
83 { \
84 /* Don't successfully parse literals beginning with '['. */ \
85 if (**strp == '[') \
86 return "Invalid literal"; /* Anything -- will not be seen. */ \
87 \
88 errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, & value);\
89 if (errmsg) \
90 return errmsg; \
91 } \
92 while (0)
93
94 #define PARSE_SIGNED \
95 do \
96 { \
97 /* Don't successfully parse literals beginning with '['. */ \
98 if (**strp == '[') \
99 return "Invalid literal"; /* Anything -- will not be seen. */ \
100 \
101 errmsg = cgen_parse_signed_integer (cd, strp, opindex, & value); \
102 if (errmsg) \
103 return errmsg; \
104 } \
105 while (0)
106
107 static const char *
108 parse_unsigned6 (CGEN_CPU_DESC cd, const char **strp,
109 int opindex, unsigned long *valuep)
110 {
111 const char *errmsg = 0;
112 unsigned long value;
113
114 PARSE_UNSIGNED;
115
116 if (value > 0x3f)
117 return _("imm:6 immediate is out of range");
118
119 *valuep = value;
120 return 0;
121 }
122
123 static const char *
124 parse_unsigned8 (CGEN_CPU_DESC cd, const char **strp,
125 int opindex, unsigned long *valuep)
126 {
127 const char *errmsg = 0;
128 unsigned long value;
129 long have_zero = 0;
130
131 if (strncasecmp (*strp, "%dsp8(", 6) == 0)
132 {
133 enum cgen_parse_operand_result result_type;
134 bfd_vma value;
135 const char *errmsg;
136
137 *strp += 6;
138 errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_8,
139 & result_type, & value);
140 if (**strp != ')')
141 return _("missing `)'");
142 (*strp) ++;
143
144 if (errmsg == NULL
145 && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
146 {
147 return _("%dsp8() takes a symbolic address, not a number");
148 }
149 *valuep = value;
150 return errmsg;
151 }
152
153 if (strncmp (*strp, "0x0", 3) == 0
154 || (**strp == '0' && *(*strp + 1) != 'x'))
155 have_zero = 1;
156
157 PARSE_UNSIGNED;
158
159 if (value > 0xff)
160 return _("dsp:8 immediate is out of range");
161
162 /* If this field may require a relocation then use larger dsp16. */
163 if (! have_zero && value == 0)
164 return _("dsp:8 immediate is out of range");
165
166 *valuep = value;
167 return 0;
168 }
169
170 static const char *
171 parse_signed4 (CGEN_CPU_DESC cd, const char **strp,
172 int opindex, signed long *valuep)
173 {
174 const char *errmsg = 0;
175 signed long value;
176 long have_zero = 0;
177
178 if (strncmp (*strp, "0x0", 3) == 0
179 || (**strp == '0' && *(*strp + 1) != 'x'))
180 have_zero = 1;
181
182 PARSE_SIGNED;
183
184 if (value < -8 || value > 7)
185 return _("Immediate is out of range -8 to 7");
186
187 /* If this field may require a relocation then use larger dsp16. */
188 if (! have_zero && value == 0)
189 return _("Immediate is out of range -8 to 7");
190
191 *valuep = value;
192 return 0;
193 }
194
195 static const char *
196 parse_signed4n (CGEN_CPU_DESC cd, const char **strp,
197 int opindex, signed long *valuep)
198 {
199 const char *errmsg = 0;
200 signed long value;
201 long have_zero = 0;
202
203 if (strncmp (*strp, "0x0", 3) == 0
204 || (**strp == '0' && *(*strp + 1) != 'x'))
205 have_zero = 1;
206
207 PARSE_SIGNED;
208
209 if (value < -7 || value > 8)
210 return _("Immediate is out of range -7 to 8");
211
212 /* If this field may require a relocation then use larger dsp16. */
213 if (! have_zero && value == 0)
214 return _("Immediate is out of range -7 to 8");
215
216 *valuep = -value;
217 return 0;
218 }
219
220 static const char *
221 parse_signed8 (CGEN_CPU_DESC cd, const char **strp,
222 int opindex, signed long *valuep)
223 {
224 const char *errmsg = 0;
225 signed long value;
226
227 if (strncasecmp (*strp, "%hi8(", 5) == 0)
228 {
229 enum cgen_parse_operand_result result_type;
230 bfd_vma value;
231 const char *errmsg;
232
233 *strp += 5;
234 errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_M32C_HI8,
235 & result_type, & value);
236 if (**strp != ')')
237 return _("missing `)'");
238 (*strp) ++;
239
240 if (errmsg == NULL
241 && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
242 {
243 value >>= 16;
244 }
245 *valuep = value;
246 return errmsg;
247 }
248
249 PARSE_SIGNED;
250
251 if (value <= 255 && value > 127)
252 value -= 0x100;
253
254 if (value < -128 || value > 127)
255 return _("dsp:8 immediate is out of range");
256
257 *valuep = value;
258 return 0;
259 }
260
261 static const char *
262 parse_unsigned16 (CGEN_CPU_DESC cd, const char **strp,
263 int opindex, unsigned long *valuep)
264 {
265 const char *errmsg = 0;
266 unsigned long value;
267 long have_zero = 0;
268
269 if (strncasecmp (*strp, "%dsp16(", 7) == 0)
270 {
271 enum cgen_parse_operand_result result_type;
272 bfd_vma value;
273 const char *errmsg;
274
275 *strp += 7;
276 errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_16,
277 & result_type, & value);
278 if (**strp != ')')
279 return _("missing `)'");
280 (*strp) ++;
281
282 if (errmsg == NULL
283 && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
284 {
285 return _("%dsp16() takes a symbolic address, not a number");
286 }
287 *valuep = value;
288 return errmsg;
289 }
290
291 /* Don't successfully parse literals beginning with '['. */
292 if (**strp == '[')
293 return "Invalid literal"; /* Anything -- will not be seen. */
294
295 /* Don't successfully parse register names. */
296 if (m32c_cgen_isa_register (strp))
297 return "Invalid literal"; /* Anything -- will not be seen. */
298
299 if (strncmp (*strp, "0x0", 3) == 0
300 || (**strp == '0' && *(*strp + 1) != 'x'))
301 have_zero = 1;
302
303 errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, & value);
304 if (errmsg)
305 return errmsg;
306
307 if (value > 0xffff)
308 return _("dsp:16 immediate is out of range");
309
310 /* If this field may require a relocation then use larger dsp24. */
311 if (cd->machs == MACH_M32C && ! have_zero && value == 0
312 && (strncmp (*strp, "[a", 2) == 0
313 || **strp == ','
314 || **strp == 0))
315 return _("dsp:16 immediate is out of range");
316
317 *valuep = value;
318 return 0;
319 }
320
321 static const char *
322 parse_signed16 (CGEN_CPU_DESC cd, const char **strp,
323 int opindex, signed long *valuep)
324 {
325 const char *errmsg = 0;
326 signed long value;
327
328 if (strncasecmp (*strp, "%lo16(", 6) == 0)
329 {
330 enum cgen_parse_operand_result result_type;
331 bfd_vma value;
332 const char *errmsg;
333
334 *strp += 6;
335 errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_LO16,
336 & result_type, & value);
337 if (**strp != ')')
338 return _("missing `)'");
339 (*strp) ++;
340
341 if (errmsg == NULL
342 && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
343 {
344 value &= 0xffff;
345 }
346 *valuep = value;
347 return errmsg;
348 }
349
350 if (strncasecmp (*strp, "%hi16(", 6) == 0)
351 {
352 enum cgen_parse_operand_result result_type;
353 bfd_vma value;
354 const char *errmsg;
355
356 *strp += 6;
357 errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_HI16,
358 & result_type, & value);
359 if (**strp != ')')
360 return _("missing `)'");
361 (*strp) ++;
362
363 if (errmsg == NULL
364 && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
365 {
366 value >>= 16;
367 }
368 *valuep = value;
369 return errmsg;
370 }
371
372 PARSE_SIGNED;
373
374 if (value <= 65535 && value > 32767)
375 value -= 0x10000;
376
377 if (value < -32768 || value > 32767)
378 return _("dsp:16 immediate is out of range");
379
380 *valuep = value;
381 return 0;
382 }
383
384 static const char *
385 parse_unsigned20 (CGEN_CPU_DESC cd, const char **strp,
386 int opindex, unsigned long *valuep)
387 {
388 const char *errmsg = 0;
389 unsigned long value;
390
391 /* Don't successfully parse literals beginning with '['. */
392 if (**strp == '[')
393 return "Invalid literal"; /* Anything -- will not be seen. */
394
395 /* Don't successfully parse register names. */
396 if (m32c_cgen_isa_register (strp))
397 return "Invalid literal"; /* Anything -- will not be seen. */
398
399 errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, & value);
400 if (errmsg)
401 return errmsg;
402
403 if (value > 0xfffff)
404 return _("dsp:20 immediate is out of range");
405
406 *valuep = value;
407 return 0;
408 }
409
410 static const char *
411 parse_unsigned24 (CGEN_CPU_DESC cd, const char **strp,
412 int opindex, unsigned long *valuep)
413 {
414 const char *errmsg = 0;
415 unsigned long value;
416
417 /* Don't successfully parse literals beginning with '['. */
418 if (**strp == '[')
419 return "Invalid literal"; /* Anything -- will not be seen. */
420
421 /* Don't successfully parse register names. */
422 if (m32c_cgen_isa_register (strp))
423 return "Invalid literal"; /* Anything -- will not be seen. */
424
425 errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, & value);
426 if (errmsg)
427 return errmsg;
428
429 if (value > 0xffffff)
430 return _("dsp:24 immediate is out of range");
431
432 *valuep = value;
433 return 0;
434 }
435
436 /* This should only be used for #imm->reg. */
437 static const char *
438 parse_signed24 (CGEN_CPU_DESC cd, const char **strp,
439 int opindex, signed long *valuep)
440 {
441 const char *errmsg = 0;
442 signed long value;
443
444 PARSE_SIGNED;
445
446 if (value <= 0xffffff && value > 0x7fffff)
447 value -= 0x1000000;
448
449 if (value > 0xffffff)
450 return _("dsp:24 immediate is out of range");
451
452 *valuep = value;
453 return 0;
454 }
455
456 static const char *
457 parse_signed32 (CGEN_CPU_DESC cd, const char **strp,
458 int opindex, signed long *valuep)
459 {
460 const char *errmsg = 0;
461 signed long value;
462
463 errmsg = cgen_parse_signed_integer (cd, strp, opindex, & value);
464 if (errmsg)
465 return errmsg;
466
467 *valuep = value;
468 return 0;
469 }
470
471 static const char *
472 parse_imm1_S (CGEN_CPU_DESC cd, const char **strp,
473 int opindex, signed long *valuep)
474 {
475 const char *errmsg = 0;
476 signed long value;
477
478 errmsg = cgen_parse_signed_integer (cd, strp, opindex, & value);
479 if (errmsg)
480 return errmsg;
481
482 if (value < 1 || value > 2)
483 return _("immediate is out of range 1-2");
484
485 *valuep = value;
486 return 0;
487 }
488
489 static const char *
490 parse_imm3_S (CGEN_CPU_DESC cd, const char **strp,
491 int opindex, signed long *valuep)
492 {
493 const char *errmsg = 0;
494 signed long value;
495
496 errmsg = cgen_parse_signed_integer (cd, strp, opindex, & value);
497 if (errmsg)
498 return errmsg;
499
500 if (value < 1 || value > 8)
501 return _("immediate is out of range 1-8");
502
503 *valuep = value;
504 return 0;
505 }
506
507 static const char *
508 parse_bit3_S (CGEN_CPU_DESC cd, const char **strp,
509 int opindex, signed long *valuep)
510 {
511 const char *errmsg = 0;
512 signed long value;
513
514 errmsg = cgen_parse_signed_integer (cd, strp, opindex, & value);
515 if (errmsg)
516 return errmsg;
517
518 if (value < 0 || value > 7)
519 return _("immediate is out of range 0-7");
520
521 *valuep = value;
522 return 0;
523 }
524
525 static const char *
526 parse_lab_5_3 (CGEN_CPU_DESC cd,
527 const char **strp,
528 int opindex ATTRIBUTE_UNUSED,
529 int opinfo,
530 enum cgen_parse_operand_result *type_addr,
531 bfd_vma *valuep)
532 {
533 const char *errmsg = 0;
534 bfd_vma value;
535 enum cgen_parse_operand_result op_res;
536
537 errmsg = cgen_parse_address (cd, strp, M32C_OPERAND_LAB_5_3,
538 opinfo, & op_res, & value);
539
540 if (type_addr)
541 *type_addr = op_res;
542
543 if (op_res == CGEN_PARSE_OPERAND_ADDRESS)
544 {
545 /* This is a hack; the field cannot handle near-zero signed
546 offsets that CGEN wants to put in to indicate an "empty"
547 operand at first. */
548 *valuep = 2;
549 return 0;
550 }
551 if (errmsg)
552 return errmsg;
553
554 if (value < 2 || value > 9)
555 return _("immediate is out of range 2-9");
556
557 *valuep = value;
558 return 0;
559 }
560
561 static const char *
562 parse_Bitno16R (CGEN_CPU_DESC cd, const char **strp,
563 int opindex, unsigned long *valuep)
564 {
565 const char *errmsg = 0;
566 unsigned long value;
567
568 errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, & value);
569 if (errmsg)
570 return errmsg;
571
572 if (value > 15)
573 return _("Bit number for indexing general register is out of range 0-15");
574
575 *valuep = value;
576 return 0;
577 }
578
579 static const char *
580 parse_unsigned_bitbase (CGEN_CPU_DESC cd, const char **strp,
581 int opindex, unsigned long *valuep,
582 unsigned bits, int allow_syms)
583 {
584 const char *errmsg = 0;
585 unsigned long bit;
586 unsigned long base;
587 const char *newp = *strp;
588 unsigned long long bitbase;
589 long have_zero = 0;
590
591 errmsg = cgen_parse_unsigned_integer (cd, & newp, opindex, & bit);
592 if (errmsg)
593 return errmsg;
594
595 if (*newp != ',')
596 return "Missing base for bit,base:8";
597
598 ++newp;
599
600 if (strncmp (newp, "0x0", 3) == 0
601 || (newp[0] == '0' && newp[1] != 'x'))
602 have_zero = 1;
603
604 errmsg = cgen_parse_unsigned_integer (cd, & newp, opindex, & base);
605 if (errmsg)
606 return errmsg;
607
608 bitbase = (unsigned long long) bit + ((unsigned long long) base * 8);
609
610 if (bitbase >= (1ull << bits))
611 return _("bit,base is out of range");
612
613 /* If this field may require a relocation then use larger displacement. */
614 if (! have_zero && base == 0)
615 {
616 switch (allow_syms) {
617 case 0:
618 return _("bit,base out of range for symbol");
619 case 1:
620 break;
621 case 2:
622 if (strncmp (newp, "[sb]", 4) != 0)
623 return _("bit,base out of range for symbol");
624 break;
625 }
626 }
627
628 *valuep = bitbase;
629 *strp = newp;
630 return 0;
631 }
632
633 static const char *
634 parse_signed_bitbase (CGEN_CPU_DESC cd, const char **strp,
635 int opindex, signed long *valuep,
636 unsigned bits, int allow_syms)
637 {
638 const char *errmsg = 0;
639 unsigned long bit;
640 signed long base;
641 const char *newp = *strp;
642 long long bitbase;
643 long long limit;
644 long have_zero = 0;
645
646 errmsg = cgen_parse_unsigned_integer (cd, & newp, opindex, & bit);
647 if (errmsg)
648 return errmsg;
649
650 if (*newp != ',')
651 return "Missing base for bit,base:8";
652
653 ++newp;
654
655 if (strncmp (newp, "0x0", 3) == 0
656 || (newp[0] == '0' && newp[1] != 'x'))
657 have_zero = 1;
658
659 errmsg = cgen_parse_signed_integer (cd, & newp, opindex, & base);
660 if (errmsg)
661 return errmsg;
662
663 bitbase = (long long)bit + ((long long)base * 8);
664
665 limit = 1ll << (bits - 1);
666 if (bitbase < -limit || bitbase >= limit)
667 return _("bit,base is out of range");
668
669 /* If this field may require a relocation then use larger displacement. */
670 if (! have_zero && base == 0 && ! allow_syms)
671 return _("bit,base out of range for symbol");
672
673 *valuep = bitbase;
674 *strp = newp;
675 return 0;
676 }
677
678 static const char *
679 parse_unsigned_bitbase8 (CGEN_CPU_DESC cd, const char **strp,
680 int opindex, unsigned long *valuep)
681 {
682 return parse_unsigned_bitbase (cd, strp, opindex, valuep, 8, 0);
683 }
684
685 static const char *
686 parse_unsigned_bitbase11 (CGEN_CPU_DESC cd, const char **strp,
687 int opindex, unsigned long *valuep)
688 {
689 return parse_unsigned_bitbase (cd, strp, opindex, valuep, 11, 0);
690 }
691
692 static const char *
693 parse_unsigned_bitbase16 (CGEN_CPU_DESC cd, const char **strp,
694 int opindex, unsigned long *valuep)
695 {
696 return parse_unsigned_bitbase (cd, strp, opindex, valuep, 16, 1);
697 }
698
699 static const char *
700 parse_unsigned_bitbase19 (CGEN_CPU_DESC cd, const char **strp,
701 int opindex, unsigned long *valuep)
702 {
703 return parse_unsigned_bitbase (cd, strp, opindex, valuep, 19, 2);
704 }
705
706 static const char *
707 parse_unsigned_bitbase27 (CGEN_CPU_DESC cd, const char **strp,
708 int opindex, unsigned long *valuep)
709 {
710 return parse_unsigned_bitbase (cd, strp, opindex, valuep, 27, 1);
711 }
712
713 static const char *
714 parse_signed_bitbase8 (CGEN_CPU_DESC cd, const char **strp,
715 int opindex, signed long *valuep)
716 {
717 return parse_signed_bitbase (cd, strp, opindex, valuep, 8, 1);
718 }
719
720 static const char *
721 parse_signed_bitbase11 (CGEN_CPU_DESC cd, const char **strp,
722 int opindex, signed long *valuep)
723 {
724 return parse_signed_bitbase (cd, strp, opindex, valuep, 11, 0);
725 }
726
727 static const char *
728 parse_signed_bitbase19 (CGEN_CPU_DESC cd, const char **strp,
729 int opindex, signed long *valuep)
730 {
731 return parse_signed_bitbase (cd, strp, opindex, valuep, 19, 1);
732 }
733
734 /* Parse the suffix as :<char> or as nothing followed by a whitespace. */
735
736 static const char *
737 parse_suffix (const char **strp, char suffix)
738 {
739 const char *newp = *strp;
740
741 if (**strp == ':' && TOLOWER (*(*strp + 1)) == suffix)
742 newp = *strp + 2;
743
744 if (ISSPACE (*newp))
745 {
746 *strp = newp;
747 return 0;
748 }
749
750 return "Invalid suffix"; /* Anything -- will not be seen. */
751 }
752
753 static const char *
754 parse_S (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, const char **strp,
755 int opindex ATTRIBUTE_UNUSED, signed long *valuep ATTRIBUTE_UNUSED)
756 {
757 return parse_suffix (strp, 's');
758 }
759
760 static const char *
761 parse_G (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, const char **strp,
762 int opindex ATTRIBUTE_UNUSED, signed long *valuep ATTRIBUTE_UNUSED)
763 {
764 return parse_suffix (strp, 'g');
765 }
766
767 static const char *
768 parse_Q (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, const char **strp,
769 int opindex ATTRIBUTE_UNUSED, signed long *valuep ATTRIBUTE_UNUSED)
770 {
771 return parse_suffix (strp, 'q');
772 }
773
774 static const char *
775 parse_Z (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, const char **strp,
776 int opindex ATTRIBUTE_UNUSED, signed long *valuep ATTRIBUTE_UNUSED)
777 {
778 return parse_suffix (strp, 'z');
779 }
780
781 /* Parse an empty suffix. Fail if the next char is ':'. */
782
783 static const char *
784 parse_X (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, const char **strp,
785 int opindex ATTRIBUTE_UNUSED, signed long *valuep ATTRIBUTE_UNUSED)
786 {
787 if (**strp == ':')
788 return "Unexpected suffix";
789 return 0;
790 }
791
792 static const char *
793 parse_r0l_r0h (CGEN_CPU_DESC cd, const char **strp,
794 int opindex ATTRIBUTE_UNUSED, signed long *valuep)
795 {
796 const char *errmsg;
797 signed long value;
798 signed long junk;
799 const char *newp = *strp;
800
801 /* Parse r0[hl]. */
802 errmsg = cgen_parse_keyword (cd, & newp, & m32c_cgen_opval_h_r0l_r0h, & value);
803 if (errmsg)
804 return errmsg;
805
806 if (*newp != ',')
807 return _("not a valid r0l/r0h pair");
808 ++newp;
809
810 /* Parse the second register in the pair. */
811 if (value == 0) /* r0l */
812 errmsg = cgen_parse_keyword (cd, & newp, & m32c_cgen_opval_h_r0h, & junk);
813 else
814 errmsg = cgen_parse_keyword (cd, & newp, & m32c_cgen_opval_h_r0l, & junk);
815 if (errmsg)
816 return errmsg;
817
818 *strp = newp;
819 *valuep = ! value;
820 return 0;
821 }
822
823 /* Accept .b or .w in any case. */
824
825 static const char *
826 parse_size (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, const char **strp,
827 int opindex ATTRIBUTE_UNUSED, signed long *valuep ATTRIBUTE_UNUSED)
828 {
829 if (**strp == '.'
830 && (*(*strp + 1) == 'b' || *(*strp + 1) == 'B'
831 || *(*strp + 1) == 'w' || *(*strp + 1) == 'W'))
832 {
833 *strp += 2;
834 return NULL;
835 }
836
837 return _("Invalid size specifier");
838 }
839
840 /* Special check to ensure that instruction exists for given machine. */
841
842 int
843 m32c_cgen_insn_supported (CGEN_CPU_DESC cd,
844 const CGEN_INSN *insn)
845 {
846 int machs = CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_MACH);
847 CGEN_BITSET isas = CGEN_INSN_BITSET_ATTR_VALUE (insn, CGEN_INSN_ISA);
848
849 /* If attributes are absent, assume no restriction. */
850 if (machs == 0)
851 machs = ~0;
852
853 return ((machs & cd->machs)
854 && cgen_bitset_intersect_p (& isas, cd->isas));
855 }
856
857 /* Parse a set of registers, R0,R1,A0,A1,SB,FB. */
858
859 static const char *
860 parse_regset (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
861 const char **strp,
862 int opindex ATTRIBUTE_UNUSED,
863 unsigned long *valuep,
864 int push)
865 {
866 const char *errmsg = 0;
867 int regno = 0;
868
869 *valuep = 0;
870 while (**strp && **strp != ')')
871 {
872 if (**strp == 'r' || **strp == 'R')
873 {
874 ++*strp;
875 regno = **strp - '0';
876 if (regno > 4)
877 errmsg = _("Register number is not valid");
878 }
879 else if (**strp == 'a' || **strp == 'A')
880 {
881 ++*strp;
882 regno = **strp - '0';
883 if (regno > 2)
884 errmsg = _("Register number is not valid");
885 regno = **strp - '0' + 4;
886 }
887
888 else if (strncasecmp (*strp, "sb", 2) == 0 || strncasecmp (*strp, "SB", 2) == 0)
889 {
890 regno = 6;
891 ++*strp;
892 }
893
894 else if (strncasecmp (*strp, "fb", 2) == 0 || strncasecmp (*strp, "FB", 2) == 0)
895 {
896 regno = 7;
897 ++*strp;
898 }
899
900 if (push) /* Mask is reversed for push. */
901 *valuep |= 0x80 >> regno;
902 else
903 *valuep |= 1 << regno;
904
905 ++*strp;
906 if (**strp == ',')
907 {
908 if (*(*strp + 1) == ')')
909 break;
910 ++*strp;
911 }
912 }
913
914 if (!*strp)
915 errmsg = _("Register list is not valid");
916
917 return errmsg;
918 }
919
920 #define POP 0
921 #define PUSH 1
922
923 static const char *
924 parse_pop_regset (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
925 const char **strp,
926 int opindex ATTRIBUTE_UNUSED,
927 unsigned long *valuep)
928 {
929 return parse_regset (cd, strp, opindex, valuep, POP);
930 }
931
932 static const char *
933 parse_push_regset (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
934 const char **strp,
935 int opindex ATTRIBUTE_UNUSED,
936 unsigned long *valuep)
937 {
938 return parse_regset (cd, strp, opindex, valuep, PUSH);
939 }
940
941 /* -- dis.c */
942
943 const char * m32c_cgen_parse_operand
944 (CGEN_CPU_DESC, int, const char **, CGEN_FIELDS *);
945
946 /* Main entry point for operand parsing.
947
948 This function is basically just a big switch statement. Earlier versions
949 used tables to look up the function to use, but
950 - if the table contains both assembler and disassembler functions then
951 the disassembler contains much of the assembler and vice-versa,
952 - there's a lot of inlining possibilities as things grow,
953 - using a switch statement avoids the function call overhead.
954
955 This function could be moved into `parse_insn_normal', but keeping it
956 separate makes clear the interface between `parse_insn_normal' and each of
957 the handlers. */
958
959 const char *
960 m32c_cgen_parse_operand (CGEN_CPU_DESC cd,
961 int opindex,
962 const char ** strp,
963 CGEN_FIELDS * fields)
964 {
965 const char * errmsg = NULL;
966 /* Used by scalar operands that still need to be parsed. */
967 long junk ATTRIBUTE_UNUSED;
968
969 switch (opindex)
970 {
971 case M32C_OPERAND_A0 :
972 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_a0, & junk);
973 break;
974 case M32C_OPERAND_A1 :
975 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_a1, & junk);
976 break;
977 case M32C_OPERAND_AN16_PUSH_S :
978 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_HI, & fields->f_4_1);
979 break;
980 case M32C_OPERAND_BIT16AN :
981 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_dst16_an);
982 break;
983 case M32C_OPERAND_BIT16RN :
984 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_HI, & fields->f_dst16_rn);
985 break;
986 case M32C_OPERAND_BIT3_S :
987 errmsg = parse_bit3_S (cd, strp, M32C_OPERAND_BIT3_S, (long *) (& fields->f_imm3_S));
988 break;
989 case M32C_OPERAND_BIT32ANPREFIXED :
990 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_dst32_an_prefixed);
991 break;
992 case M32C_OPERAND_BIT32ANUNPREFIXED :
993 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_dst32_an_unprefixed);
994 break;
995 case M32C_OPERAND_BIT32RNPREFIXED :
996 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_QI, & fields->f_dst32_rn_prefixed_QI);
997 break;
998 case M32C_OPERAND_BIT32RNUNPREFIXED :
999 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_QI, & fields->f_dst32_rn_unprefixed_QI);
1000 break;
1001 case M32C_OPERAND_BITBASE16_16_S8 :
1002 errmsg = parse_signed_bitbase8 (cd, strp, M32C_OPERAND_BITBASE16_16_S8, (long *) (& fields->f_dsp_16_s8));
1003 break;
1004 case M32C_OPERAND_BITBASE16_16_U16 :
1005 errmsg = parse_unsigned_bitbase16 (cd, strp, M32C_OPERAND_BITBASE16_16_U16, (unsigned long *) (& fields->f_dsp_16_u16));
1006 break;
1007 case M32C_OPERAND_BITBASE16_16_U8 :
1008 errmsg = parse_unsigned_bitbase8 (cd, strp, M32C_OPERAND_BITBASE16_16_U8, (unsigned long *) (& fields->f_dsp_16_u8));
1009 break;
1010 case M32C_OPERAND_BITBASE16_8_U11_S :
1011 errmsg = parse_unsigned_bitbase11 (cd, strp, M32C_OPERAND_BITBASE16_8_U11_S, (unsigned long *) (& fields->f_bitbase16_u11_S));
1012 break;
1013 case M32C_OPERAND_BITBASE32_16_S11_UNPREFIXED :
1014 errmsg = parse_signed_bitbase11 (cd, strp, M32C_OPERAND_BITBASE32_16_S11_UNPREFIXED, (long *) (& fields->f_bitbase32_16_s11_unprefixed));
1015 break;
1016 case M32C_OPERAND_BITBASE32_16_S19_UNPREFIXED :
1017 errmsg = parse_signed_bitbase19 (cd, strp, M32C_OPERAND_BITBASE32_16_S19_UNPREFIXED, (long *) (& fields->f_bitbase32_16_s19_unprefixed));
1018 break;
1019 case M32C_OPERAND_BITBASE32_16_U11_UNPREFIXED :
1020 errmsg = parse_unsigned_bitbase11 (cd, strp, M32C_OPERAND_BITBASE32_16_U11_UNPREFIXED, (unsigned long *) (& fields->f_bitbase32_16_u11_unprefixed));
1021 break;
1022 case M32C_OPERAND_BITBASE32_16_U19_UNPREFIXED :
1023 errmsg = parse_unsigned_bitbase19 (cd, strp, M32C_OPERAND_BITBASE32_16_U19_UNPREFIXED, (unsigned long *) (& fields->f_bitbase32_16_u19_unprefixed));
1024 break;
1025 case M32C_OPERAND_BITBASE32_16_U27_UNPREFIXED :
1026 errmsg = parse_unsigned_bitbase27 (cd, strp, M32C_OPERAND_BITBASE32_16_U27_UNPREFIXED, (unsigned long *) (& fields->f_bitbase32_16_u27_unprefixed));
1027 break;
1028 case M32C_OPERAND_BITBASE32_24_S11_PREFIXED :
1029 errmsg = parse_signed_bitbase11 (cd, strp, M32C_OPERAND_BITBASE32_24_S11_PREFIXED, (long *) (& fields->f_bitbase32_24_s11_prefixed));
1030 break;
1031 case M32C_OPERAND_BITBASE32_24_S19_PREFIXED :
1032 errmsg = parse_signed_bitbase19 (cd, strp, M32C_OPERAND_BITBASE32_24_S19_PREFIXED, (long *) (& fields->f_bitbase32_24_s19_prefixed));
1033 break;
1034 case M32C_OPERAND_BITBASE32_24_U11_PREFIXED :
1035 errmsg = parse_unsigned_bitbase11 (cd, strp, M32C_OPERAND_BITBASE32_24_U11_PREFIXED, (unsigned long *) (& fields->f_bitbase32_24_u11_prefixed));
1036 break;
1037 case M32C_OPERAND_BITBASE32_24_U19_PREFIXED :
1038 errmsg = parse_unsigned_bitbase19 (cd, strp, M32C_OPERAND_BITBASE32_24_U19_PREFIXED, (unsigned long *) (& fields->f_bitbase32_24_u19_prefixed));
1039 break;
1040 case M32C_OPERAND_BITBASE32_24_U27_PREFIXED :
1041 errmsg = parse_unsigned_bitbase27 (cd, strp, M32C_OPERAND_BITBASE32_24_U27_PREFIXED, (unsigned long *) (& fields->f_bitbase32_24_u27_prefixed));
1042 break;
1043 case M32C_OPERAND_BITNO16R :
1044 errmsg = parse_Bitno16R (cd, strp, M32C_OPERAND_BITNO16R, (unsigned long *) (& fields->f_dsp_16_u8));
1045 break;
1046 case M32C_OPERAND_BITNO32PREFIXED :
1047 errmsg = cgen_parse_unsigned_integer (cd, strp, M32C_OPERAND_BITNO32PREFIXED, (unsigned long *) (& fields->f_bitno32_prefixed));
1048 break;
1049 case M32C_OPERAND_BITNO32UNPREFIXED :
1050 errmsg = cgen_parse_unsigned_integer (cd, strp, M32C_OPERAND_BITNO32UNPREFIXED, (unsigned long *) (& fields->f_bitno32_unprefixed));
1051 break;
1052 case M32C_OPERAND_DSP_10_U6 :
1053 errmsg = parse_unsigned6 (cd, strp, M32C_OPERAND_DSP_10_U6, (unsigned long *) (& fields->f_dsp_10_u6));
1054 break;
1055 case M32C_OPERAND_DSP_16_S16 :
1056 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_DSP_16_S16, (long *) (& fields->f_dsp_16_s16));
1057 break;
1058 case M32C_OPERAND_DSP_16_S8 :
1059 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_DSP_16_S8, (long *) (& fields->f_dsp_16_s8));
1060 break;
1061 case M32C_OPERAND_DSP_16_U16 :
1062 errmsg = parse_unsigned16 (cd, strp, M32C_OPERAND_DSP_16_U16, (unsigned long *) (& fields->f_dsp_16_u16));
1063 break;
1064 case M32C_OPERAND_DSP_16_U20 :
1065 errmsg = parse_unsigned20 (cd, strp, M32C_OPERAND_DSP_16_U20, (unsigned long *) (& fields->f_dsp_16_u24));
1066 break;
1067 case M32C_OPERAND_DSP_16_U24 :
1068 errmsg = parse_unsigned24 (cd, strp, M32C_OPERAND_DSP_16_U24, (unsigned long *) (& fields->f_dsp_16_u24));
1069 break;
1070 case M32C_OPERAND_DSP_16_U8 :
1071 errmsg = parse_unsigned8 (cd, strp, M32C_OPERAND_DSP_16_U8, (unsigned long *) (& fields->f_dsp_16_u8));
1072 break;
1073 case M32C_OPERAND_DSP_24_S16 :
1074 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_DSP_24_S16, (long *) (& fields->f_dsp_24_s16));
1075 break;
1076 case M32C_OPERAND_DSP_24_S8 :
1077 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_DSP_24_S8, (long *) (& fields->f_dsp_24_s8));
1078 break;
1079 case M32C_OPERAND_DSP_24_U16 :
1080 errmsg = parse_unsigned16 (cd, strp, M32C_OPERAND_DSP_24_U16, (unsigned long *) (& fields->f_dsp_24_u16));
1081 break;
1082 case M32C_OPERAND_DSP_24_U20 :
1083 errmsg = parse_unsigned20 (cd, strp, M32C_OPERAND_DSP_24_U20, (unsigned long *) (& fields->f_dsp_24_u24));
1084 break;
1085 case M32C_OPERAND_DSP_24_U24 :
1086 errmsg = parse_unsigned24 (cd, strp, M32C_OPERAND_DSP_24_U24, (unsigned long *) (& fields->f_dsp_24_u24));
1087 break;
1088 case M32C_OPERAND_DSP_24_U8 :
1089 errmsg = parse_unsigned8 (cd, strp, M32C_OPERAND_DSP_24_U8, (unsigned long *) (& fields->f_dsp_24_u8));
1090 break;
1091 case M32C_OPERAND_DSP_32_S16 :
1092 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_DSP_32_S16, (long *) (& fields->f_dsp_32_s16));
1093 break;
1094 case M32C_OPERAND_DSP_32_S8 :
1095 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_DSP_32_S8, (long *) (& fields->f_dsp_32_s8));
1096 break;
1097 case M32C_OPERAND_DSP_32_U16 :
1098 errmsg = parse_unsigned16 (cd, strp, M32C_OPERAND_DSP_32_U16, (unsigned long *) (& fields->f_dsp_32_u16));
1099 break;
1100 case M32C_OPERAND_DSP_32_U20 :
1101 errmsg = parse_unsigned20 (cd, strp, M32C_OPERAND_DSP_32_U20, (unsigned long *) (& fields->f_dsp_32_u24));
1102 break;
1103 case M32C_OPERAND_DSP_32_U24 :
1104 errmsg = parse_unsigned24 (cd, strp, M32C_OPERAND_DSP_32_U24, (unsigned long *) (& fields->f_dsp_32_u24));
1105 break;
1106 case M32C_OPERAND_DSP_32_U8 :
1107 errmsg = parse_unsigned8 (cd, strp, M32C_OPERAND_DSP_32_U8, (unsigned long *) (& fields->f_dsp_32_u8));
1108 break;
1109 case M32C_OPERAND_DSP_40_S16 :
1110 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_DSP_40_S16, (long *) (& fields->f_dsp_40_s16));
1111 break;
1112 case M32C_OPERAND_DSP_40_S8 :
1113 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_DSP_40_S8, (long *) (& fields->f_dsp_40_s8));
1114 break;
1115 case M32C_OPERAND_DSP_40_U16 :
1116 errmsg = parse_unsigned16 (cd, strp, M32C_OPERAND_DSP_40_U16, (unsigned long *) (& fields->f_dsp_40_u16));
1117 break;
1118 case M32C_OPERAND_DSP_40_U20 :
1119 errmsg = parse_unsigned20 (cd, strp, M32C_OPERAND_DSP_40_U20, (unsigned long *) (& fields->f_dsp_40_u20));
1120 break;
1121 case M32C_OPERAND_DSP_40_U24 :
1122 errmsg = parse_unsigned24 (cd, strp, M32C_OPERAND_DSP_40_U24, (unsigned long *) (& fields->f_dsp_40_u24));
1123 break;
1124 case M32C_OPERAND_DSP_40_U8 :
1125 errmsg = parse_unsigned8 (cd, strp, M32C_OPERAND_DSP_40_U8, (unsigned long *) (& fields->f_dsp_40_u8));
1126 break;
1127 case M32C_OPERAND_DSP_48_S16 :
1128 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_DSP_48_S16, (long *) (& fields->f_dsp_48_s16));
1129 break;
1130 case M32C_OPERAND_DSP_48_S8 :
1131 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_DSP_48_S8, (long *) (& fields->f_dsp_48_s8));
1132 break;
1133 case M32C_OPERAND_DSP_48_U16 :
1134 errmsg = parse_unsigned16 (cd, strp, M32C_OPERAND_DSP_48_U16, (unsigned long *) (& fields->f_dsp_48_u16));
1135 break;
1136 case M32C_OPERAND_DSP_48_U20 :
1137 errmsg = parse_unsigned24 (cd, strp, M32C_OPERAND_DSP_48_U20, (unsigned long *) (& fields->f_dsp_48_u20));
1138 break;
1139 case M32C_OPERAND_DSP_48_U24 :
1140 errmsg = parse_unsigned24 (cd, strp, M32C_OPERAND_DSP_48_U24, (unsigned long *) (& fields->f_dsp_48_u24));
1141 break;
1142 case M32C_OPERAND_DSP_48_U8 :
1143 errmsg = parse_unsigned8 (cd, strp, M32C_OPERAND_DSP_48_U8, (unsigned long *) (& fields->f_dsp_48_u8));
1144 break;
1145 case M32C_OPERAND_DSP_8_S24 :
1146 errmsg = parse_signed24 (cd, strp, M32C_OPERAND_DSP_8_S24, (long *) (& fields->f_dsp_8_s24));
1147 break;
1148 case M32C_OPERAND_DSP_8_S8 :
1149 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_DSP_8_S8, (long *) (& fields->f_dsp_8_s8));
1150 break;
1151 case M32C_OPERAND_DSP_8_U16 :
1152 errmsg = parse_unsigned16 (cd, strp, M32C_OPERAND_DSP_8_U16, (unsigned long *) (& fields->f_dsp_8_u16));
1153 break;
1154 case M32C_OPERAND_DSP_8_U24 :
1155 errmsg = parse_unsigned24 (cd, strp, M32C_OPERAND_DSP_8_U24, (unsigned long *) (& fields->f_dsp_8_u24));
1156 break;
1157 case M32C_OPERAND_DSP_8_U6 :
1158 errmsg = parse_unsigned6 (cd, strp, M32C_OPERAND_DSP_8_U6, (unsigned long *) (& fields->f_dsp_8_u6));
1159 break;
1160 case M32C_OPERAND_DSP_8_U8 :
1161 errmsg = parse_unsigned8 (cd, strp, M32C_OPERAND_DSP_8_U8, (unsigned long *) (& fields->f_dsp_8_u8));
1162 break;
1163 case M32C_OPERAND_DST16AN :
1164 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_dst16_an);
1165 break;
1166 case M32C_OPERAND_DST16AN_S :
1167 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_HI, & fields->f_dst16_an_s);
1168 break;
1169 case M32C_OPERAND_DST16ANHI :
1170 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_HI, & fields->f_dst16_an);
1171 break;
1172 case M32C_OPERAND_DST16ANQI :
1173 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_QI, & fields->f_dst16_an);
1174 break;
1175 case M32C_OPERAND_DST16ANQI_S :
1176 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_QI, & fields->f_dst16_rn_QI_s);
1177 break;
1178 case M32C_OPERAND_DST16ANSI :
1179 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_SI, & fields->f_dst16_an);
1180 break;
1181 case M32C_OPERAND_DST16RNEXTQI :
1182 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_ext_QI, & fields->f_dst16_rn_ext);
1183 break;
1184 case M32C_OPERAND_DST16RNHI :
1185 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_HI, & fields->f_dst16_rn);
1186 break;
1187 case M32C_OPERAND_DST16RNQI :
1188 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_QI, & fields->f_dst16_rn);
1189 break;
1190 case M32C_OPERAND_DST16RNQI_S :
1191 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r0l_r0h, & fields->f_dst16_rn_QI_s);
1192 break;
1193 case M32C_OPERAND_DST16RNSI :
1194 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_SI, & fields->f_dst16_rn);
1195 break;
1196 case M32C_OPERAND_DST32ANEXTUNPREFIXED :
1197 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_dst32_an_unprefixed);
1198 break;
1199 case M32C_OPERAND_DST32ANPREFIXED :
1200 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_dst32_an_prefixed);
1201 break;
1202 case M32C_OPERAND_DST32ANPREFIXEDHI :
1203 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_HI, & fields->f_dst32_an_prefixed);
1204 break;
1205 case M32C_OPERAND_DST32ANPREFIXEDQI :
1206 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_QI, & fields->f_dst32_an_prefixed);
1207 break;
1208 case M32C_OPERAND_DST32ANPREFIXEDSI :
1209 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_dst32_an_prefixed);
1210 break;
1211 case M32C_OPERAND_DST32ANUNPREFIXED :
1212 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_dst32_an_unprefixed);
1213 break;
1214 case M32C_OPERAND_DST32ANUNPREFIXEDHI :
1215 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_HI, & fields->f_dst32_an_unprefixed);
1216 break;
1217 case M32C_OPERAND_DST32ANUNPREFIXEDQI :
1218 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_QI, & fields->f_dst32_an_unprefixed);
1219 break;
1220 case M32C_OPERAND_DST32ANUNPREFIXEDSI :
1221 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_dst32_an_unprefixed);
1222 break;
1223 case M32C_OPERAND_DST32R0HI_S :
1224 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r0, & junk);
1225 break;
1226 case M32C_OPERAND_DST32R0QI_S :
1227 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r0l, & junk);
1228 break;
1229 case M32C_OPERAND_DST32RNEXTUNPREFIXEDHI :
1230 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_ext_HI, & fields->f_dst32_rn_ext_unprefixed);
1231 break;
1232 case M32C_OPERAND_DST32RNEXTUNPREFIXEDQI :
1233 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_ext_QI, & fields->f_dst32_rn_ext_unprefixed);
1234 break;
1235 case M32C_OPERAND_DST32RNPREFIXEDHI :
1236 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_HI, & fields->f_dst32_rn_prefixed_HI);
1237 break;
1238 case M32C_OPERAND_DST32RNPREFIXEDQI :
1239 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_QI, & fields->f_dst32_rn_prefixed_QI);
1240 break;
1241 case M32C_OPERAND_DST32RNPREFIXEDSI :
1242 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_SI, & fields->f_dst32_rn_prefixed_SI);
1243 break;
1244 case M32C_OPERAND_DST32RNUNPREFIXEDHI :
1245 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_HI, & fields->f_dst32_rn_unprefixed_HI);
1246 break;
1247 case M32C_OPERAND_DST32RNUNPREFIXEDQI :
1248 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_QI, & fields->f_dst32_rn_unprefixed_QI);
1249 break;
1250 case M32C_OPERAND_DST32RNUNPREFIXEDSI :
1251 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_SI, & fields->f_dst32_rn_unprefixed_SI);
1252 break;
1253 case M32C_OPERAND_G :
1254 errmsg = parse_G (cd, strp, M32C_OPERAND_G, (long *) (& junk));
1255 break;
1256 case M32C_OPERAND_IMM_12_S4 :
1257 errmsg = parse_signed4 (cd, strp, M32C_OPERAND_IMM_12_S4, (long *) (& fields->f_imm_12_s4));
1258 break;
1259 case M32C_OPERAND_IMM_12_S4N :
1260 errmsg = parse_signed4n (cd, strp, M32C_OPERAND_IMM_12_S4N, (long *) (& fields->f_imm_12_s4));
1261 break;
1262 case M32C_OPERAND_IMM_13_U3 :
1263 errmsg = parse_signed4 (cd, strp, M32C_OPERAND_IMM_13_U3, (long *) (& fields->f_imm_13_u3));
1264 break;
1265 case M32C_OPERAND_IMM_16_HI :
1266 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_IMM_16_HI, (long *) (& fields->f_dsp_16_s16));
1267 break;
1268 case M32C_OPERAND_IMM_16_QI :
1269 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_IMM_16_QI, (long *) (& fields->f_dsp_16_s8));
1270 break;
1271 case M32C_OPERAND_IMM_16_SI :
1272 errmsg = parse_signed32 (cd, strp, M32C_OPERAND_IMM_16_SI, (long *) (& fields->f_dsp_16_s32));
1273 break;
1274 case M32C_OPERAND_IMM_20_S4 :
1275 errmsg = parse_signed4 (cd, strp, M32C_OPERAND_IMM_20_S4, (long *) (& fields->f_imm_20_s4));
1276 break;
1277 case M32C_OPERAND_IMM_24_HI :
1278 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_IMM_24_HI, (long *) (& fields->f_dsp_24_s16));
1279 break;
1280 case M32C_OPERAND_IMM_24_QI :
1281 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_IMM_24_QI, (long *) (& fields->f_dsp_24_s8));
1282 break;
1283 case M32C_OPERAND_IMM_24_SI :
1284 errmsg = parse_signed32 (cd, strp, M32C_OPERAND_IMM_24_SI, (long *) (& fields->f_dsp_24_s32));
1285 break;
1286 case M32C_OPERAND_IMM_32_HI :
1287 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_IMM_32_HI, (long *) (& fields->f_dsp_32_s16));
1288 break;
1289 case M32C_OPERAND_IMM_32_QI :
1290 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_IMM_32_QI, (long *) (& fields->f_dsp_32_s8));
1291 break;
1292 case M32C_OPERAND_IMM_32_SI :
1293 errmsg = parse_signed32 (cd, strp, M32C_OPERAND_IMM_32_SI, (long *) (& fields->f_dsp_32_s32));
1294 break;
1295 case M32C_OPERAND_IMM_40_HI :
1296 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_IMM_40_HI, (long *) (& fields->f_dsp_40_s16));
1297 break;
1298 case M32C_OPERAND_IMM_40_QI :
1299 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_IMM_40_QI, (long *) (& fields->f_dsp_40_s8));
1300 break;
1301 case M32C_OPERAND_IMM_40_SI :
1302 errmsg = parse_signed32 (cd, strp, M32C_OPERAND_IMM_40_SI, (long *) (& fields->f_dsp_40_s32));
1303 break;
1304 case M32C_OPERAND_IMM_48_HI :
1305 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_IMM_48_HI, (long *) (& fields->f_dsp_48_s16));
1306 break;
1307 case M32C_OPERAND_IMM_48_QI :
1308 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_IMM_48_QI, (long *) (& fields->f_dsp_48_s8));
1309 break;
1310 case M32C_OPERAND_IMM_48_SI :
1311 errmsg = parse_signed32 (cd, strp, M32C_OPERAND_IMM_48_SI, (long *) (& fields->f_dsp_48_s32));
1312 break;
1313 case M32C_OPERAND_IMM_56_HI :
1314 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_IMM_56_HI, (long *) (& fields->f_dsp_56_s16));
1315 break;
1316 case M32C_OPERAND_IMM_56_QI :
1317 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_IMM_56_QI, (long *) (& fields->f_dsp_56_s8));
1318 break;
1319 case M32C_OPERAND_IMM_64_HI :
1320 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_IMM_64_HI, (long *) (& fields->f_dsp_64_s16));
1321 break;
1322 case M32C_OPERAND_IMM_8_HI :
1323 errmsg = parse_signed16 (cd, strp, M32C_OPERAND_IMM_8_HI, (long *) (& fields->f_dsp_8_s16));
1324 break;
1325 case M32C_OPERAND_IMM_8_QI :
1326 errmsg = parse_signed8 (cd, strp, M32C_OPERAND_IMM_8_QI, (long *) (& fields->f_dsp_8_s8));
1327 break;
1328 case M32C_OPERAND_IMM_8_S4 :
1329 errmsg = parse_signed4 (cd, strp, M32C_OPERAND_IMM_8_S4, (long *) (& fields->f_imm_8_s4));
1330 break;
1331 case M32C_OPERAND_IMM_8_S4N :
1332 errmsg = parse_signed4n (cd, strp, M32C_OPERAND_IMM_8_S4N, (long *) (& fields->f_imm_8_s4));
1333 break;
1334 case M32C_OPERAND_IMM_SH_12_S4 :
1335 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_shimm, & fields->f_imm_12_s4);
1336 break;
1337 case M32C_OPERAND_IMM_SH_20_S4 :
1338 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_shimm, & fields->f_imm_20_s4);
1339 break;
1340 case M32C_OPERAND_IMM_SH_8_S4 :
1341 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_shimm, & fields->f_imm_8_s4);
1342 break;
1343 case M32C_OPERAND_IMM1_S :
1344 errmsg = parse_imm1_S (cd, strp, M32C_OPERAND_IMM1_S, (long *) (& fields->f_imm1_S));
1345 break;
1346 case M32C_OPERAND_IMM3_S :
1347 errmsg = parse_imm3_S (cd, strp, M32C_OPERAND_IMM3_S, (long *) (& fields->f_imm3_S));
1348 break;
1349 case M32C_OPERAND_LAB_16_8 :
1350 {
1351 bfd_vma value = 0;
1352 errmsg = cgen_parse_address (cd, strp, M32C_OPERAND_LAB_16_8, 0, NULL, & value);
1353 fields->f_lab_16_8 = value;
1354 }
1355 break;
1356 case M32C_OPERAND_LAB_24_8 :
1357 {
1358 bfd_vma value = 0;
1359 errmsg = cgen_parse_address (cd, strp, M32C_OPERAND_LAB_24_8, 0, NULL, & value);
1360 fields->f_lab_24_8 = value;
1361 }
1362 break;
1363 case M32C_OPERAND_LAB_32_8 :
1364 {
1365 bfd_vma value = 0;
1366 errmsg = cgen_parse_address (cd, strp, M32C_OPERAND_LAB_32_8, 0, NULL, & value);
1367 fields->f_lab_32_8 = value;
1368 }
1369 break;
1370 case M32C_OPERAND_LAB_40_8 :
1371 {
1372 bfd_vma value = 0;
1373 errmsg = cgen_parse_address (cd, strp, M32C_OPERAND_LAB_40_8, 0, NULL, & value);
1374 fields->f_lab_40_8 = value;
1375 }
1376 break;
1377 case M32C_OPERAND_LAB_5_3 :
1378 {
1379 bfd_vma value = 0;
1380 errmsg = parse_lab_5_3 (cd, strp, M32C_OPERAND_LAB_5_3, 0, NULL, & value);
1381 fields->f_lab_5_3 = value;
1382 }
1383 break;
1384 case M32C_OPERAND_LAB_8_16 :
1385 {
1386 bfd_vma value = 0;
1387 errmsg = cgen_parse_address (cd, strp, M32C_OPERAND_LAB_8_16, 0, NULL, & value);
1388 fields->f_lab_8_16 = value;
1389 }
1390 break;
1391 case M32C_OPERAND_LAB_8_24 :
1392 {
1393 bfd_vma value = 0;
1394 errmsg = cgen_parse_address (cd, strp, M32C_OPERAND_LAB_8_24, 0, NULL, & value);
1395 fields->f_lab_8_24 = value;
1396 }
1397 break;
1398 case M32C_OPERAND_LAB_8_8 :
1399 {
1400 bfd_vma value = 0;
1401 errmsg = cgen_parse_address (cd, strp, M32C_OPERAND_LAB_8_8, 0, NULL, & value);
1402 fields->f_lab_8_8 = value;
1403 }
1404 break;
1405 case M32C_OPERAND_LAB32_JMP_S :
1406 {
1407 bfd_vma value = 0;
1408 errmsg = parse_lab_5_3 (cd, strp, M32C_OPERAND_LAB32_JMP_S, 0, NULL, & value);
1409 fields->f_lab32_jmp_s = value;
1410 }
1411 break;
1412 case M32C_OPERAND_Q :
1413 errmsg = parse_Q (cd, strp, M32C_OPERAND_Q, (long *) (& junk));
1414 break;
1415 case M32C_OPERAND_R0 :
1416 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r0, & junk);
1417 break;
1418 case M32C_OPERAND_R0H :
1419 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r0h, & junk);
1420 break;
1421 case M32C_OPERAND_R0L :
1422 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r0l, & junk);
1423 break;
1424 case M32C_OPERAND_R1 :
1425 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r1, & junk);
1426 break;
1427 case M32C_OPERAND_R1R2R0 :
1428 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r1r2r0, & junk);
1429 break;
1430 case M32C_OPERAND_R2 :
1431 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r2, & junk);
1432 break;
1433 case M32C_OPERAND_R2R0 :
1434 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r2r0, & junk);
1435 break;
1436 case M32C_OPERAND_R3 :
1437 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r3, & junk);
1438 break;
1439 case M32C_OPERAND_R3R1 :
1440 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_r3r1, & junk);
1441 break;
1442 case M32C_OPERAND_REGSETPOP :
1443 errmsg = parse_pop_regset (cd, strp, M32C_OPERAND_REGSETPOP, (unsigned long *) (& fields->f_8_8));
1444 break;
1445 case M32C_OPERAND_REGSETPUSH :
1446 errmsg = parse_push_regset (cd, strp, M32C_OPERAND_REGSETPUSH, (unsigned long *) (& fields->f_8_8));
1447 break;
1448 case M32C_OPERAND_RN16_PUSH_S :
1449 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_QI, & fields->f_4_1);
1450 break;
1451 case M32C_OPERAND_S :
1452 errmsg = parse_S (cd, strp, M32C_OPERAND_S, (long *) (& junk));
1453 break;
1454 case M32C_OPERAND_SRC16AN :
1455 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_src16_an);
1456 break;
1457 case M32C_OPERAND_SRC16ANHI :
1458 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_HI, & fields->f_src16_an);
1459 break;
1460 case M32C_OPERAND_SRC16ANQI :
1461 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_QI, & fields->f_src16_an);
1462 break;
1463 case M32C_OPERAND_SRC16RNHI :
1464 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_HI, & fields->f_src16_rn);
1465 break;
1466 case M32C_OPERAND_SRC16RNQI :
1467 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_QI, & fields->f_src16_rn);
1468 break;
1469 case M32C_OPERAND_SRC32ANPREFIXED :
1470 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_src32_an_prefixed);
1471 break;
1472 case M32C_OPERAND_SRC32ANPREFIXEDHI :
1473 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_HI, & fields->f_src32_an_prefixed);
1474 break;
1475 case M32C_OPERAND_SRC32ANPREFIXEDQI :
1476 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_QI, & fields->f_src32_an_prefixed);
1477 break;
1478 case M32C_OPERAND_SRC32ANPREFIXEDSI :
1479 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_src32_an_prefixed);
1480 break;
1481 case M32C_OPERAND_SRC32ANUNPREFIXED :
1482 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_src32_an_unprefixed);
1483 break;
1484 case M32C_OPERAND_SRC32ANUNPREFIXEDHI :
1485 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_HI, & fields->f_src32_an_unprefixed);
1486 break;
1487 case M32C_OPERAND_SRC32ANUNPREFIXEDQI :
1488 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar_QI, & fields->f_src32_an_unprefixed);
1489 break;
1490 case M32C_OPERAND_SRC32ANUNPREFIXEDSI :
1491 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_ar, & fields->f_src32_an_unprefixed);
1492 break;
1493 case M32C_OPERAND_SRC32RNPREFIXEDHI :
1494 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_HI, & fields->f_src32_rn_prefixed_HI);
1495 break;
1496 case M32C_OPERAND_SRC32RNPREFIXEDQI :
1497 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_QI, & fields->f_src32_rn_prefixed_QI);
1498 break;
1499 case M32C_OPERAND_SRC32RNPREFIXEDSI :
1500 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_SI, & fields->f_src32_rn_prefixed_SI);
1501 break;
1502 case M32C_OPERAND_SRC32RNUNPREFIXEDHI :
1503 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_HI, & fields->f_src32_rn_unprefixed_HI);
1504 break;
1505 case M32C_OPERAND_SRC32RNUNPREFIXEDQI :
1506 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_QI, & fields->f_src32_rn_unprefixed_QI);
1507 break;
1508 case M32C_OPERAND_SRC32RNUNPREFIXEDSI :
1509 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_gr_SI, & fields->f_src32_rn_unprefixed_SI);
1510 break;
1511 case M32C_OPERAND_SRCDST16_R0L_R0H_S_NORMAL :
1512 errmsg = parse_r0l_r0h (cd, strp, M32C_OPERAND_SRCDST16_R0L_R0H_S_NORMAL, (long *) (& fields->f_5_1));
1513 break;
1514 case M32C_OPERAND_X :
1515 errmsg = parse_X (cd, strp, M32C_OPERAND_X, (long *) (& junk));
1516 break;
1517 case M32C_OPERAND_Z :
1518 errmsg = parse_Z (cd, strp, M32C_OPERAND_Z, (long *) (& junk));
1519 break;
1520 case M32C_OPERAND_COND16_16 :
1521 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond16, & fields->f_dsp_16_u8);
1522 break;
1523 case M32C_OPERAND_COND16_24 :
1524 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond16, & fields->f_dsp_24_u8);
1525 break;
1526 case M32C_OPERAND_COND16_32 :
1527 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond16, & fields->f_dsp_32_u8);
1528 break;
1529 case M32C_OPERAND_COND16C :
1530 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond16c, & fields->f_cond16);
1531 break;
1532 case M32C_OPERAND_COND16J :
1533 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond16j, & fields->f_cond16);
1534 break;
1535 case M32C_OPERAND_COND16J5 :
1536 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond16j_5, & fields->f_cond16j_5);
1537 break;
1538 case M32C_OPERAND_COND32 :
1539 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond32, & fields->f_cond32);
1540 break;
1541 case M32C_OPERAND_COND32_16 :
1542 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond32, & fields->f_dsp_16_u8);
1543 break;
1544 case M32C_OPERAND_COND32_24 :
1545 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond32, & fields->f_dsp_24_u8);
1546 break;
1547 case M32C_OPERAND_COND32_32 :
1548 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond32, & fields->f_dsp_32_u8);
1549 break;
1550 case M32C_OPERAND_COND32_40 :
1551 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond32, & fields->f_dsp_40_u8);
1552 break;
1553 case M32C_OPERAND_COND32J :
1554 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond32, & fields->f_cond32j);
1555 break;
1556 case M32C_OPERAND_CR1_PREFIXED_32 :
1557 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cr1_32, & fields->f_21_3);
1558 break;
1559 case M32C_OPERAND_CR1_UNPREFIXED_32 :
1560 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cr1_32, & fields->f_13_3);
1561 break;
1562 case M32C_OPERAND_CR16 :
1563 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cr_16, & fields->f_9_3);
1564 break;
1565 case M32C_OPERAND_CR2_32 :
1566 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cr2_32, & fields->f_13_3);
1567 break;
1568 case M32C_OPERAND_CR3_PREFIXED_32 :
1569 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cr3_32, & fields->f_21_3);
1570 break;
1571 case M32C_OPERAND_CR3_UNPREFIXED_32 :
1572 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cr3_32, & fields->f_13_3);
1573 break;
1574 case M32C_OPERAND_FLAGS16 :
1575 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_flags, & fields->f_9_3);
1576 break;
1577 case M32C_OPERAND_FLAGS32 :
1578 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_flags, & fields->f_13_3);
1579 break;
1580 case M32C_OPERAND_SCCOND32 :
1581 errmsg = cgen_parse_keyword (cd, strp, & m32c_cgen_opval_h_cond32, & fields->f_cond16);
1582 break;
1583 case M32C_OPERAND_SIZE :
1584 errmsg = parse_size (cd, strp, M32C_OPERAND_SIZE, (long *) (& junk));
1585 break;
1586
1587 default :
1588 /* xgettext:c-format */
1589 fprintf (stderr, _("Unrecognized field %d while parsing.\n"), opindex);
1590 abort ();
1591 }
1592
1593 return errmsg;
1594 }
1595
1596 cgen_parse_fn * const m32c_cgen_parse_handlers[] =
1597 {
1598 parse_insn_normal,
1599 };
1600
1601 void
1602 m32c_cgen_init_asm (CGEN_CPU_DESC cd)
1603 {
1604 m32c_cgen_init_opcode_table (cd);
1605 m32c_cgen_init_ibld_table (cd);
1606 cd->parse_handlers = & m32c_cgen_parse_handlers[0];
1607 cd->parse_operand = m32c_cgen_parse_operand;
1608 #ifdef CGEN_ASM_INIT_HOOK
1609 CGEN_ASM_INIT_HOOK
1610 #endif
1611 }
1612
1613 \f
1614
1615 /* Regex construction routine.
1616
1617 This translates an opcode syntax string into a regex string,
1618 by replacing any non-character syntax element (such as an
1619 opcode) with the pattern '.*'
1620
1621 It then compiles the regex and stores it in the opcode, for
1622 later use by m32c_cgen_assemble_insn
1623
1624 Returns NULL for success, an error message for failure. */
1625
1626 char *
1627 m32c_cgen_build_insn_regex (CGEN_INSN *insn)
1628 {
1629 CGEN_OPCODE *opc = (CGEN_OPCODE *) CGEN_INSN_OPCODE (insn);
1630 const char *mnem = CGEN_INSN_MNEMONIC (insn);
1631 char rxbuf[CGEN_MAX_RX_ELEMENTS];
1632 char *rx = rxbuf;
1633 const CGEN_SYNTAX_CHAR_TYPE *syn;
1634 int reg_err;
1635
1636 syn = CGEN_SYNTAX_STRING (CGEN_OPCODE_SYNTAX (opc));
1637
1638 /* Mnemonics come first in the syntax string. */
1639 if (! CGEN_SYNTAX_MNEMONIC_P (* syn))
1640 return _("missing mnemonic in syntax string");
1641 ++syn;
1642
1643 /* Generate a case sensitive regular expression that emulates case
1644 insensitive matching in the "C" locale. We cannot generate a case
1645 insensitive regular expression because in Turkish locales, 'i' and 'I'
1646 are not equal modulo case conversion. */
1647
1648 /* Copy the literal mnemonic out of the insn. */
1649 for (; *mnem; mnem++)
1650 {
1651 char c = *mnem;
1652
1653 if (ISALPHA (c))
1654 {
1655 *rx++ = '[';
1656 *rx++ = TOLOWER (c);
1657 *rx++ = TOUPPER (c);
1658 *rx++ = ']';
1659 }
1660 else
1661 *rx++ = c;
1662 }
1663
1664 /* Copy any remaining literals from the syntax string into the rx. */
1665 for(; * syn != 0 && rx <= rxbuf + (CGEN_MAX_RX_ELEMENTS - 7 - 4); ++syn)
1666 {
1667 if (CGEN_SYNTAX_CHAR_P (* syn))
1668 {
1669 char c = CGEN_SYNTAX_CHAR (* syn);
1670
1671 switch (c)
1672 {
1673 /* Escape any regex metacharacters in the syntax. */
1674 case '.': case '[': case '\\':
1675 case '*': case '^': case '$':
1676
1677 #ifdef CGEN_ESCAPE_EXTENDED_REGEX
1678 case '?': case '{': case '}':
1679 case '(': case ')': case '*':
1680 case '|': case '+': case ']':
1681 #endif
1682 *rx++ = '\\';
1683 *rx++ = c;
1684 break;
1685
1686 default:
1687 if (ISALPHA (c))
1688 {
1689 *rx++ = '[';
1690 *rx++ = TOLOWER (c);
1691 *rx++ = TOUPPER (c);
1692 *rx++ = ']';
1693 }
1694 else
1695 *rx++ = c;
1696 break;
1697 }
1698 }
1699 else
1700 {
1701 /* Replace non-syntax fields with globs. */
1702 *rx++ = '.';
1703 *rx++ = '*';
1704 }
1705 }
1706
1707 /* Trailing whitespace ok. */
1708 * rx++ = '[';
1709 * rx++ = ' ';
1710 * rx++ = '\t';
1711 * rx++ = ']';
1712 * rx++ = '*';
1713
1714 /* But anchor it after that. */
1715 * rx++ = '$';
1716 * rx = '\0';
1717
1718 CGEN_INSN_RX (insn) = xmalloc (sizeof (regex_t));
1719 reg_err = regcomp ((regex_t *) CGEN_INSN_RX (insn), rxbuf, REG_NOSUB);
1720
1721 if (reg_err == 0)
1722 return NULL;
1723 else
1724 {
1725 static char msg[80];
1726
1727 regerror (reg_err, (regex_t *) CGEN_INSN_RX (insn), msg, 80);
1728 regfree ((regex_t *) CGEN_INSN_RX (insn));
1729 free (CGEN_INSN_RX (insn));
1730 (CGEN_INSN_RX (insn)) = NULL;
1731 return msg;
1732 }
1733 }
1734
1735 \f
1736 /* Default insn parser.
1737
1738 The syntax string is scanned and operands are parsed and stored in FIELDS.
1739 Relocs are queued as we go via other callbacks.
1740
1741 ??? Note that this is currently an all-or-nothing parser. If we fail to
1742 parse the instruction, we return 0 and the caller will start over from
1743 the beginning. Backtracking will be necessary in parsing subexpressions,
1744 but that can be handled there. Not handling backtracking here may get
1745 expensive in the case of the m68k. Deal with later.
1746
1747 Returns NULL for success, an error message for failure. */
1748
1749 static const char *
1750 parse_insn_normal (CGEN_CPU_DESC cd,
1751 const CGEN_INSN *insn,
1752 const char **strp,
1753 CGEN_FIELDS *fields)
1754 {
1755 /* ??? Runtime added insns not handled yet. */
1756 const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
1757 const char *str = *strp;
1758 const char *errmsg;
1759 const char *p;
1760 const CGEN_SYNTAX_CHAR_TYPE * syn;
1761 #ifdef CGEN_MNEMONIC_OPERANDS
1762 /* FIXME: wip */
1763 int past_opcode_p;
1764 #endif
1765
1766 /* For now we assume the mnemonic is first (there are no leading operands).
1767 We can parse it without needing to set up operand parsing.
1768 GAS's input scrubber will ensure mnemonics are lowercase, but we may
1769 not be called from GAS. */
1770 p = CGEN_INSN_MNEMONIC (insn);
1771 while (*p && TOLOWER (*p) == TOLOWER (*str))
1772 ++p, ++str;
1773
1774 if (* p)
1775 return _("unrecognized instruction");
1776
1777 #ifndef CGEN_MNEMONIC_OPERANDS
1778 if (* str && ! ISSPACE (* str))
1779 return _("unrecognized instruction");
1780 #endif
1781
1782 CGEN_INIT_PARSE (cd);
1783 cgen_init_parse_operand (cd);
1784 #ifdef CGEN_MNEMONIC_OPERANDS
1785 past_opcode_p = 0;
1786 #endif
1787
1788 /* We don't check for (*str != '\0') here because we want to parse
1789 any trailing fake arguments in the syntax string. */
1790 syn = CGEN_SYNTAX_STRING (syntax);
1791
1792 /* Mnemonics come first for now, ensure valid string. */
1793 if (! CGEN_SYNTAX_MNEMONIC_P (* syn))
1794 abort ();
1795
1796 ++syn;
1797
1798 while (* syn != 0)
1799 {
1800 /* Non operand chars must match exactly. */
1801 if (CGEN_SYNTAX_CHAR_P (* syn))
1802 {
1803 /* FIXME: While we allow for non-GAS callers above, we assume the
1804 first char after the mnemonic part is a space. */
1805 /* FIXME: We also take inappropriate advantage of the fact that
1806 GAS's input scrubber will remove extraneous blanks. */
1807 if (TOLOWER (*str) == TOLOWER (CGEN_SYNTAX_CHAR (* syn)))
1808 {
1809 #ifdef CGEN_MNEMONIC_OPERANDS
1810 if (CGEN_SYNTAX_CHAR(* syn) == ' ')
1811 past_opcode_p = 1;
1812 #endif
1813 ++ syn;
1814 ++ str;
1815 }
1816 else if (*str)
1817 {
1818 /* Syntax char didn't match. Can't be this insn. */
1819 static char msg [80];
1820
1821 /* xgettext:c-format */
1822 sprintf (msg, _("syntax error (expected char `%c', found `%c')"),
1823 CGEN_SYNTAX_CHAR(*syn), *str);
1824 return msg;
1825 }
1826 else
1827 {
1828 /* Ran out of input. */
1829 static char msg [80];
1830
1831 /* xgettext:c-format */
1832 sprintf (msg, _("syntax error (expected char `%c', found end of instruction)"),
1833 CGEN_SYNTAX_CHAR(*syn));
1834 return msg;
1835 }
1836 continue;
1837 }
1838
1839 /* We have an operand of some sort. */
1840 errmsg = cd->parse_operand (cd, CGEN_SYNTAX_FIELD (*syn),
1841 &str, fields);
1842 if (errmsg)
1843 return errmsg;
1844
1845 /* Done with this operand, continue with next one. */
1846 ++ syn;
1847 }
1848
1849 /* If we're at the end of the syntax string, we're done. */
1850 if (* syn == 0)
1851 {
1852 /* FIXME: For the moment we assume a valid `str' can only contain
1853 blanks now. IE: We needn't try again with a longer version of
1854 the insn and it is assumed that longer versions of insns appear
1855 before shorter ones (eg: lsr r2,r3,1 vs lsr r2,r3). */
1856 while (ISSPACE (* str))
1857 ++ str;
1858
1859 if (* str != '\0')
1860 return _("junk at end of line"); /* FIXME: would like to include `str' */
1861
1862 return NULL;
1863 }
1864
1865 /* We couldn't parse it. */
1866 return _("unrecognized instruction");
1867 }
1868 \f
1869 /* Main entry point.
1870 This routine is called for each instruction to be assembled.
1871 STR points to the insn to be assembled.
1872 We assume all necessary tables have been initialized.
1873 The assembled instruction, less any fixups, is stored in BUF.
1874 Remember that if CGEN_INT_INSN_P then BUF is an int and thus the value
1875 still needs to be converted to target byte order, otherwise BUF is an array
1876 of bytes in target byte order.
1877 The result is a pointer to the insn's entry in the opcode table,
1878 or NULL if an error occured (an error message will have already been
1879 printed).
1880
1881 Note that when processing (non-alias) macro-insns,
1882 this function recurses.
1883
1884 ??? It's possible to make this cpu-independent.
1885 One would have to deal with a few minor things.
1886 At this point in time doing so would be more of a curiosity than useful
1887 [for example this file isn't _that_ big], but keeping the possibility in
1888 mind helps keep the design clean. */
1889
1890 const CGEN_INSN *
1891 m32c_cgen_assemble_insn (CGEN_CPU_DESC cd,
1892 const char *str,
1893 CGEN_FIELDS *fields,
1894 CGEN_INSN_BYTES_PTR buf,
1895 char **errmsg)
1896 {
1897 const char *start;
1898 CGEN_INSN_LIST *ilist;
1899 const char *parse_errmsg = NULL;
1900 const char *insert_errmsg = NULL;
1901 int recognized_mnemonic = 0;
1902
1903 /* Skip leading white space. */
1904 while (ISSPACE (* str))
1905 ++ str;
1906
1907 /* The instructions are stored in hashed lists.
1908 Get the first in the list. */
1909 ilist = CGEN_ASM_LOOKUP_INSN (cd, str);
1910
1911 /* Keep looking until we find a match. */
1912 start = str;
1913 for ( ; ilist != NULL ; ilist = CGEN_ASM_NEXT_INSN (ilist))
1914 {
1915 const CGEN_INSN *insn = ilist->insn;
1916 recognized_mnemonic = 1;
1917
1918 #ifdef CGEN_VALIDATE_INSN_SUPPORTED
1919 /* Not usually needed as unsupported opcodes
1920 shouldn't be in the hash lists. */
1921 /* Is this insn supported by the selected cpu? */
1922 if (! m32c_cgen_insn_supported (cd, insn))
1923 continue;
1924 #endif
1925 /* If the RELAXED attribute is set, this is an insn that shouldn't be
1926 chosen immediately. Instead, it is used during assembler/linker
1927 relaxation if possible. */
1928 if (CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_RELAXED) != 0)
1929 continue;
1930
1931 str = start;
1932
1933 /* Skip this insn if str doesn't look right lexically. */
1934 if (CGEN_INSN_RX (insn) != NULL &&
1935 regexec ((regex_t *) CGEN_INSN_RX (insn), str, 0, NULL, 0) == REG_NOMATCH)
1936 continue;
1937
1938 /* Allow parse/insert handlers to obtain length of insn. */
1939 CGEN_FIELDS_BITSIZE (fields) = CGEN_INSN_BITSIZE (insn);
1940
1941 parse_errmsg = CGEN_PARSE_FN (cd, insn) (cd, insn, & str, fields);
1942 if (parse_errmsg != NULL)
1943 continue;
1944
1945 /* ??? 0 is passed for `pc'. */
1946 insert_errmsg = CGEN_INSERT_FN (cd, insn) (cd, insn, fields, buf,
1947 (bfd_vma) 0);
1948 if (insert_errmsg != NULL)
1949 continue;
1950
1951 /* It is up to the caller to actually output the insn and any
1952 queued relocs. */
1953 return insn;
1954 }
1955
1956 {
1957 static char errbuf[150];
1958 #ifdef CGEN_VERBOSE_ASSEMBLER_ERRORS
1959 const char *tmp_errmsg;
1960
1961 /* If requesting verbose error messages, use insert_errmsg.
1962 Failing that, use parse_errmsg. */
1963 tmp_errmsg = (insert_errmsg ? insert_errmsg :
1964 parse_errmsg ? parse_errmsg :
1965 recognized_mnemonic ?
1966 _("unrecognized form of instruction") :
1967 _("unrecognized instruction"));
1968
1969 if (strlen (start) > 50)
1970 /* xgettext:c-format */
1971 sprintf (errbuf, "%s `%.50s...'", tmp_errmsg, start);
1972 else
1973 /* xgettext:c-format */
1974 sprintf (errbuf, "%s `%.50s'", tmp_errmsg, start);
1975 #else
1976 if (strlen (start) > 50)
1977 /* xgettext:c-format */
1978 sprintf (errbuf, _("bad instruction `%.50s...'"), start);
1979 else
1980 /* xgettext:c-format */
1981 sprintf (errbuf, _("bad instruction `%.50s'"), start);
1982 #endif
1983
1984 *errmsg = errbuf;
1985 return NULL;
1986 }
1987 }
git-cvsimport of binutils cvsroot