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
48 unsigned long long sort_value
;
52 struct op_struct
*op_array
;
60 op_array
= malloc (max_ops
* sizeof (struct op_struct
));
64 /* `insertOpcode': insert an op_struct into sorted opcode array. */
67 insertOpcode (char *opcode
, char *mnemonic
, char *format
,
68 int min_cpu
, int mode_bits
)
71 unsigned long long sort_value
;
75 while (no_ops
>= max_ops
)
77 max_ops
= max_ops
* 2;
78 op_array
= realloc (op_array
, max_ops
* sizeof (struct op_struct
));
83 for (ix
= 0; ix
< 16; ix
++)
85 if (*str
>= '0' && *str
<= '9')
86 sort_value
= (sort_value
<< 4) + (*str
- '0');
87 else if (*str
>= 'a' && *str
<= 'f')
88 sort_value
= (sort_value
<< 4) + (*str
- 'a' + 10);
89 else if (*str
>= 'A' && *str
<= 'F')
90 sort_value
= (sort_value
<< 4) + (*str
- 'A' + 10);
97 sort_value
<<= 4*(16 - ix
);
98 sort_value
+= (min_cpu
<< 8) + mode_bits
;
100 for (ix
= 0; ix
< no_ops
; ix
++)
101 if (sort_value
> op_array
[ix
].sort_value
)
103 for (k
= no_ops
; k
> ix
; k
--)
104 op_array
[k
] = op_array
[k
-1];
105 strcpy(op_array
[ix
].opcode
, opcode
);
106 strcpy(op_array
[ix
].mnemonic
, mnemonic
);
107 strcpy(op_array
[ix
].format
, format
);
108 op_array
[ix
].sort_value
= sort_value
;
109 op_array
[ix
].no_nibbles
= no_nibbles
;
110 op_array
[ix
].min_cpu
= min_cpu
;
111 op_array
[ix
].mode_bits
= mode_bits
;
115 static char file_header
[] =
116 "/* The opcode table. This file was generated by s390-mkopc.\n\n"
117 " The format of the opcode table is:\n\n"
118 " NAME OPCODE MASK OPERANDS\n\n"
119 " Name is the name of the instruction.\n"
120 " OPCODE is the instruction opcode.\n"
121 " MASK is the opcode mask; this is used to tell the disassembler\n"
122 " which bits in the actual opcode must match OPCODE.\n"
123 " OPERANDS is the list of operands.\n\n"
124 " The disassembler reads the table in order and prints the first\n"
125 " instruction which matches. */\n\n"
126 "const struct s390_opcode s390_opcodes[] =\n {\n";
128 /* `dumpTable': write opcode table. */
136 /* Write hash table entries (slots). */
137 printf (file_header
);
139 for (ix
= 0; ix
< no_ops
; ix
++)
141 printf (" { \"%s\", ", op_array
[ix
].mnemonic
);
142 for (str
= op_array
[ix
].opcode
; *str
!= 0; str
++)
145 printf ("OP%i(0x%sLL), ",
146 op_array
[ix
].no_nibbles
*4, op_array
[ix
].opcode
);
147 printf ("MASK_%s, INSTR_%s, ",
148 op_array
[ix
].format
, op_array
[ix
].format
);
149 printf ("%i, ", op_array
[ix
].mode_bits
);
150 printf ("%i}", op_array
[ix
].min_cpu
);
157 printf ("const int s390_num_opcodes =\n");
158 printf (" sizeof (s390_opcodes) / sizeof (s390_opcodes[0]);\n\n");
164 char currentLine
[256];
168 /* Read opcode descriptions from `stdin'. For each mnemonic,
169 make an entry into the opcode table. */
170 while (fgets (currentLine
, sizeof (currentLine
), stdin
) != NULL
)
175 char description
[64];
177 char modes_string
[16];
182 if (currentLine
[0] == '#')
184 memset (opcode
, 0, 8);
185 if (sscanf (currentLine
, "%15s %15s %15s \"%[^\"]\" %15s %15s",
186 opcode
, mnemonic
, format
, description
,
187 cpu_string
, modes_string
) == 6)
189 if (strcmp (cpu_string
, "g5") == 0)
190 min_cpu
= S390_OPCODE_G5
;
191 else if (strcmp (cpu_string
, "g6") == 0)
192 min_cpu
= S390_OPCODE_G6
;
193 else if (strcmp (cpu_string
, "z900") == 0)
194 min_cpu
= S390_OPCODE_Z900
;
196 fprintf (stderr
, "Couldn't parse cpu string %s\n", cpu_string
);
203 if (strncmp (str
, "esa", 3) == 0
204 && (str
[3] == 0 || str
[3] == ',')) {
205 mode_bits
|= 1 << S390_OPCODE_ESA
;
207 } else if (strncmp (str
, "zarch", 5) == 0
208 && (str
[5] == 0 || str
[5] == ',')) {
209 mode_bits
|= 1 << S390_OPCODE_ZARCH
;
212 fprintf (stderr
, "Couldn't parse modes string %s\n",
219 insertOpcode (opcode
, mnemonic
, format
, min_cpu
, mode_bits
);
222 fprintf (stderr
, "Couldn't scan line %s\n", currentLine
);
This page took 0.039025 seconds and 4 git commands to generate.