Commit | Line | Data |
---|---|---|
a85d7ed0 | 1 | /* s390-mkopc.c -- Generates opcode table out of s390-opc.txt |
aef6203b | 2 | Copyright 2000, 2001, 2003 Free Software Foundation, Inc. |
a85d7ed0 NC |
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 | |
f4321104 NC |
19 | Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA |
20 | 02110-1301, USA. */ | |
a85d7ed0 NC |
21 | |
22 | #include <stdio.h> | |
23 | #include <stdlib.h> | |
24 | #include <string.h> | |
25 | ||
af169f23 MS |
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, | |
bac02689 | 37 | S390_OPCODE_Z900, |
ad101263 MS |
38 | S390_OPCODE_Z990, |
39 | S390_OPCODE_Z9_109 | |
af169f23 | 40 | }; |
a85d7ed0 | 41 | |
b6849f55 NC |
42 | struct op_struct |
43 | { | |
44 | char opcode[16]; | |
45 | char mnemonic[16]; | |
46 | char format[16]; | |
af169f23 MS |
47 | int mode_bits; |
48 | int min_cpu; | |
49 | ||
b6849f55 NC |
50 | unsigned long long sort_value; |
51 | int no_nibbles; | |
52 | }; | |
a85d7ed0 NC |
53 | |
54 | struct op_struct *op_array; | |
55 | int max_ops; | |
56 | int no_ops; | |
57 | ||
58 | static void | |
b6849f55 | 59 | createTable (void) |
a85d7ed0 | 60 | { |
b6849f55 NC |
61 | max_ops = 256; |
62 | op_array = malloc (max_ops * sizeof (struct op_struct)); | |
63 | no_ops = 0; | |
a85d7ed0 NC |
64 | } |
65 | ||
b6849f55 NC |
66 | /* `insertOpcode': insert an op_struct into sorted opcode array. */ |
67 | ||
a85d7ed0 | 68 | static void |
af169f23 MS |
69 | insertOpcode (char *opcode, char *mnemonic, char *format, |
70 | int min_cpu, int mode_bits) | |
a85d7ed0 | 71 | { |
b6849f55 NC |
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)); | |
a85d7ed0 | 81 | } |
b6849f55 NC |
82 | |
83 | sort_value = 0; | |
84 | str = opcode; | |
85 | for (ix = 0; ix < 16; ix++) | |
86 | { | |
a85d7ed0 NC |
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; | |
b6849f55 | 97 | str ++; |
a85d7ed0 | 98 | } |
b6849f55 | 99 | sort_value <<= 4*(16 - ix); |
af169f23 | 100 | sort_value += (min_cpu << 8) + mode_bits; |
b6849f55 NC |
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; | |
af169f23 MS |
112 | op_array[ix].min_cpu = min_cpu; |
113 | op_array[ix].mode_bits = mode_bits; | |
b6849f55 | 114 | no_ops++; |
a85d7ed0 NC |
115 | } |
116 | ||
b6849f55 NC |
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. */ | |
a85d7ed0 | 131 | |
a85d7ed0 | 132 | static void |
b6849f55 | 133 | dumpTable (void) |
a85d7ed0 | 134 | { |
b6849f55 NC |
135 | char *str; |
136 | int ix; | |
a85d7ed0 | 137 | |
b6849f55 NC |
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); | |
a85d7ed0 NC |
144 | for (str = op_array[ix].opcode; *str != 0; str++) |
145 | if (*str == '?') | |
146 | *str = '0'; | |
b6849f55 NC |
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); | |
af169f23 MS |
151 | printf ("%i, ", op_array[ix].mode_bits); |
152 | printf ("%i}", op_array[ix].min_cpu); | |
a85d7ed0 | 153 | if (ix < no_ops-1) |
b6849f55 | 154 | printf (",\n"); |
a85d7ed0 | 155 | else |
b6849f55 | 156 | printf ("\n"); |
a85d7ed0 | 157 | } |
b6849f55 NC |
158 | printf ("};\n\n"); |
159 | printf ("const int s390_num_opcodes =\n"); | |
160 | printf (" sizeof (s390_opcodes) / sizeof (s390_opcodes[0]);\n\n"); | |
a85d7ed0 NC |
161 | } |
162 | ||
a85d7ed0 | 163 | int |
b6849f55 | 164 | main (void) |
a85d7ed0 | 165 | { |
b6849f55 NC |
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 | { | |
a85d7ed0 NC |
174 | char opcode[16]; |
175 | char mnemonic[16]; | |
176 | char format[16]; | |
177 | char description[64]; | |
af169f23 MS |
178 | char cpu_string[16]; |
179 | char modes_string[16]; | |
180 | int min_cpu; | |
181 | int mode_bits; | |
182 | char *str; | |
a85d7ed0 NC |
183 | |
184 | if (currentLine[0] == '#') | |
185 | continue; | |
b6849f55 | 186 | memset (opcode, 0, 8); |
af169f23 MS |
187 | if (sscanf (currentLine, "%15s %15s %15s \"%[^\"]\" %15s %15s", |
188 | opcode, mnemonic, format, description, | |
189 | cpu_string, modes_string) == 6) | |
b6849f55 | 190 | { |
af169f23 MS |
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; | |
bac02689 MS |
197 | else if (strcmp (cpu_string, "z990") == 0) |
198 | min_cpu = S390_OPCODE_Z990; | |
ad101263 MS |
199 | else if (strcmp (cpu_string, "z9-109") == 0) |
200 | min_cpu = S390_OPCODE_Z9_109; | |
af169f23 MS |
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); | |
b6849f55 NC |
226 | } |
227 | else | |
228 | fprintf (stderr, "Couldn't scan line %s\n", currentLine); | |
a85d7ed0 NC |
229 | } |
230 | ||
b6849f55 NC |
231 | dumpTable (); |
232 | return 0; | |
a85d7ed0 | 233 | } |