Remove unused __cr and __cpymn

This commit is contained in:
Siddhesh Poyarekar 2013-01-04 22:52:12 +05:30
parent b18decba11
commit fffb407f46
4 changed files with 14 additions and 127 deletions

View File

@ -1,5 +1,19 @@
2013-01-04 Siddhesh Poyarekar <siddhesh@redhat.com>
* sysdeps/ieee754/dbl-64/mpa.c: Remove commented code.
* sysdeps/powerpc/powerpc32/power4/fpu/mpa.c (__cr): Remove.
(__cpymn): Likewise.
(norm): Remove commented code.
(denorm): Likewise.
(__mp_dbl): Likewise.
(__inv): Likewise.
* sysdeps/powerpc/powerpc64/power4/fpu/mpa.c (__cr): Remove.
(__cpymn): Likewise.
(norm): Remove commented code.
(denorm): Likewise.
(__mp_dbl): Likewise.
(__inv): Likewise.
* sysdeps/powerpc/powerpc32/power4/fpu/mpa.c (mpone): Define
mp_no value for 1.0 and 2.0.
(norm): Use RADIXI instead of radixi.d.

View File

@ -93,21 +93,6 @@ __acr(const mp_no *x, const mp_no *y, int p) {
#endif
#if 0
/* cr() compares the values of two multiple precision numbers */
static int __cr(const mp_no *x, const mp_no *y, int p) {
int i;
if (X[0] > Y[0]) i= 1;
else if (X[0] < Y[0]) i=-1;
else if (X[0] < ZERO ) i= __acr(y,x,p);
else i= __acr(x,y,p);
return i;
}
#endif
#ifndef NO___CPY
/* Copy a multiple precision number. Set *y=*x. x=y is permissible. */
void __cpy(const mp_no *x, mp_no *y, int p) {
@ -117,24 +102,6 @@ void __cpy(const mp_no *x, mp_no *y, int p) {
#endif
#if 0
/* Copy a multiple precision number x of precision m into a */
/* multiple precision number y of precision n. In case n>m, */
/* the digits of y beyond the m'th are set to zero. In case */
/* n<m, the digits of x beyond the n'th are ignored. */
/* x=y is permissible. */
static void __cpymn(const mp_no *x, int m, mp_no *y, int n) {
int i,k;
EY = EX; k=MIN(m,n);
for (i=0; i <= k; i++) Y[i] = X[i];
for ( ; i <= n; i++) Y[i] = ZERO;
}
#endif
#ifndef NO___MP_DBL
/* Convert a multiple precision number *x into a double precision */
/* number *y, normalized case (|x| >= 2**(-1022))) */

View File

@ -23,9 +23,7 @@
/* FUNCTIONS: */
/* mcr */
/* acr */
/* cr */
/* cpy */
/* cpymn */
/* norm */
/* denorm */
/* mp_dbl */
@ -86,19 +84,6 @@ int __acr(const mp_no *x, const mp_no *y, int p) {
}
/* cr90 compares the values of two multiple precision numbers */
int __cr(const mp_no *x, const mp_no *y, int p) {
int i;
if (X[0] > Y[0]) i= 1;
else if (X[0] < Y[0]) i=-1;
else if (X[0] < ZERO ) i= __acr(y,x,p);
else i= __acr(x,y,p);
return i;
}
/* Copy a multiple precision number. Set *y=*x. x=y is permissible. */
void __cpy(const mp_no *x, mp_no *y, int p) {
long i;
@ -110,34 +95,12 @@ void __cpy(const mp_no *x, mp_no *y, int p) {
}
/* Copy a multiple precision number x of precision m into a */
/* multiple precision number y of precision n. In case n>m, */
/* the digits of y beyond the m'th are set to zero. In case */
/* n<m, the digits of x beyond the n'th are ignored. */
/* x=y is permissible. */
void __cpymn(const mp_no *x, int m, mp_no *y, int n) {
long i,k;
long n2 = n;
long m2 = m;
EY = EX; k=MIN(m2,n2);
for (i=0; i <= k; i++) Y[i] = X[i];
for ( ; i <= n2; i++) Y[i] = ZERO;
return;
}
/* Convert a multiple precision number *x into a double precision */
/* number *y, normalized case (|x| >= 2**(-1022))) */
static void norm(const mp_no *x, double *y, int p)
{
#define R RADIXI
long i;
#if 0
int k;
#endif
double a,c,u,v,z[5];
if (p<5) {
if (p==1) c = X[1];
@ -191,9 +154,6 @@ static void denorm(const mp_no *x, double *y, int p)
long i,k;
long p2 = p;
double c,u,z[5];
#if 0
double a,v;
#endif
#define R RADIXI
if (EX<-44 || (EX==-44 && X[1]<TWO5))
@ -238,10 +198,6 @@ static void denorm(const mp_no *x, double *y, int p)
/* The result is correctly rounded to the nearest/even. *x is left unchanged */
void __mp_dbl(const mp_no *x, double *y, int p) {
#if 0
int i,k;
double a,c,u,v,z[5];
#endif
if (X[0] == ZERO) {*y = ZERO; return; }
@ -512,9 +468,6 @@ void __mul(const mp_no *x, const mp_no *y, mp_no *z, int p) {
void __inv(const mp_no *x, mp_no *y, int p) {
long i;
#if 0
int l;
#endif
double t;
mp_no z,w;
static const int np1[] = {0,0,0,0,1,2,2,2,2,3,3,3,3,3,3,3,3,3,

View File

@ -23,9 +23,7 @@
/* FUNCTIONS: */
/* mcr */
/* acr */
/* cr */
/* cpy */
/* cpymn */
/* norm */
/* denorm */
/* mp_dbl */
@ -86,19 +84,6 @@ int __acr(const mp_no *x, const mp_no *y, int p) {
}
/* cr90 compares the values of two multiple precision numbers */
int __cr(const mp_no *x, const mp_no *y, int p) {
int i;
if (X[0] > Y[0]) i= 1;
else if (X[0] < Y[0]) i=-1;
else if (X[0] < ZERO ) i= __acr(y,x,p);
else i= __acr(x,y,p);
return i;
}
/* Copy a multiple precision number. Set *y=*x. x=y is permissible. */
void __cpy(const mp_no *x, mp_no *y, int p) {
long i;
@ -110,34 +95,12 @@ void __cpy(const mp_no *x, mp_no *y, int p) {
}
/* Copy a multiple precision number x of precision m into a */
/* multiple precision number y of precision n. In case n>m, */
/* the digits of y beyond the m'th are set to zero. In case */
/* n<m, the digits of x beyond the n'th are ignored. */
/* x=y is permissible. */
void __cpymn(const mp_no *x, int m, mp_no *y, int n) {
long i,k;
long n2 = n;
long m2 = m;
EY = EX; k=MIN(m2,n2);
for (i=0; i <= k; i++) Y[i] = X[i];
for ( ; i <= n2; i++) Y[i] = ZERO;
return;
}
/* Convert a multiple precision number *x into a double precision */
/* number *y, normalized case (|x| >= 2**(-1022))) */
static void norm(const mp_no *x, double *y, int p)
{
#define R RADIXI
long i;
#if 0
int k;
#endif
double a,c,u,v,z[5];
if (p<5) {
if (p==1) c = X[1];
@ -191,9 +154,6 @@ static void denorm(const mp_no *x, double *y, int p)
long i,k;
long p2 = p;
double c,u,z[5];
#if 0
double a,v;
#endif
#define R RADIXI
if (EX<-44 || (EX==-44 && X[1]<TWO5))
@ -238,10 +198,6 @@ static void denorm(const mp_no *x, double *y, int p)
/* The result is correctly rounded to the nearest/even. *x is left unchanged */
void __mp_dbl(const mp_no *x, double *y, int p) {
#if 0
int i,k;
double a,c,u,v,z[5];
#endif
if (X[0] == ZERO) {*y = ZERO; return; }
@ -512,9 +468,6 @@ void __mul(const mp_no *x, const mp_no *y, mp_no *z, int p) {
void __inv(const mp_no *x, mp_no *y, int p) {
long i;
#if 0
int l;
#endif
double t;
mp_no z,w;
static const int np1[] = {0,0,0,0,1,2,2,2,2,3,3,3,3,3,3,3,3,3,