OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [20001009-1.c] - Blame information for rev 325

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

Line No. Rev Author Line
1 298 jeremybenn
/* { dg-do compile { target fpic } } */
2
/* { dg-options "-O2 -fpic" } */
3
 
4
extern void foo (void *a, double x, double y);
5
void
6
bar (void *a, double b, double c, double d, double e, double f, double g, double h, double i, double j, double k[6])
7
{
8
  double l, m, n, o, p;
9
  double q, r, s, t, u;
10
  double x, y, v, w;
11
  double z = 0.5 * j;
12
  double aa;
13
  l = b - 3 * d;
14
  m = 4 * f;
15
  n = f - h;
16
  q = c + 3 * g - i;
17
  r = 2 * (e - 2 * g + i);
18
  s = g - i;
19
  if (l != 0.0)
20
    {
21
      aa = 0.0;
22
      o = (- m + aa);
23
      p = (- m - aa);
24
      if (o > 0.0)
25
        {
26
          x = ((b-h)*o + 3*(d+h)*o + 3*(f-h)*o);
27
          y = ((c-i)*o + 3*(e+i)*o + 3*(g-i)*o);
28
          foo (a, z, w);
29
          foo (a, -z, w);
30
        }
31
      if (p > 0.0)
32
        {
33
          x = ((b+3*f-h)*p + 3*(d-2*f+h)*p + 3*p);
34
          y = ((c+3*g-i)*p + 3*(e-2*g+i)*p + 3*p);
35
          v = x * k[0] + y * k[2];
36
          w = x * k[1] + y * k[3];
37
          foo (a, z, w);
38
          foo (a, - z, w);
39
        }
40
    }
41
  if (q != 0.0)
42
    {
43
      aa = 0.0;
44
      t = (- r + aa) / (2 * q);
45
      u = (- r - aa) / (2 * q);
46
    }
47
}

powered by: WebSVN 2.1.0

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