URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 297 |
Rev 384 |
/* Testcase by Martin Michlmayr <tbm@cyrius.com> */
|
/* Testcase by Martin Michlmayr <tbm@cyrius.com> */
|
/* Used to segfault due to cselim not marking the complex temp var
|
/* Used to segfault due to cselim not marking the complex temp var
|
as GIMPLE reg. */
|
as GIMPLE reg. */
|
|
|
typedef struct {
|
typedef struct {
|
int nsant, nvqd;
|
int nsant, nvqd;
|
_Complex long double *vqd;
|
_Complex long double *vqd;
|
} vsorc_t;
|
} vsorc_t;
|
vsorc_t vsorc;
|
vsorc_t vsorc;
|
|
|
void foo(int next_job, int ain_num, int iped, long t) {
|
void foo(int next_job, int ain_num, int iped, long t) {
|
long double zpnorm;
|
long double zpnorm;
|
|
|
while (!next_job)
|
while (!next_job)
|
if (ain_num)
|
if (ain_num)
|
{
|
{
|
if (iped == 1)
|
if (iped == 1)
|
zpnorm = 0.0;
|
zpnorm = 0.0;
|
int indx = vsorc.nvqd-1;
|
int indx = vsorc.nvqd-1;
|
vsorc.vqd[indx] = t*1.0fj;
|
vsorc.vqd[indx] = t*1.0fj;
|
if (cabsl(vsorc.vqd[indx]) < 1.e-20)
|
if (cabsl(vsorc.vqd[indx]) < 1.e-20)
|
vsorc.vqd[indx] = 0.0fj;
|
vsorc.vqd[indx] = 0.0fj;
|
zpnorm = t;
|
zpnorm = t;
|
if (zpnorm > 0.0)
|
if (zpnorm > 0.0)
|
iped = vsorc.nsant;
|
iped = vsorc.nsant;
|
}
|
}
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.