1 /* s390-mkopc.c -- Generates opcode table out of s390-opc.txt
2 Copyright 2000, 2001 Free Software Foundation, Inc.
3 Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
5 This file is part of GDB, GAS, and the GNU binutils.
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.
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.
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., 59 Temple Place - Suite 330, Boston, MA
26 /* Taken from opcodes/s390.h */
27 enum s390_opcode_mode_val
33 enum s390_opcode_cpu_val
49 unsigned long long sort_value
;
53 struct op_struct
*op_array
;
61 op_array
= malloc (max_ops
* sizeof (struct op_struct
));
65 /* `insertOpcode': insert an op_struct into sorted opcode array. */
68 insertOpcode (char *opcode
, char *mnemonic
, char *format
,
69 int min_cpu
, int mode_bits
)
72 unsigned long long sort_value
;
76 while (no_ops
>= max_ops
)
78 max_ops
= max_ops
* 2;
79 op_array
= realloc (op_array
, max_ops
* sizeof (struct op_struct
));
84 for (ix
= 0; ix
< 16; ix
++)
86 if (*str
>= '0' && *str
<= '9')
87 sort_value
= (sort_value
<< 4) + (*str
- '0');
88 else if (*str
>= 'a' && *str
<= 'f')
89 sort_value
= (sort_value
<< 4) + (*str
- 'a' + 10);
90 else if (*str
>= 'A' && *str
<= 'F')
91 sort_value
= (sort_value
<< 4) + (*str
- 'A' + 10);
98 sort_value
<<= 4*(16 - ix
);
99 sort_value
+= (min_cpu
<< 8) + mode_bits
;
101 for (ix
= 0; ix
< no_ops
; ix
++)
102 if (sort_value
> op_array
[ix
].sort_value
)
104 for (k
= no_ops
; k
> ix
; k
--)
105 op_array
[k
] = op_array
[k
-1];
106 strcpy(op_array
[ix
].opcode
, opcode
);
107 strcpy(op_array
[ix
].mnemonic
, mnemonic
);
108 strcpy(op_array
[ix
].format
, format
);
109 op_array
[ix
].sort_value
= sort_value
;
110 op_array
[ix
].no_nibbles
= no_nibbles
;
111 op_array
[ix
].min_cpu
= min_cpu
;
112 op_array
[ix
].mode_bits
= mode_bits
;
116 static char file_header
[] =
117 "/* The opcode table. This file was generated by s390-mkopc.\n\n"
118 " The format of the opcode table is:\n\n"
119 " NAME OPCODE MASK OPERANDS\n\n"
120 " Name is the name of the instruction.\n"
121 " OPCODE is the instruction opcode.\n"
122 " MASK is the opcode mask; this is used to tell the disassembler\n"
123 " which bits in the actual opcode must match OPCODE.\n"
124 " OPERANDS is the list of operands.\n\n"
125 " The disassembler reads the table in order and prints the first\n"
126 " instruction which matches. */\n\n"
127 "const struct s390_opcode s390_opcodes[] =\n {\n";
129 /* `dumpTable': write opcode table. */
137 /* Write hash table entries (slots). */
138 printf (file_header
);
140 for (ix
= 0; ix
< no_ops
; ix
++)
142 printf (" { \"%s\", ", op_array
[ix
].mnemonic
);
143 for (str
= op_array
[ix
].opcode
; *str
!= 0; str
++)
146 printf ("OP%i(0x%sLL), ",
147 op_array
[ix
].no_nibbles
*4, op_array
[ix
].opcode
);
148 printf ("MASK_%s, INSTR_%s, ",
149 op_array
[ix
].format
, op_array
[ix
].format
);
150 printf ("%i, ", op_array
[ix
].mode_bits
);
151 printf ("%i}", op_array
[ix
].min_cpu
);
158 printf ("const int s390_num_opcodes =\n");
159 printf (" sizeof (s390_opcodes) / sizeof (s390_opcodes[0]);\n\n");
165 char currentLine
[256];
169 /* Read opcode descriptions from `stdin'. For each mnemonic,
170 make an entry into the opcode table. */
171 while (fgets (currentLine
, sizeof (currentLine
), stdin
) != NULL
)
176 char description
[64];
178 char modes_string
[16];
183 if (currentLine
[0] == '#')
185 memset (opcode
, 0, 8);
186 if (sscanf (currentLine
, "%15s %15s %15s \"%[^\"]\" %15s %15s",
187 opcode
, mnemonic
, format
, description
,
188 cpu_string
, modes_string
) == 6)
190 if (strcmp (cpu_string
, "g5") == 0)
191 min_cpu
= S390_OPCODE_G5
;
192 else if (strcmp (cpu_string
, "g6") == 0)
193 min_cpu
= S390_OPCODE_G6
;
194 else if (strcmp (cpu_string
, "z900") == 0)
195 min_cpu
= S390_OPCODE_Z900
;
196 else if (strcmp (cpu_string
, "z990") == 0)
197 min_cpu
= S390_OPCODE_Z990
;
199 fprintf (stderr
, "Couldn't parse cpu string %s\n", cpu_string
);
206 if (strncmp (str
, "esa", 3) == 0
207 && (str
[3] == 0 || str
[3] == ',')) {
208 mode_bits
|= 1 << S390_OPCODE_ESA
;
210 } else if (strncmp (str
, "zarch", 5) == 0
211 && (str
[5] == 0 || str
[5] == ',')) {
212 mode_bits
|= 1 << S390_OPCODE_ZARCH
;
215 fprintf (stderr
, "Couldn't parse modes string %s\n",
222 insertOpcode (opcode
, mnemonic
, format
, min_cpu
, mode_bits
);
225 fprintf (stderr
, "Couldn't scan line %s\n", currentLine
);
This page took 0.033941 seconds and 4 git commands to generate.