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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [id-2.c] - Blame information for rev 801

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


typedef _Complex float GFC_COMPLEX_4;
matmul_c4 ()
{
  int x, n, count;
  GFC_COMPLEX_4 * bbase_y;
  GFC_COMPLEX_4 * dest_y;
  GFC_COMPLEX_4 * abase_n;
  GFC_COMPLEX_4 bbase_yn;
 
  for (n = 0; n < count; n++)
    {
      bbase_yn = bbase_y[n];
      for (x = 0; x < count; x++)
        dest_y[x] += abase_n[x] * bbase_yn;
    }
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`typedef _Complex float GFC_COMPLEX_4;`
2			`matmul_c4 ()`
3			`{`
4			`int x, n, count;`
5			`GFC_COMPLEX_4 * bbase_y;`
6			`GFC_COMPLEX_4 * dest_y;`
7			`GFC_COMPLEX_4 * abase_n;`
8			`GFC_COMPLEX_4 bbase_yn;`
9
10			`for (n = 0; n < count; n++)`
11			`{`
12			`bbase_yn = bbase_y[n];`
13			`for (x = 0; x < count; x++)`
14			`dest_y[x] += abase_n[x] * bbase_yn;`
15			`}`
16			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [id-2.c] - Blame information for rev 801