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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [930523-1.c] - Blame information for rev 774

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

Line No. Rev Author Line
1 688 jeremybenn 
int v;
2 
 
3 
f ()
4 
{
5 
  unsigned long *a1, *a2;
6 
  int vertex2;
7 
  int c, x1, x2, dx1, dx2, dy1, dy2, e1, e2, s2;
8 
  unsigned long m, b;
9 
  int n;
10 
  unsigned long r;
11 
  int aba;
12 
 
13 
  do
14 
    {
15 
      if (dx2 >= dy2)
16 
        dx2 = dx2 % dy2;
17 
 
18 
      if (dx2 >= dy2)
19 
        {
20 
          s2 = - (dx2 / dy2);
21 
          dx2 = dx2 % dy2;
22 
        }
23 
    }
24 
  while (vertex2 / 65536);
25 
 
26 
  for (;;)
27 
    {
28 
      c = x2;
29 
      a2 = a1;
30 
      if (v)
31 
        a2 = 0;
32 
 
33 
      if (c + n)
34 
        {
35 
          m = b << (c * 8);
36 
          *a2 = (*a2 & ~m) | (r & m);
37 
          n += c;
38 
 
39 
          while (--n)
40 
            {
41 
              {
42 
              }
43 
            }
44 
        }
45 
 
46 
      a1 = 0;
47 
      x1 += 0;
48 
      if (e1 += dx1)
49 
        e1 -= dy1;
50 
      x2 += s2;
51 
      if (e2 += dx2)
52 
        e2 -= dy2;
53 
    }
54 
}

powered by: WebSVN 2.1.0

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