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.c-torture/] [compile/] [pr35043.c] - Blame information for rev 297

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 297 jeremybenn
typedef __SIZE_TYPE__ size_t;
2
typedef struct   {
3
      long double dat[2];
4
} gsl_complex_long_double;
5
typedef struct {
6
    size_t size;
7
    size_t stride;
8
    long double *data;
9
} gsl_vector_complex_long_double;
10
void gsl_vector_complex_long_double_set_zero (gsl_vector_complex_long_double * v)
11
{
12
    long double * const data = v->data;
13
    const size_t n = v->size;
14
    const size_t stride = v->stride;
15
    const gsl_complex_long_double zero = { { 0.0L,0.0L} } ;
16
    size_t i;
17
    for (i = 0; i < n; i++)
18
        *(gsl_complex_long_double *) (data + 2 * i * stride) = zero;
19
}
20
 

powered by: WebSVN 2.1.0

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