1 /* s390-mkopc.c -- Generates opcode table out of s390-opc.txt
2 Copyright 2000, 2001, 2003 Free Software Foundation, Inc.
3 Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
4
5 This file is part of GDB, GAS, and the GNU binutils.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
20 02110-1301, USA. */
21
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25
26 /* Taken from opcodes/s390.h */
27 enum s390_opcode_mode_val
28 {
29 S390_OPCODE_ESA = 0,
30 S390_OPCODE_ZARCH
31 };
32
33 enum s390_opcode_cpu_val
34 {
35 S390_OPCODE_G5 = 0,
36 S390_OPCODE_G6,
37 S390_OPCODE_Z900,
38 S390_OPCODE_Z990,
39 S390_OPCODE_Z9_109
40 };
41
42 struct op_struct
43 {
44 char opcode[16];
45 char mnemonic[16];
46 char format[16];
47 int mode_bits;
48 int min_cpu;
49
50 unsigned long long sort_value;
51 int no_nibbles;
52 };
53
54 struct op_struct *op_array;
55 int max_ops;
56 int no_ops;
57
58 static void
createTable(void)59 createTable (void)
60 {
61 max_ops = 256;
62 op_array = malloc (max_ops * sizeof (struct op_struct));
63 no_ops = 0;
64 }
65
66 /* `insertOpcode': insert an op_struct into sorted opcode array. */
67
68 static void
insertOpcode(char * opcode,char * mnemonic,char * format,int min_cpu,int mode_bits)69 insertOpcode (char *opcode, char *mnemonic, char *format,
70 int min_cpu, int mode_bits)
71 {
72 char *str;
73 unsigned long long sort_value;
74 int no_nibbles;
75 int ix, k;
76
77 while (no_ops >= max_ops)
78 {
79 max_ops = max_ops * 2;
80 op_array = realloc (op_array, max_ops * sizeof (struct op_struct));
81 }
82
83 sort_value = 0;
84 str = opcode;
85 for (ix = 0; ix < 16; ix++)
86 {
87 if (*str >= '0' && *str <= '9')
88 sort_value = (sort_value << 4) + (*str - '0');
89 else if (*str >= 'a' && *str <= 'f')
90 sort_value = (sort_value << 4) + (*str - 'a' + 10);
91 else if (*str >= 'A' && *str <= 'F')
92 sort_value = (sort_value << 4) + (*str - 'A' + 10);
93 else if (*str == '?')
94 sort_value <<= 4;
95 else
96 break;
97 str ++;
98 }
99 sort_value <<= 4*(16 - ix);
100 sort_value += (min_cpu << 8) + mode_bits;
101 no_nibbles = ix;
102 for (ix = 0; ix < no_ops; ix++)
103 if (sort_value > op_array[ix].sort_value)
104 break;
105 for (k = no_ops; k > ix; k--)
106 op_array[k] = op_array[k-1];
107 strcpy(op_array[ix].opcode, opcode);
108 strcpy(op_array[ix].mnemonic, mnemonic);
109 strcpy(op_array[ix].format, format);
110 op_array[ix].sort_value = sort_value;
111 op_array[ix].no_nibbles = no_nibbles;
112 op_array[ix].min_cpu = min_cpu;
113 op_array[ix].mode_bits = mode_bits;
114 no_ops++;
115 }
116
117 static char file_header[] =
118 "/* The opcode table. This file was generated by s390-mkopc.\n\n"
119 " The format of the opcode table is:\n\n"
120 " NAME OPCODE MASK OPERANDS\n\n"
121 " Name is the name of the instruction.\n"
122 " OPCODE is the instruction opcode.\n"
123 " MASK is the opcode mask; this is used to tell the disassembler\n"
124 " which bits in the actual opcode must match OPCODE.\n"
125 " OPERANDS is the list of operands.\n\n"
126 " The disassembler reads the table in order and prints the first\n"
127 " instruction which matches. */\n\n"
128 "const struct s390_opcode s390_opcodes[] =\n {\n";
129
130 /* `dumpTable': write opcode table. */
131
132 static void
dumpTable(void)133 dumpTable (void)
134 {
135 char *str;
136 int ix;
137
138 /* Write hash table entries (slots). */
139 printf (file_header);
140
141 for (ix = 0; ix < no_ops; ix++)
142 {
143 printf (" { \"%s\", ", op_array[ix].mnemonic);
144 for (str = op_array[ix].opcode; *str != 0; str++)
145 if (*str == '?')
146 *str = '0';
147 printf ("OP%i(0x%sLL), ",
148 op_array[ix].no_nibbles*4, op_array[ix].opcode);
149 printf ("MASK_%s, INSTR_%s, ",
150 op_array[ix].format, op_array[ix].format);
151 printf ("%i, ", op_array[ix].mode_bits);
152 printf ("%i}", op_array[ix].min_cpu);
153 if (ix < no_ops-1)
154 printf (",\n");
155 else
156 printf ("\n");
157 }
158 printf ("};\n\n");
159 printf ("const int s390_num_opcodes =\n");
160 printf (" sizeof (s390_opcodes) / sizeof (s390_opcodes[0]);\n\n");
161 }
162
163 int
main(void)164 main (void)
165 {
166 char currentLine[256];
167
168 createTable ();
169
170 /* Read opcode descriptions from `stdin'. For each mnemonic,
171 make an entry into the opcode table. */
172 while (fgets (currentLine, sizeof (currentLine), stdin) != NULL)
173 {
174 char opcode[16];
175 char mnemonic[16];
176 char format[16];
177 char description[64];
178 char cpu_string[16];
179 char modes_string[16];
180 int min_cpu;
181 int mode_bits;
182 char *str;
183
184 if (currentLine[0] == '#')
185 continue;
186 memset (opcode, 0, 8);
187 if (sscanf (currentLine, "%15s %15s %15s \"%[^\"]\" %15s %15s",
188 opcode, mnemonic, format, description,
189 cpu_string, modes_string) == 6)
190 {
191 if (strcmp (cpu_string, "g5") == 0)
192 min_cpu = S390_OPCODE_G5;
193 else if (strcmp (cpu_string, "g6") == 0)
194 min_cpu = S390_OPCODE_G6;
195 else if (strcmp (cpu_string, "z900") == 0)
196 min_cpu = S390_OPCODE_Z900;
197 else if (strcmp (cpu_string, "z990") == 0)
198 min_cpu = S390_OPCODE_Z990;
199 else if (strcmp (cpu_string, "z9-109") == 0)
200 min_cpu = S390_OPCODE_Z9_109;
201 else {
202 fprintf (stderr, "Couldn't parse cpu string %s\n", cpu_string);
203 exit (1);
204 }
205
206 str = modes_string;
207 mode_bits = 0;
208 do {
209 if (strncmp (str, "esa", 3) == 0
210 && (str[3] == 0 || str[3] == ',')) {
211 mode_bits |= 1 << S390_OPCODE_ESA;
212 str += 3;
213 } else if (strncmp (str, "zarch", 5) == 0
214 && (str[5] == 0 || str[5] == ',')) {
215 mode_bits |= 1 << S390_OPCODE_ZARCH;
216 str += 5;
217 } else {
218 fprintf (stderr, "Couldn't parse modes string %s\n",
219 modes_string);
220 exit (1);
221 }
222 if (*str == ',')
223 str++;
224 } while (*str != 0);
225 insertOpcode (opcode, mnemonic, format, min_cpu, mode_bits);
226 }
227 else
228 fprintf (stderr, "Couldn't scan line %s\n", currentLine);
229 }
230
231 dumpTable ();
232 return 0;
233 }
234