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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [id-1.c] - Blame information for rev 301

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

Line No. Rev Author Line
1 298 jeremybenn
typedef int *lambda_vector;
2
typedef lambda_vector *lambda_matrix;
3
lambda_vector_add_mc (lambda_vector vec1, int const1,
4
                      lambda_vector vec2, int const2,
5
                      lambda_vector vec3, int size)
6
{
7
  int i;
8
  for (i = 0; i < size; i++)
9
    vec3[i] = const1 * vec1[i] + const2 * vec2[i];
10
}
11
lambda_matrix_add_mc (lambda_matrix mat1, int const1,
12
                      lambda_matrix mat2, int const2,
13
                      lambda_matrix mat3, int m, int n)
14
{
15
  int i;
16
  for (i = 0; i < m; i++)
17
    lambda_vector_add_mc (mat1[i], const1, mat2[i], const2, mat3[i], n);
18
}

powered by: WebSVN 2.1.0

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