URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
typedef struct atype
|
typedef struct atype
|
{
|
{
|
float bg[1], cg[1];
|
float bg[1], cg[1];
|
_Bool ant;
|
_Bool ant;
|
}atype;
|
}atype;
|
|
|
|
|
void cp_assert(_Bool*, float*, int*, _Bool*);
|
void cp_assert(_Bool*, float*, int*, _Bool*);
|
|
|
void f(atype **rng_stream, int *error, float u)
|
void f(atype **rng_stream, int *error, float u)
|
{
|
{
|
_Bool t = *rng_stream != 0;
|
_Bool t = *rng_stream != 0;
|
float routinep;
|
float routinep;
|
_Bool failure;
|
_Bool failure;
|
cp_assert ( &t, &routinep, error, &failure);
|
cp_assert ( &t, &routinep, error, &failure);
|
if (failure == 0)
|
if (failure == 0)
|
{
|
{
|
typedef float ty[1];
|
typedef float ty[1];
|
ty *tt = &((*rng_stream)->bg);
|
ty *tt = &((*rng_stream)->bg);
|
int i = 1;
|
int i = 1;
|
|
|
do
|
do
|
{
|
{
|
(*tt)[i - 1] = u;
|
(*tt)[i - 1] = u;
|
i ++;
|
i ++;
|
}while (i > 1);
|
}while (i > 1);
|
{
|
{
|
ty *tt = &(*rng_stream)->cg;
|
ty *tt = &(*rng_stream)->cg;
|
int i = 1;
|
int i = 1;
|
|
|
do
|
do
|
{
|
{
|
(*tt)[i - 1] = u;
|
(*tt)[i - 1] = u;
|
i ++;
|
i ++;
|
}while (i > 1);
|
}while (i > 1);
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.