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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [delay-slot-2.c] - Blame information for rev 689

Details | Compare with Previous | View Log


/* PR rtl-optimization/51187 */
/* Reported by Jurij Smakov <jurij@wooyd.org> */
 
/* { dg-do compile } */
/* { dg-options "-g -O2" } */
 
extern int printf (__const char *__restrict __format, ...);
extern void print_c_condition (const char *);
 
enum decision_type
{
  DT_num_insns,
  DT_mode, DT_code, DT_veclen,
  DT_elt_zero_int, DT_elt_one_int, DT_elt_zero_wide, DT_elt_zero_wide_safe,
  DT_const_int,
  DT_veclen_ge, DT_dup, DT_pred, DT_c_test,
  DT_accept_op, DT_accept_insn
};
 
struct decision_test
{
  struct decision_test *next;
  enum decision_type type;
 
  union
  {
    int num_insns;
 
    struct
    {
      const char *name;
    } pred;
 
    const char *c_test;
    int veclen;
    int dup;
    long intval;
    int opno;
 
    struct {
      int code_number;
      int lineno;
      int num_clobbers_to_add;
    } insn;
  } u;
};
 
enum routine_type {
  RECOG, SPLIT, PEEPHOLE2
};
 
void
write_cond (struct decision_test *p, int depth,
     enum routine_type subroutine_type)
{
  switch (p->type)
    {
    case DT_num_insns:
      printf ("peep2_current_count >= %d", p->u.num_insns);
      break;
 
    case DT_code:
      printf ("GET_CODE (x%d) == ", depth);
      break;
 
    case DT_veclen:
      printf ("XVECLEN (x%d, 0) == %d", depth, p->u.veclen);
      break;
 
    case DT_elt_zero_int:
      printf ("XINT (x%d, 0) == %d", depth, (int) p->u.intval);
      break;
 
    case DT_elt_one_int:
      printf ("XINT (x%d, 1) == %d", depth, (int) p->u.intval);
      break;
 
    case DT_elt_zero_wide:
    case DT_elt_zero_wide_safe:
      printf ("XWINT (x%d, 0) == ", depth);
      print_host_wide_int (p->u.intval);
      break;
 
    case DT_const_int:
      printf ("x%d == const_int_rtx[MAX_SAVED_CONST_INT + (%d)]",
       depth, (int) p->u.intval);
      break;
 
    case DT_veclen_ge:
      printf ("XVECLEN (x%d, 0) >= %d", depth, p->u.veclen);
      break;
 
    case DT_dup:
      printf ("rtx_equal_p (x%d, operands[%d])", depth, p->u.dup);
      break;
 
    case DT_pred:
      printf ("%s (x%d)", p->u.pred.name, depth);
      break;
 
    case DT_c_test:
      print_c_condition (p->u.c_test);
      break;
 
    case DT_accept_insn:
      ((void)(__builtin_expect(!(subroutine_type == RECOG), 0) ? __builtin_unreachable(), 0 : 0));
      ((void)(__builtin_expect(!(p->u.insn.num_clobbers_to_add), 0) ? __builtin_unreachable(), 0 : 0));
      printf ("pnum_clobbers != NULL");
      break;
 
    default:
      __builtin_unreachable();
    }
}
 
/* { dg-final { scan-assembler "printf" } } */

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* PR rtl-optimization/51187 */`
2			`/* Reported by Jurij Smakov <jurij@wooyd.org> */`
3
4			`/* { dg-do compile } */`
5			`/* { dg-options "-g -O2" } */`
6
7			`extern int printf (__const char *__restrict __format, ...);`
8			`extern void print_c_condition (const char *);`
9
10			`enum decision_type`
11			`{`
12			`DT_num_insns,`
13			`DT_mode, DT_code, DT_veclen,`
14			`DT_elt_zero_int, DT_elt_one_int, DT_elt_zero_wide, DT_elt_zero_wide_safe,`
15			`DT_const_int,`
16			`DT_veclen_ge, DT_dup, DT_pred, DT_c_test,`
17			`DT_accept_op, DT_accept_insn`
18			`};`
19
20			`struct decision_test`
21			`{`
22			`struct decision_test *next;`
23			`enum decision_type type;`
24
25			`union`
26			`{`
27			`int num_insns;`
28
29			`struct`
30			`{`
31			`const char *name;`
32			`} pred;`
33
34			`const char *c_test;`
35			`int veclen;`
36			`int dup;`
37			`long intval;`
38			`int opno;`
39
40			`struct {`
41			`int code_number;`
42			`int lineno;`
43			`int num_clobbers_to_add;`
44			`} insn;`
45			`} u;`
46			`};`
47
48			`enum routine_type {`
49			`RECOG, SPLIT, PEEPHOLE2`
50			`};`
51
52			`void`
53			`write_cond (struct decision_test *p, int depth,`
54			`enum routine_type subroutine_type)`
55			`{`
56			`switch (p->type)`
57			`{`
58			`case DT_num_insns:`
59			`printf ("peep2_current_count >= %d", p->u.num_insns);`
60			`break;`
61
62			`case DT_code:`
63			`printf ("GET_CODE (x%d) == ", depth);`
64			`break;`
65
66			`case DT_veclen:`
67			`printf ("XVECLEN (x%d, 0) == %d", depth, p->u.veclen);`
68			`break;`
69
70			`case DT_elt_zero_int:`
71			`printf ("XINT (x%d, 0) == %d", depth, (int) p->u.intval);`
72			`break;`
73
74			`case DT_elt_one_int:`
75			`printf ("XINT (x%d, 1) == %d", depth, (int) p->u.intval);`
76			`break;`
77
78			`case DT_elt_zero_wide:`
79			`case DT_elt_zero_wide_safe:`
80			`printf ("XWINT (x%d, 0) == ", depth);`
81			`print_host_wide_int (p->u.intval);`
82			`break;`
83
84			`case DT_const_int:`
85			`printf ("x%d == const_int_rtx[MAX_SAVED_CONST_INT + (%d)]",`
86			`depth, (int) p->u.intval);`
87			`break;`
88
89			`case DT_veclen_ge:`
90			`printf ("XVECLEN (x%d, 0) >= %d", depth, p->u.veclen);`
91			`break;`
92
93			`case DT_dup:`
94			`printf ("rtx_equal_p (x%d, operands[%d])", depth, p->u.dup);`
95			`break;`
96
97			`case DT_pred:`
98			`printf ("%s (x%d)", p->u.pred.name, depth);`
99			`break;`
100
101			`case DT_c_test:`
102			`print_c_condition (p->u.c_test);`
103			`break;`
104
105			`case DT_accept_insn:`
106			`((void)(__builtin_expect(!(subroutine_type == RECOG), 0) ? __builtin_unreachable(), 0 : 0));`
107			`((void)(__builtin_expect(!(p->u.insn.num_clobbers_to_add), 0) ? __builtin_unreachable(), 0 : 0));`
108			`printf ("pnum_clobbers != NULL");`
109			`break;`
110
111			`default:`
112			`__builtin_unreachable();`
113			`}`
114			`}`
115
116			`/* { dg-final { scan-assembler "printf" } } */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [delay-slot-2.c] - Blame information for rev 689