1 /* s390-mkopc.c -- Generates opcode table out of s390-opc.txt
2 Copyright 2000, 2001, 2003, 2007 Free Software Foundation, Inc.
3 Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
5 This file is part of the GNU opcodes library.
7 This library is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 It is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
15 License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this file; see the file COPYING. If not, write to the
19 Free Software Foundation, 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
26 /* Taken from opcodes/s390.h */
27 enum s390_opcode_mode_val
33 enum s390_opcode_cpu_val
51 unsigned long long sort_value
;
55 struct op_struct
*op_array
;
63 op_array
= malloc (max_ops
* sizeof (struct op_struct
));
67 /* `insertOpcode': insert an op_struct into sorted opcode array. */
70 insertOpcode (char *opcode
, char *mnemonic
, char *format
,
71 int min_cpu
, int mode_bits
)
74 unsigned long long sort_value
;
78 while (no_ops
>= max_ops
)
80 max_ops
= max_ops
* 2;
81 op_array
= realloc (op_array
, max_ops
* sizeof (struct op_struct
));
86 for (ix
= 0; ix
< 16; ix
++)
88 if (*str
>= '0' && *str
<= '9')
89 sort_value
= (sort_value
<< 4) + (*str
- '0');
90 else if (*str
>= 'a' && *str
<= 'f')
91 sort_value
= (sort_value
<< 4) + (*str
- 'a' + 10);
92 else if (*str
>= 'A' && *str
<= 'F')
93 sort_value
= (sort_value
<< 4) + (*str
- 'A' + 10);
100 sort_value
<<= 4*(16 - ix
);
101 sort_value
+= (min_cpu
<< 8) + mode_bits
;
103 for (ix
= 0; ix
< no_ops
; ix
++)
104 if (sort_value
> op_array
[ix
].sort_value
)
106 for (k
= no_ops
; k
> ix
; k
--)
107 op_array
[k
] = op_array
[k
-1];
108 strcpy(op_array
[ix
].opcode
, opcode
);
109 strcpy(op_array
[ix
].mnemonic
, mnemonic
);
110 strcpy(op_array
[ix
].format
, format
);
111 op_array
[ix
].sort_value
= sort_value
;
112 op_array
[ix
].no_nibbles
= no_nibbles
;
113 op_array
[ix
].min_cpu
= min_cpu
;
114 op_array
[ix
].mode_bits
= mode_bits
;
118 static char file_header
[] =
119 "/* The opcode table. This file was generated by s390-mkopc.\n\n"
120 " The format of the opcode table is:\n\n"
121 " NAME OPCODE MASK OPERANDS\n\n"
122 " Name is the name of the instruction.\n"
123 " OPCODE is the instruction opcode.\n"
124 " MASK is the opcode mask; this is used to tell the disassembler\n"
125 " which bits in the actual opcode must match OPCODE.\n"
126 " OPERANDS is the list of operands.\n\n"
127 " The disassembler reads the table in order and prints the first\n"
128 " instruction which matches. */\n\n"
129 "const struct s390_opcode s390_opcodes[] =\n {\n";
131 /* `dumpTable': write opcode table. */
139 /* Write hash table entries (slots). */
140 printf (file_header
);
142 for (ix
= 0; ix
< no_ops
; ix
++)
144 printf (" { \"%s\", ", op_array
[ix
].mnemonic
);
145 for (str
= op_array
[ix
].opcode
; *str
!= 0; str
++)
148 printf ("OP%i(0x%sLL), ",
149 op_array
[ix
].no_nibbles
*4, op_array
[ix
].opcode
);
150 printf ("MASK_%s, INSTR_%s, ",
151 op_array
[ix
].format
, op_array
[ix
].format
);
152 printf ("%i, ", op_array
[ix
].mode_bits
);
153 printf ("%i}", op_array
[ix
].min_cpu
);
160 printf ("const int s390_num_opcodes =\n");
161 printf (" sizeof (s390_opcodes) / sizeof (s390_opcodes[0]);\n\n");
167 char currentLine
[256];
171 /* Read opcode descriptions from `stdin'. For each mnemonic,
172 make an entry into the opcode table. */
173 while (fgets (currentLine
, sizeof (currentLine
), stdin
) != NULL
)
178 char description
[64];
180 char modes_string
[16];
185 if (currentLine
[0] == '#')
187 memset (opcode
, 0, 8);
188 if (sscanf (currentLine
, "%15s %15s %15s \"%[^\"]\" %15s %15s",
189 opcode
, mnemonic
, format
, description
,
190 cpu_string
, modes_string
) == 6)
192 if (strcmp (cpu_string
, "g5") == 0)
193 min_cpu
= S390_OPCODE_G5
;
194 else if (strcmp (cpu_string
, "g6") == 0)
195 min_cpu
= S390_OPCODE_G6
;
196 else if (strcmp (cpu_string
, "z900") == 0)
197 min_cpu
= S390_OPCODE_Z900
;
198 else if (strcmp (cpu_string
, "z990") == 0)
199 min_cpu
= S390_OPCODE_Z990
;
200 else if (strcmp (cpu_string
, "z9-109") == 0)
201 min_cpu
= S390_OPCODE_Z9_109
;
202 else if (strcmp (cpu_string
, "z9-ec") == 0)
203 min_cpu
= S390_OPCODE_Z9_EC
;
205 fprintf (stderr
, "Couldn't parse cpu string %s\n", cpu_string
);
212 if (strncmp (str
, "esa", 3) == 0
213 && (str
[3] == 0 || str
[3] == ',')) {
214 mode_bits
|= 1 << S390_OPCODE_ESA
;
216 } else if (strncmp (str
, "zarch", 5) == 0
217 && (str
[5] == 0 || str
[5] == ',')) {
218 mode_bits
|= 1 << S390_OPCODE_ZARCH
;
221 fprintf (stderr
, "Couldn't parse modes string %s\n",
228 insertOpcode (opcode
, mnemonic
, format
, min_cpu
, mode_bits
);
231 fprintf (stderr
, "Couldn't scan line %s\n", currentLine
);