o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use va_args in cosadd/sinadd (Michael Teichgräber)

Browse source
This commit is contained in:
rsc 2006-05-27 18:35:26 +00:00
parent dfbaaaa650
commit 2ad582ee88
2 changed files with 19 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/cmd/astro/cosadd.c
View file

@ -10,15 +10,20 @@ icosadd(double *fp, char *cp)
}
double
cosadd(int n, double coef, ...)
cosadd(int n, ...)
{
double *coefp;
double *coefp, coef[10];
char *cp;
int i;
double sum, a1, a2;
va_list arg;
sum = 0;
cp = cacp;
va_start(arg, n);
for(i=0; i<n; i++)
coef[i] = va_arg(arg, double);
va_end(arg);
loop:
a1 = *cafp++;
@ -28,7 +33,7 @@ loop:
}
a2 = *cafp++;
i = n;
coefp = &coef;
coefp = coef;
do
a2 += *cp++ * *coefp++;
while(--i);
@ -37,15 +42,20 @@ loop:
}
double
sinadd(int n, double coef, ...)
sinadd(int n, ...)
{
double *coefp;
double *coefp, coef[10];
char *cp;
int i;
double sum, a1, a2;
va_list arg;
sum = 0;
cp = cacp;
va_start(arg, n);
for(i=0; i<n; i++)
coef[i] = va_arg(arg, double);
va_end(arg);
loop:
a1 = *cafp++;
@ -55,7 +65,7 @@ loop:
}
a2 = *cafp++;
i = n;
coefp = &coef;
coefp = coef;
do
a2 += *cp++ * *coefp++;
while(--i);