OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [binutils-2.20.1/] [opcodes/] [ip2k-opc.c] - Blame information for rev 843

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 205 julius 
/* Instruction opcode table for ip2k.
2 
 
3 
THIS FILE IS MACHINE GENERATED WITH CGEN.
4 
 
5 
Copyright 1996-2009 Free Software Foundation, Inc.
6 
 
7 
This file is part of the GNU Binutils and/or GDB, the GNU debugger.
8 
 
9 
   This file is free software; you can redistribute it and/or modify
10 
   it under the terms of the GNU General Public License as published by
11 
   the Free Software Foundation; either version 3, or (at your option)
12 
   any later version.
13 
 
14 
   It is distributed in the hope that it will be useful, but WITHOUT
15 
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
16 
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
17 
   License for more details.
18 
 
19 
   You should have received a copy of the GNU General Public License along
20 
   with this program; if not, write to the Free Software Foundation, Inc.,
21 
   51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
22 
 
23 
*/
24 
 
25 
#include "sysdep.h"
26 
#include "ansidecl.h"
27 
#include "bfd.h"
28 
#include "symcat.h"
29 
#include "ip2k-desc.h"
30 
#include "ip2k-opc.h"
31 
#include "libiberty.h"
32 
 
33 
/* -- opc.c */
34 
 
35 
#include "safe-ctype.h"
36 
 
37 
/* A better hash function for instruction mnemonics.  */
38 
unsigned int
39 
ip2k_asm_hash (const char* insn)
40 
{
41 
  unsigned int hash;
42 
  const char* m = insn;
43 
 
44 
  for (hash = 0; *m && ! ISSPACE (*m); m++)
45 
    hash = (hash * 23) ^ (0x1F & TOLOWER (*m));
46 
 
47 
  /* printf ("%s %d\n", insn, (hash % CGEN_ASM_HASH_SIZE)); */
48 
 
49 
  return hash % CGEN_ASM_HASH_SIZE;
50 
}
51 
 
52 
 
53 
/* Special check to ensure that instruction exists for given machine.  */
54 
 
55 
int
56 
ip2k_cgen_insn_supported (CGEN_CPU_DESC cd, const CGEN_INSN *insn)
57 
{
58 
  int machs = CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_MACH);
59 
 
60 
  /* No mach attribute?  Assume it's supported for all machs.  */
61 
  if (machs == 0)
62 
    return 1;
63 
 
64 
  return (machs & cd->machs) != 0;
65 
}
66 
 
67 
 
68 
/* -- asm.c */
69 
/* The hash functions are recorded here to help keep assembler code out of
70 
   the disassembler and vice versa.  */
71 
 
72 
static int asm_hash_insn_p        (const CGEN_INSN *);
73 
static unsigned int asm_hash_insn (const char *);
74 
static int dis_hash_insn_p        (const CGEN_INSN *);
75 
static unsigned int dis_hash_insn (const char *, CGEN_INSN_INT);
76 
 
77 
/* Instruction formats.  */
78 
 
79 
#if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
80 
#define F(f) & ip2k_cgen_ifld_table[IP2K_##f]
81 
#else
82 
#define F(f) & ip2k_cgen_ifld_table[IP2K_/**/f]
83 
#endif
84 
static const CGEN_IFMT ifmt_empty ATTRIBUTE_UNUSED = {
85 
  0, 0, 0x0, { { 0 } }
86 
};
87 
 
88 
static const CGEN_IFMT ifmt_jmp ATTRIBUTE_UNUSED = {
89 
  16, 16, 0xe000, { { F (F_OP3) }, { F (F_ADDR16CJP) }, { 0 } }
90 
};
91 
 
92 
static const CGEN_IFMT ifmt_sb ATTRIBUTE_UNUSED = {
93 
  16, 16, 0xf000, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
94 
};
95 
 
96 
static const CGEN_IFMT ifmt_xorw_l ATTRIBUTE_UNUSED = {
97 
  16, 16, 0xff00, { { F (F_OP4) }, { F (F_OP4MID) }, { F (F_IMM8) }, { 0 } }
98 
};
99 
 
100 
static const CGEN_IFMT ifmt_loadl_a ATTRIBUTE_UNUSED = {
101 
  16, 16, 0xff00, { { F (F_OP4) }, { F (F_OP4MID) }, { F (F_IMM8) }, { 0 } }
102 
};
103 
 
104 
static const CGEN_IFMT ifmt_loadh_a ATTRIBUTE_UNUSED = {
105 
  16, 16, 0xff00, { { F (F_OP4) }, { F (F_OP4MID) }, { F (F_IMM8) }, { 0 } }
106 
};
107 
 
108 
static const CGEN_IFMT ifmt_addcfr_w ATTRIBUTE_UNUSED = {
109 
  16, 16, 0xfe00, { { F (F_OP6) }, { F (F_DIR) }, { F (F_REG) }, { 0 } }
110 
};
111 
 
112 
static const CGEN_IFMT ifmt_speed ATTRIBUTE_UNUSED = {
113 
  16, 16, 0xff00, { { F (F_OP8) }, { F (F_IMM8) }, { 0 } }
114 
};
115 
 
116 
static const CGEN_IFMT ifmt_ireadi ATTRIBUTE_UNUSED = {
117 
  16, 16, 0xffff, { { F (F_OP6) }, { F (F_OP6_10LOW) }, { 0 } }
118 
};
119 
 
120 
static const CGEN_IFMT ifmt_page ATTRIBUTE_UNUSED = {
121 
  16, 16, 0xfff8, { { F (F_OP6) }, { F (F_OP6_7LOW) }, { F (F_PAGE3) }, { 0 } }
122 
};
123 
 
124 
static const CGEN_IFMT ifmt_reti ATTRIBUTE_UNUSED = {
125 
  16, 16, 0xfff8, { { F (F_OP6) }, { F (F_OP6_7LOW) }, { F (F_RETI3) }, { 0 } }
126 
};
127 
 
128 
#undef F
129 
 
130 
#if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
131 
#define A(a) (1 << CGEN_INSN_##a)
132 
#else
133 
#define A(a) (1 << CGEN_INSN_/**/a)
134 
#endif
135 
#if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
136 
#define OPERAND(op) IP2K_OPERAND_##op
137 
#else
138 
#define OPERAND(op) IP2K_OPERAND_/**/op
139 
#endif
140 
#define MNEM CGEN_SYNTAX_MNEMONIC /* syntax value for mnemonic */
141 
#define OP(field) CGEN_SYNTAX_MAKE_FIELD (OPERAND (field))
142 
 
143 
/* The instruction table.  */
144 
 
145 
static const CGEN_OPCODE ip2k_cgen_insn_opcode_table[MAX_INSNS] =
146 
{
147 
  /* Special null first entry.
148 
     A `num' value of zero is thus invalid.
149 
     Also, the special `invalid' insn resides here.  */
150 
  { { 0, 0, 0, 0 }, {{0}}, 0, {0}},
151 
/* jmp $addr16cjp */
152 
  {
153 
    { 0, 0, 0, 0 },
154 
    { { MNEM, ' ', OP (ADDR16CJP), 0 } },
155 
    & ifmt_jmp, { 0xe000 }
156 
  },
157 
/* call $addr16cjp */
158 
  {
159 
    { 0, 0, 0, 0 },
160 
    { { MNEM, ' ', OP (ADDR16CJP), 0 } },
161 
    & ifmt_jmp, { 0xc000 }
162 
  },
163 
/* sb $fr,$bitno */
164 
  {
165 
    { 0, 0, 0, 0 },
166 
    { { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
167 
    & ifmt_sb, { 0xb000 }
168 
  },
169 
/* snb $fr,$bitno */
170 
  {
171 
    { 0, 0, 0, 0 },
172 
    { { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
173 
    & ifmt_sb, { 0xa000 }
174 
  },
175 
/* setb $fr,$bitno */
176 
  {
177 
    { 0, 0, 0, 0 },
178 
    { { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
179 
    & ifmt_sb, { 0x9000 }
180 
  },
181 
/* clrb $fr,$bitno */
182 
  {
183 
    { 0, 0, 0, 0 },
184 
    { { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
185 
    & ifmt_sb, { 0x8000 }
186 
  },
187 
/* xor W,#$lit8 */
188 
  {
189 
    { 0, 0, 0, 0 },
190 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
191 
    & ifmt_xorw_l, { 0x7f00 }
192 
  },
193 
/* and W,#$lit8 */
194 
  {
195 
    { 0, 0, 0, 0 },
196 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
197 
    & ifmt_xorw_l, { 0x7e00 }
198 
  },
199 
/* or W,#$lit8 */
200 
  {
201 
    { 0, 0, 0, 0 },
202 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
203 
    & ifmt_xorw_l, { 0x7d00 }
204 
  },
205 
/* add W,#$lit8 */
206 
  {
207 
    { 0, 0, 0, 0 },
208 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
209 
    & ifmt_xorw_l, { 0x7b00 }
210 
  },
211 
/* sub W,#$lit8 */
212 
  {
213 
    { 0, 0, 0, 0 },
214 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
215 
    & ifmt_xorw_l, { 0x7a00 }
216 
  },
217 
/* cmp W,#$lit8 */
218 
  {
219 
    { 0, 0, 0, 0 },
220 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
221 
    & ifmt_xorw_l, { 0x7900 }
222 
  },
223 
/* retw #$lit8 */
224 
  {
225 
    { 0, 0, 0, 0 },
226 
    { { MNEM, ' ', '#', OP (LIT8), 0 } },
227 
    & ifmt_xorw_l, { 0x7800 }
228 
  },
229 
/* cse W,#$lit8 */
230 
  {
231 
    { 0, 0, 0, 0 },
232 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
233 
    & ifmt_xorw_l, { 0x7700 }
234 
  },
235 
/* csne W,#$lit8 */
236 
  {
237 
    { 0, 0, 0, 0 },
238 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
239 
    & ifmt_xorw_l, { 0x7600 }
240 
  },
241 
/* push #$lit8 */
242 
  {
243 
    { 0, 0, 0, 0 },
244 
    { { MNEM, ' ', '#', OP (LIT8), 0 } },
245 
    & ifmt_xorw_l, { 0x7400 }
246 
  },
247 
/* muls W,#$lit8 */
248 
  {
249 
    { 0, 0, 0, 0 },
250 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
251 
    & ifmt_xorw_l, { 0x7300 }
252 
  },
253 
/* mulu W,#$lit8 */
254 
  {
255 
    { 0, 0, 0, 0 },
256 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
257 
    & ifmt_xorw_l, { 0x7200 }
258 
  },
259 
/* loadl #$lit8 */
260 
  {
261 
    { 0, 0, 0, 0 },
262 
    { { MNEM, ' ', '#', OP (LIT8), 0 } },
263 
    & ifmt_xorw_l, { 0x7100 }
264 
  },
265 
/* loadh #$lit8 */
266 
  {
267 
    { 0, 0, 0, 0 },
268 
    { { MNEM, ' ', '#', OP (LIT8), 0 } },
269 
    & ifmt_xorw_l, { 0x7000 }
270 
  },
271 
/* loadl $addr16l */
272 
  {
273 
    { 0, 0, 0, 0 },
274 
    { { MNEM, ' ', OP (ADDR16L), 0 } },
275 
    & ifmt_loadl_a, { 0x7100 }
276 
  },
277 
/* loadh $addr16h */
278 
  {
279 
    { 0, 0, 0, 0 },
280 
    { { MNEM, ' ', OP (ADDR16H), 0 } },
281 
    & ifmt_loadh_a, { 0x7000 }
282 
  },
283 
/* addc $fr,W */
284 
  {
285 
    { 0, 0, 0, 0 },
286 
    { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
287 
    & ifmt_addcfr_w, { 0x5e00 }
288 
  },
289 
/* addc W,$fr */
290 
  {
291 
    { 0, 0, 0, 0 },
292 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
293 
    & ifmt_addcfr_w, { 0x5c00 }
294 
  },
295 
/* incsnz $fr */
296 
  {
297 
    { 0, 0, 0, 0 },
298 
    { { MNEM, ' ', OP (FR), 0 } },
299 
    & ifmt_addcfr_w, { 0x5a00 }
300 
  },
301 
/* incsnz W,$fr */
302 
  {
303 
    { 0, 0, 0, 0 },
304 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
305 
    & ifmt_addcfr_w, { 0x5800 }
306 
  },
307 
/* muls W,$fr */
308 
  {
309 
    { 0, 0, 0, 0 },
310 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
311 
    & ifmt_addcfr_w, { 0x5400 }
312 
  },
313 
/* mulu W,$fr */
314 
  {
315 
    { 0, 0, 0, 0 },
316 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
317 
    & ifmt_addcfr_w, { 0x5000 }
318 
  },
319 
/* decsnz $fr */
320 
  {
321 
    { 0, 0, 0, 0 },
322 
    { { MNEM, ' ', OP (FR), 0 } },
323 
    & ifmt_addcfr_w, { 0x4e00 }
324 
  },
325 
/* decsnz W,$fr */
326 
  {
327 
    { 0, 0, 0, 0 },
328 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
329 
    & ifmt_addcfr_w, { 0x4c00 }
330 
  },
331 
/* subc W,$fr */
332 
  {
333 
    { 0, 0, 0, 0 },
334 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
335 
    & ifmt_addcfr_w, { 0x4800 }
336 
  },
337 
/* subc $fr,W */
338 
  {
339 
    { 0, 0, 0, 0 },
340 
    { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
341 
    & ifmt_addcfr_w, { 0x4a00 }
342 
  },
343 
/* pop $fr */
344 
  {
345 
    { 0, 0, 0, 0 },
346 
    { { MNEM, ' ', OP (FR), 0 } },
347 
    & ifmt_addcfr_w, { 0x4600 }
348 
  },
349 
/* push $fr */
350 
  {
351 
    { 0, 0, 0, 0 },
352 
    { { MNEM, ' ', OP (FR), 0 } },
353 
    & ifmt_addcfr_w, { 0x4400 }
354 
  },
355 
/* cse W,$fr */
356 
  {
357 
    { 0, 0, 0, 0 },
358 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
359 
    & ifmt_addcfr_w, { 0x4200 }
360 
  },
361 
/* csne W,$fr */
362 
  {
363 
    { 0, 0, 0, 0 },
364 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
365 
    & ifmt_addcfr_w, { 0x4000 }
366 
  },
367 
/* incsz $fr */
368 
  {
369 
    { 0, 0, 0, 0 },
370 
    { { MNEM, ' ', OP (FR), 0 } },
371 
    & ifmt_addcfr_w, { 0x3e00 }
372 
  },
373 
/* incsz W,$fr */
374 
  {
375 
    { 0, 0, 0, 0 },
376 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
377 
    & ifmt_addcfr_w, { 0x3c00 }
378 
  },
379 
/* swap $fr */
380 
  {
381 
    { 0, 0, 0, 0 },
382 
    { { MNEM, ' ', OP (FR), 0 } },
383 
    & ifmt_addcfr_w, { 0x3a00 }
384 
  },
385 
/* swap W,$fr */
386 
  {
387 
    { 0, 0, 0, 0 },
388 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
389 
    & ifmt_addcfr_w, { 0x3800 }
390 
  },
391 
/* rl $fr */
392 
  {
393 
    { 0, 0, 0, 0 },
394 
    { { MNEM, ' ', OP (FR), 0 } },
395 
    & ifmt_addcfr_w, { 0x3600 }
396 
  },
397 
/* rl W,$fr */
398 
  {
399 
    { 0, 0, 0, 0 },
400 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
401 
    & ifmt_addcfr_w, { 0x3400 }
402 
  },
403 
/* rr $fr */
404 
  {
405 
    { 0, 0, 0, 0 },
406 
    { { MNEM, ' ', OP (FR), 0 } },
407 
    & ifmt_addcfr_w, { 0x3200 }
408 
  },
409 
/* rr W,$fr */
410 
  {
411 
    { 0, 0, 0, 0 },
412 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
413 
    & ifmt_addcfr_w, { 0x3000 }
414 
  },
415 
/* decsz $fr */
416 
  {
417 
    { 0, 0, 0, 0 },
418 
    { { MNEM, ' ', OP (FR), 0 } },
419 
    & ifmt_addcfr_w, { 0x2e00 }
420 
  },
421 
/* decsz W,$fr */
422 
  {
423 
    { 0, 0, 0, 0 },
424 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
425 
    & ifmt_addcfr_w, { 0x2c00 }
426 
  },
427 
/* inc $fr */
428 
  {
429 
    { 0, 0, 0, 0 },
430 
    { { MNEM, ' ', OP (FR), 0 } },
431 
    & ifmt_addcfr_w, { 0x2a00 }
432 
  },
433 
/* inc W,$fr */
434 
  {
435 
    { 0, 0, 0, 0 },
436 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
437 
    & ifmt_addcfr_w, { 0x2800 }
438 
  },
439 
/* not $fr */
440 
  {
441 
    { 0, 0, 0, 0 },
442 
    { { MNEM, ' ', OP (FR), 0 } },
443 
    & ifmt_addcfr_w, { 0x2600 }
444 
  },
445 
/* not W,$fr */
446 
  {
447 
    { 0, 0, 0, 0 },
448 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
449 
    & ifmt_addcfr_w, { 0x2400 }
450 
  },
451 
/* test $fr */
452 
  {
453 
    { 0, 0, 0, 0 },
454 
    { { MNEM, ' ', OP (FR), 0 } },
455 
    & ifmt_addcfr_w, { 0x2200 }
456 
  },
457 
/* mov W,#$lit8 */
458 
  {
459 
    { 0, 0, 0, 0 },
460 
    { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
461 
    & ifmt_xorw_l, { 0x7c00 }
462 
  },
463 
/* mov $fr,W */
464 
  {
465 
    { 0, 0, 0, 0 },
466 
    { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
467 
    & ifmt_addcfr_w, { 0x200 }
468 
  },
469 
/* mov W,$fr */
470 
  {
471 
    { 0, 0, 0, 0 },
472 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
473 
    & ifmt_addcfr_w, { 0x2000 }
474 
  },
475 
/* add $fr,W */
476 
  {
477 
    { 0, 0, 0, 0 },
478 
    { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
479 
    & ifmt_addcfr_w, { 0x1e00 }
480 
  },
481 
/* add W,$fr */
482 
  {
483 
    { 0, 0, 0, 0 },
484 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
485 
    & ifmt_addcfr_w, { 0x1c00 }
486 
  },
487 
/* xor $fr,W */
488 
  {
489 
    { 0, 0, 0, 0 },
490 
    { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
491 
    & ifmt_addcfr_w, { 0x1a00 }
492 
  },
493 
/* xor W,$fr */
494 
  {
495 
    { 0, 0, 0, 0 },
496 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
497 
    & ifmt_addcfr_w, { 0x1800 }
498 
  },
499 
/* and $fr,W */
500 
  {
501 
    { 0, 0, 0, 0 },
502 
    { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
503 
    & ifmt_addcfr_w, { 0x1600 }
504 
  },
505 
/* and W,$fr */
506 
  {
507 
    { 0, 0, 0, 0 },
508 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
509 
    & ifmt_addcfr_w, { 0x1400 }
510 
  },
511 
/* or $fr,W */
512 
  {
513 
    { 0, 0, 0, 0 },
514 
    { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
515 
    & ifmt_addcfr_w, { 0x1200 }
516 
  },
517 
/* or W,$fr */
518 
  {
519 
    { 0, 0, 0, 0 },
520 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
521 
    & ifmt_addcfr_w, { 0x1000 }
522 
  },
523 
/* dec $fr */
524 
  {
525 
    { 0, 0, 0, 0 },
526 
    { { MNEM, ' ', OP (FR), 0 } },
527 
    & ifmt_addcfr_w, { 0xe00 }
528 
  },
529 
/* dec W,$fr */
530 
  {
531 
    { 0, 0, 0, 0 },
532 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
533 
    & ifmt_addcfr_w, { 0xc00 }
534 
  },
535 
/* sub $fr,W */
536 
  {
537 
    { 0, 0, 0, 0 },
538 
    { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
539 
    & ifmt_addcfr_w, { 0xa00 }
540 
  },
541 
/* sub W,$fr */
542 
  {
543 
    { 0, 0, 0, 0 },
544 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
545 
    & ifmt_addcfr_w, { 0x800 }
546 
  },
547 
/* clr $fr */
548 
  {
549 
    { 0, 0, 0, 0 },
550 
    { { MNEM, ' ', OP (FR), 0 } },
551 
    & ifmt_addcfr_w, { 0x600 }
552 
  },
553 
/* cmp W,$fr */
554 
  {
555 
    { 0, 0, 0, 0 },
556 
    { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
557 
    & ifmt_addcfr_w, { 0x400 }
558 
  },
559 
/* speed #$lit8 */
560 
  {
561 
    { 0, 0, 0, 0 },
562 
    { { MNEM, ' ', '#', OP (LIT8), 0 } },
563 
    & ifmt_speed, { 0x100 }
564 
  },
565 
/* ireadi */
566 
  {
567 
    { 0, 0, 0, 0 },
568 
    { { MNEM, 0 } },
569 
    & ifmt_ireadi, { 0x1d }
570 
  },
571 
/* iwritei */
572 
  {
573 
    { 0, 0, 0, 0 },
574 
    { { MNEM, 0 } },
575 
    & ifmt_ireadi, { 0x1c }
576 
  },
577 
/* fread */
578 
  {
579 
    { 0, 0, 0, 0 },
580 
    { { MNEM, 0 } },
581 
    & ifmt_ireadi, { 0x1b }
582 
  },
583 
/* fwrite */
584 
  {
585 
    { 0, 0, 0, 0 },
586 
    { { MNEM, 0 } },
587 
    & ifmt_ireadi, { 0x1a }
588 
  },
589 
/* iread */
590 
  {
591 
    { 0, 0, 0, 0 },
592 
    { { MNEM, 0 } },
593 
    & ifmt_ireadi, { 0x19 }
594 
  },
595 
/* iwrite */
596 
  {
597 
    { 0, 0, 0, 0 },
598 
    { { MNEM, 0 } },
599 
    & ifmt_ireadi, { 0x18 }
600 
  },
601 
/* page $addr16p */
602 
  {
603 
    { 0, 0, 0, 0 },
604 
    { { MNEM, ' ', OP (ADDR16P), 0 } },
605 
    & ifmt_page, { 0x10 }
606 
  },
607 
/* system */
608 
  {
609 
    { 0, 0, 0, 0 },
610 
    { { MNEM, 0 } },
611 
    & ifmt_ireadi, { 0xff }
612 
  },
613 
/* reti #$reti3 */
614 
  {
615 
    { 0, 0, 0, 0 },
616 
    { { MNEM, ' ', '#', OP (RETI3), 0 } },
617 
    & ifmt_reti, { 0x8 }
618 
  },
619 
/* ret */
620 
  {
621 
    { 0, 0, 0, 0 },
622 
    { { MNEM, 0 } },
623 
    & ifmt_ireadi, { 0x7 }
624 
  },
625 
/* int */
626 
  {
627 
    { 0, 0, 0, 0 },
628 
    { { MNEM, 0 } },
629 
    & ifmt_ireadi, { 0x6 }
630 
  },
631 
/* breakx */
632 
  {
633 
    { 0, 0, 0, 0 },
634 
    { { MNEM, 0 } },
635 
    & ifmt_ireadi, { 0x5 }
636 
  },
637 
/* cwdt */
638 
  {
639 
    { 0, 0, 0, 0 },
640 
    { { MNEM, 0 } },
641 
    & ifmt_ireadi, { 0x4 }
642 
  },
643 
/* ferase */
644 
  {
645 
    { 0, 0, 0, 0 },
646 
    { { MNEM, 0 } },
647 
    & ifmt_ireadi, { 0x3 }
648 
  },
649 
/* retnp */
650 
  {
651 
    { 0, 0, 0, 0 },
652 
    { { MNEM, 0 } },
653 
    & ifmt_ireadi, { 0x2 }
654 
  },
655 
/* break */
656 
  {
657 
    { 0, 0, 0, 0 },
658 
    { { MNEM, 0 } },
659 
    & ifmt_ireadi, { 0x1 }
660 
  },
661 
/* nop */
662 
  {
663 
    { 0, 0, 0, 0 },
664 
    { { MNEM, 0 } },
665 
    & ifmt_ireadi, { 0x0 }
666 
  },
667 
};
668 
 
669 
#undef A
670 
#undef OPERAND
671 
#undef MNEM
672 
#undef OP
673 
 
674 
/* Formats for ALIAS macro-insns.  */
675 
 
676 
#if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
677 
#define F(f) & ip2k_cgen_ifld_table[IP2K_##f]
678 
#else
679 
#define F(f) & ip2k_cgen_ifld_table[IP2K_/**/f]
680 
#endif
681 
static const CGEN_IFMT ifmt_sc ATTRIBUTE_UNUSED = {
682 
  16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
683 
};
684 
 
685 
static const CGEN_IFMT ifmt_snc ATTRIBUTE_UNUSED = {
686 
  16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
687 
};
688 
 
689 
static const CGEN_IFMT ifmt_sz ATTRIBUTE_UNUSED = {
690 
  16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
691 
};
692 
 
693 
static const CGEN_IFMT ifmt_snz ATTRIBUTE_UNUSED = {
694 
  16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
695 
};
696 
 
697 
static const CGEN_IFMT ifmt_skip ATTRIBUTE_UNUSED = {
698 
  16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
699 
};
700 
 
701 
static const CGEN_IFMT ifmt_skipb ATTRIBUTE_UNUSED = {
702 
  16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
703 
};
704 
 
705 
#undef F
706 
 
707 
/* Each non-simple macro entry points to an array of expansion possibilities.  */
708 
 
709 
#if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
710 
#define A(a) (1 << CGEN_INSN_##a)
711 
#else
712 
#define A(a) (1 << CGEN_INSN_/**/a)
713 
#endif
714 
#if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
715 
#define OPERAND(op) IP2K_OPERAND_##op
716 
#else
717 
#define OPERAND(op) IP2K_OPERAND_/**/op
718 
#endif
719 
#define MNEM CGEN_SYNTAX_MNEMONIC /* syntax value for mnemonic */
720 
#define OP(field) CGEN_SYNTAX_MAKE_FIELD (OPERAND (field))
721 
 
722 
/* The macro instruction table.  */
723 
 
724 
static const CGEN_IBASE ip2k_cgen_macro_insn_table[] =
725 
{
726 
/* sc */
727 
  {
728 
    -1, "sc", "sc", 16,
729 
    { 0|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
730 
  },
731 
/* snc */
732 
  {
733 
    -1, "snc", "snc", 16,
734 
    { 0|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
735 
  },
736 
/* sz */
737 
  {
738 
    -1, "sz", "sz", 16,
739 
    { 0|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
740 
  },
741 
/* snz */
742 
  {
743 
    -1, "snz", "snz", 16,
744 
    { 0|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
745 
  },
746 
/* skip */
747 
  {
748 
    -1, "skip", "skip", 16,
749 
    { 0|A(SKIPA)|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
750 
  },
751 
/* skip */
752 
  {
753 
    -1, "skipb", "skip", 16,
754 
    { 0|A(SKIPA)|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
755 
  },
756 
};
757 
 
758 
/* The macro instruction opcode table.  */
759 
 
760 
static const CGEN_OPCODE ip2k_cgen_macro_insn_opcode_table[] =
761 
{
762 
/* sc */
763 
  {
764 
    { 0, 0, 0, 0 },
765 
    { { MNEM, 0 } },
766 
    & ifmt_sc, { 0xb00b }
767 
  },
768 
/* snc */
769 
  {
770 
    { 0, 0, 0, 0 },
771 
    { { MNEM, 0 } },
772 
    & ifmt_snc, { 0xa00b }
773 
  },
774 
/* sz */
775 
  {
776 
    { 0, 0, 0, 0 },
777 
    { { MNEM, 0 } },
778 
    & ifmt_sz, { 0xb40b }
779 
  },
780 
/* snz */
781 
  {
782 
    { 0, 0, 0, 0 },
783 
    { { MNEM, 0 } },
784 
    & ifmt_snz, { 0xa40b }
785 
  },
786 
/* skip */
787 
  {
788 
    { 0, 0, 0, 0 },
789 
    { { MNEM, 0 } },
790 
    & ifmt_skip, { 0xa009 }
791 
  },
792 
/* skip */
793 
  {
794 
    { 0, 0, 0, 0 },
795 
    { { MNEM, 0 } },
796 
    & ifmt_skipb, { 0xb009 }
797 
  },
798 
};
799 
 
800 
#undef A
801 
#undef OPERAND
802 
#undef MNEM
803 
#undef OP
804 
 
805 
#ifndef CGEN_ASM_HASH_P
806 
#define CGEN_ASM_HASH_P(insn) 1
807 
#endif
808 
 
809 
#ifndef CGEN_DIS_HASH_P
810 
#define CGEN_DIS_HASH_P(insn) 1
811 
#endif
812 
 
813 
/* Return non-zero if INSN is to be added to the hash table.
814 
   Targets are free to override CGEN_{ASM,DIS}_HASH_P in the .opc file.  */
815 
 
816 
static int
817 
asm_hash_insn_p (insn)
818 
     const CGEN_INSN *insn ATTRIBUTE_UNUSED;
819 
{
820 
  return CGEN_ASM_HASH_P (insn);
821 
}
822 
 
823 
static int
824 
dis_hash_insn_p (insn)
825 
     const CGEN_INSN *insn;
826 
{
827 
  /* If building the hash table and the NO-DIS attribute is present,
828 
     ignore.  */
829 
  if (CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_NO_DIS))
830 
    return 0;
831 
  return CGEN_DIS_HASH_P (insn);
832 
}
833 
 
834 
#ifndef CGEN_ASM_HASH
835 
#define CGEN_ASM_HASH_SIZE 127
836 
#ifdef CGEN_MNEMONIC_OPERANDS
837 
#define CGEN_ASM_HASH(mnem) (*(unsigned char *) (mnem) % CGEN_ASM_HASH_SIZE)
838 
#else
839 
#define CGEN_ASM_HASH(mnem) (*(unsigned char *) (mnem) % CGEN_ASM_HASH_SIZE) /*FIXME*/
840 
#endif
841 
#endif
842 
 
843 
/* It doesn't make much sense to provide a default here,
844 
   but while this is under development we do.
845 
   BUFFER is a pointer to the bytes of the insn, target order.
846 
   VALUE is the first base_insn_bitsize bits as an int in host order.  */
847 
 
848 
#ifndef CGEN_DIS_HASH
849 
#define CGEN_DIS_HASH_SIZE 256
850 
#define CGEN_DIS_HASH(buf, value) (*(unsigned char *) (buf))
851 
#endif
852 
 
853 
/* The result is the hash value of the insn.
854 
   Targets are free to override CGEN_{ASM,DIS}_HASH in the .opc file.  */
855 
 
856 
static unsigned int
857 
asm_hash_insn (mnem)
858 
     const char * mnem;
859 
{
860 
  return CGEN_ASM_HASH (mnem);
861 
}
862 
 
863 
/* BUF is a pointer to the bytes of the insn, target order.
864 
   VALUE is the first base_insn_bitsize bits as an int in host order.  */
865 
 
866 
static unsigned int
867 
dis_hash_insn (buf, value)
868 
     const char * buf ATTRIBUTE_UNUSED;
869 
     CGEN_INSN_INT value ATTRIBUTE_UNUSED;
870 
{
871 
  return CGEN_DIS_HASH (buf, value);
872 
}
873 
 
874 
/* Set the recorded length of the insn in the CGEN_FIELDS struct.  */
875 
 
876 
static void
877 
set_fields_bitsize (CGEN_FIELDS *fields, int size)
878 
{
879 
  CGEN_FIELDS_BITSIZE (fields) = size;
880 
}
881 
 
882 
/* Function to call before using the operand instance table.
883 
   This plugs the opcode entries and macro instructions into the cpu table.  */
884 
 
885 
void
886 
ip2k_cgen_init_opcode_table (CGEN_CPU_DESC cd)
887 
{
888 
  int i;
889 
  int num_macros = (sizeof (ip2k_cgen_macro_insn_table) /
890 
                    sizeof (ip2k_cgen_macro_insn_table[0]));
891 
  const CGEN_IBASE *ib = & ip2k_cgen_macro_insn_table[0];
892 
  const CGEN_OPCODE *oc = & ip2k_cgen_macro_insn_opcode_table[0];
893 
  CGEN_INSN *insns = xmalloc (num_macros * sizeof (CGEN_INSN));
894 
 
895 
  /* This test has been added to avoid a warning generated
896 
     if memset is called with a third argument of value zero.  */
897 
  if (num_macros >= 1)
898 
    memset (insns, 0, num_macros * sizeof (CGEN_INSN));
899 
  for (i = 0; i < num_macros; ++i)
900 
    {
901 
      insns[i].base = &ib[i];
902 
      insns[i].opcode = &oc[i];
903 
      ip2k_cgen_build_insn_regex (& insns[i]);
904 
    }
905 
  cd->macro_insn_table.init_entries = insns;
906 
  cd->macro_insn_table.entry_size = sizeof (CGEN_IBASE);
907 
  cd->macro_insn_table.num_init_entries = num_macros;
908 
 
909 
  oc = & ip2k_cgen_insn_opcode_table[0];
910 
  insns = (CGEN_INSN *) cd->insn_table.init_entries;
911 
  for (i = 0; i < MAX_INSNS; ++i)
912 
    {
913 
      insns[i].opcode = &oc[i];
914 
      ip2k_cgen_build_insn_regex (& insns[i]);
915 
    }
916 
 
917 
  cd->sizeof_fields = sizeof (CGEN_FIELDS);
918 
  cd->set_fields_bitsize = set_fields_bitsize;
919 
 
920 
  cd->asm_hash_p = asm_hash_insn_p;
921 
  cd->asm_hash = asm_hash_insn;
922 
  cd->asm_hash_size = CGEN_ASM_HASH_SIZE;
923 
 
924 
  cd->dis_hash_p = dis_hash_insn_p;
925 
  cd->dis_hash = dis_hash_insn;
926 
  cd->dis_hash_size = CGEN_DIS_HASH_SIZE;
927 
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.