mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-06-12 13:29:29 +00:00
37 lines
455 B
C
37 lines
455 B
C
/* PR opt/7130 */
|
|
#define TYPE long
|
|
|
|
void
|
|
scale (TYPE *alpha, TYPE *x, int n)
|
|
{
|
|
int i, ix;
|
|
|
|
if (*alpha != 1)
|
|
for (i = 0, ix = 0; i < n; i++, ix += 2)
|
|
{
|
|
TYPE tmpr, tmpi;
|
|
tmpr = *alpha * x[ix];
|
|
tmpi = *alpha * x[ix + 1];
|
|
x[ix] = tmpr;
|
|
x[ix + 1] = tmpi;
|
|
}
|
|
}
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
int i;
|
|
TYPE x[10];
|
|
TYPE alpha = 2;
|
|
|
|
for (i = 0; i < 10; i++)
|
|
x[i] = i;
|
|
|
|
scale (&alpha, x, 5);
|
|
|
|
if (x[9] != 18)
|
|
abort ();
|
|
|
|
return 0;
|
|
}
|