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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [ipa/] [ipcp-2.c] - Blame information for rev 753

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


/* { dg-do compile } */
/* { dg-options "-O3 -fipa-cp -fipa-cp-clone -fdump-ipa-cp -fno-early-inlining"  } */
/* { dg-add-options bind_pic_locally } */
 
extern int get_stuff (int);
extern void do_stuff (int);
extern void do_stuff2 (int);
extern void do_other_stuff (void);
extern int get_element (int, int, int);
extern int adjust (int, int, int, int);
 
extern int count;
 
int
foo (int s, int p)
{
  int c, r = 0;
 
  for (c = 0 ; c < count; c++)
    {
      r += get_stuff (s);
      /* The following is just something big that can go away.  */
      if (p != 0)
        {
          int a[64][64];
          int i, j, k;
 
          for (i = 0; i < 64; i++)
            for (j = 0; j < 64; j++)
              a[i][j] = get_element (p + c, i, j);
 
          for (k = 0; k < 4; k++)
            {
              r = r / 2;
 
              for (i = 1; i < 63; i++)
                for (j = 62; j > 0; j--)
                  a[i][j] += adjust (a[i-1][j], a[i][j-1],
                                     a[i+1][j], a[i][j+1]);
 
              for (i = 4; i < 64; i += 4)
                for (j = 4; j < 64; j += 4)
                  r += a[i][j] / 4;
            }
        }
    }
  return r;
}
 
int
bar (int p, int q)
{
  if (q > 0)
    do_stuff (q);
  else
    do_stuff (-q);
 
  if (q % 2)
    do_stuff2 (2 * q);
  else
    do_stuff2 (2 * (q + 1));
 
  return foo (4, p);
}
 
int
bah (int p, int q)
{
  int i, j;
 
  while (q < -20)
    q += get_stuff (-q);
 
  for (i = 0; i < 36; i++)
    for (j = 0; j < 36; j++)
      do_stuff (get_stuff (q * i + 2));
 
  bar (p, q);
}
 
int
top1 (int q)
{
  do_other_stuff ();
  return bah (0, q);
}
 
int
top2 (int q)
{
  do_stuff (200);
  do_other_stuff ();
  return bah (16, q);
}
 
/* { dg-final { scan-ipa-dump-times "Creating a specialized node of foo" 1 "cp" } } */
/* { dg-final { scan-ipa-dump-times "replacing param p with const 0" 3 "cp"  } } */
/* { dg-final { scan-ipa-dump "replacing param s with const 4" "cp"  } } */
/* { dg-final { cleanup-ipa-dump "cp" } } */

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-do compile } */`
2			`/* { dg-options "-O3 -fipa-cp -fipa-cp-clone -fdump-ipa-cp -fno-early-inlining" } */`
3			`/* { dg-add-options bind_pic_locally } */`
4
5			`extern int get_stuff (int);`
6			`extern void do_stuff (int);`
7			`extern void do_stuff2 (int);`
8			`extern void do_other_stuff (void);`
9			`extern int get_element (int, int, int);`
10			`extern int adjust (int, int, int, int);`
11
12			`extern int count;`
13
14			`int`
15			`foo (int s, int p)`
16			`{`
17			`int c, r = 0;`
18
19			`for (c = 0 ; c < count; c++)`
20			`{`
21			`r += get_stuff (s);`
22			`/* The following is just something big that can go away. */`
23			`if (p != 0)`
24			`{`
25			`int a[64][64];`
26			`int i, j, k;`
27
28			`for (i = 0; i < 64; i++)`
29			`for (j = 0; j < 64; j++)`
30			`a[i][j] = get_element (p + c, i, j);`
31
32			`for (k = 0; k < 4; k++)`
33			`{`
34			`r = r / 2;`
35
36			`for (i = 1; i < 63; i++)`
37			`for (j = 62; j > 0; j--)`
38			`a[i][j] += adjust (a[i-1][j], a[i][j-1],`
39			`a[i+1][j], a[i][j+1]);`
40
41			`for (i = 4; i < 64; i += 4)`
42			`for (j = 4; j < 64; j += 4)`
43			`r += a[i][j] / 4;`
44			`}`
45			`}`
46			`}`
47			`return r;`
48			`}`
49
50			`int`
51			`bar (int p, int q)`
52			`{`
53			`if (q > 0)`
54			`do_stuff (q);`
55			`else`
56			`do_stuff (-q);`
57
58			`if (q % 2)`
59			`do_stuff2 (2 * q);`
60			`else`
61			`do_stuff2 (2 * (q + 1));`
62
63			`return foo (4, p);`
64			`}`
65
66			`int`
67			`bah (int p, int q)`
68			`{`
69			`int i, j;`
70
71			`while (q < -20)`
72			`q += get_stuff (-q);`
73
74			`for (i = 0; i < 36; i++)`
75			`for (j = 0; j < 36; j++)`
76			`do_stuff (get_stuff (q * i + 2));`
77
78			`bar (p, q);`
79			`}`
80
81			`int`
82			`top1 (int q)`
83			`{`
84			`do_other_stuff ();`
85			`return bah (0, q);`
86			`}`
87
88			`int`
89			`top2 (int q)`
90			`{`
91			`do_stuff (200);`
92			`do_other_stuff ();`
93			`return bah (16, q);`
94			`}`
95
96			`/* { dg-final { scan-ipa-dump-times "Creating a specialized node of foo" 1 "cp" } } */`
97			`/* { dg-final { scan-ipa-dump-times "replacing param p with const 0" 3 "cp" } } */`
98			`/* { dg-final { scan-ipa-dump "replacing param s with const 4" "cp" } } */`
99			`/* { dg-final { cleanup-ipa-dump "cp" } } */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [ipa/] [ipcp-2.c] - Blame information for rev 753