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).
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., 51 Franklin Street - Fifth Floor, Boston, MA
26 /* Taken from opcodes/s390.h */
27 enum s390_opcode_mode_val
33 enum s390_opcode_cpu_val
50 unsigned long long sort_value
;
54 struct op_struct
*op_array
;
62 op_array
= malloc (max_ops
* sizeof (struct op_struct
));
66 /* `insertOpcode': insert an op_struct into sorted opcode array. */
69 insertOpcode (char *opcode
, char *mnemonic
, char *format
,
70 int min_cpu
, int mode_bits
)
73 unsigned long long sort_value
;
77 while (no_ops
>= max_ops
)
79 max_ops
= max_ops
* 2;
80 op_array
= realloc (op_array
, max_ops
* sizeof (struct op_struct
));
85 for (ix
= 0; ix
< 16; ix
++)
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);
99 sort_value
<<= 4*(16 - ix
);
100 sort_value
+= (min_cpu
<< 8) + mode_bits
;
102 for (ix
= 0; ix
< no_ops
; ix
++)
103 if (sort_value
> op_array
[ix
].sort_value
)
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
;
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";
130 /* `dumpTable': write opcode table. */
138 /* Write hash table entries (slots). */
139 printf (file_header
);
141 for (ix
= 0; ix
< no_ops
; ix
++)
143 printf (" { \"%s\", ", op_array
[ix
].mnemonic
);
144 for (str
= op_array
[ix
].opcode
; *str
!= 0; str
++)
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
);
159 printf ("const int s390_num_opcodes =\n");
160 printf (" sizeof (s390_opcodes) / sizeof (s390_opcodes[0]);\n\n");
166 char currentLine
[256];
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
)
177 char description
[64];
179 char modes_string
[16];
184 if (currentLine
[0] == '#')
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)
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
;
202 fprintf (stderr
, "Couldn't parse cpu string %s\n", cpu_string
);
209 if (strncmp (str
, "esa", 3) == 0
210 && (str
[3] == 0 || str
[3] == ',')) {
211 mode_bits
|= 1 << S390_OPCODE_ESA
;
213 } else if (strncmp (str
, "zarch", 5) == 0
214 && (str
[5] == 0 || str
[5] == ',')) {
215 mode_bits
|= 1 << S390_OPCODE_ZARCH
;
218 fprintf (stderr
, "Couldn't parse modes string %s\n",
225 insertOpcode (opcode
, mnemonic
, format
, min_cpu
, mode_bits
);
228 fprintf (stderr
, "Couldn't scan line %s\n", currentLine
);
This page took 0.034206 seconds and 4 git commands to generate.