* ext/bigdecimal/bigdecimal.c (VpMult, VpCtoV, VpSqrt): remove assined
but unused variables. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@34095 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
b3369100b6
commit
4af11279c6
@ -1,3 +1,8 @@
|
|||||||
|
Thu Dec 22 00:40:24 2011 CHIKANAGA Tomoyuki <nagachika00@gmail.com>
|
||||||
|
|
||||||
|
* ext/bigdecimal/bigdecimal.c (VpMult, VpCtoV, VpSqrt): remove assined
|
||||||
|
but unused variables.
|
||||||
|
|
||||||
Wed Dec 21 18:28:22 2011 NAKAMURA Usaku <usa@ruby-lang.org>
|
Wed Dec 21 18:28:22 2011 NAKAMURA Usaku <usa@ruby-lang.org>
|
||||||
|
|
||||||
* common.mk (newline.c, miniprelude.c): revert r33949 because the change
|
* common.mk (newline.c, miniprelude.c): revert r33949 because the change
|
||||||
|
@ -4242,7 +4242,7 @@ VpMult(Real *c, Real *a, Real *b)
|
|||||||
{
|
{
|
||||||
size_t MxIndA, MxIndB, MxIndAB, MxIndC;
|
size_t MxIndA, MxIndB, MxIndAB, MxIndC;
|
||||||
size_t ind_c, i, ii, nc;
|
size_t ind_c, i, ii, nc;
|
||||||
size_t ind_as, ind_ae, ind_bs, ind_be;
|
size_t ind_as, ind_ae, ind_bs;
|
||||||
BDIGIT carry;
|
BDIGIT carry;
|
||||||
BDIGIT_DBL s;
|
BDIGIT_DBL s;
|
||||||
Real *w;
|
Real *w;
|
||||||
@ -4305,17 +4305,14 @@ VpMult(Real *c, Real *a, Real *b)
|
|||||||
ind_as = MxIndA - nc;
|
ind_as = MxIndA - nc;
|
||||||
ind_ae = MxIndA;
|
ind_ae = MxIndA;
|
||||||
ind_bs = MxIndB;
|
ind_bs = MxIndB;
|
||||||
ind_be = MxIndB - nc;
|
|
||||||
} else if(nc <= MxIndA) { /* The middle rectangular of the Fig. */
|
} else if(nc <= MxIndA) { /* The middle rectangular of the Fig. */
|
||||||
ind_as = MxIndA - nc;
|
ind_as = MxIndA - nc;
|
||||||
ind_ae = MxIndA -(nc - MxIndB);
|
ind_ae = MxIndA -(nc - MxIndB);
|
||||||
ind_bs = MxIndB;
|
ind_bs = MxIndB;
|
||||||
ind_be = 0;
|
|
||||||
} else if(nc > MxIndA) { /* The right triangle of the Fig. */
|
} else if(nc > MxIndA) { /* The right triangle of the Fig. */
|
||||||
ind_as = 0;
|
ind_as = 0;
|
||||||
ind_ae = MxIndAB - nc - 1;
|
ind_ae = MxIndAB - nc - 1;
|
||||||
ind_bs = MxIndB -(nc - MxIndA);
|
ind_bs = MxIndB -(nc - MxIndA);
|
||||||
ind_be = 0;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
for(i = ind_as; i <= ind_ae; ++i) {
|
for(i = ind_as; i <= ind_ae; ++i) {
|
||||||
@ -5039,7 +5036,6 @@ VP_EXPORT int
|
|||||||
VpCtoV(Real *a, const char *int_chr, size_t ni, const char *frac, size_t nf, const char *exp_chr, size_t ne)
|
VpCtoV(Real *a, const char *int_chr, size_t ni, const char *frac, size_t nf, const char *exp_chr, size_t ne)
|
||||||
{
|
{
|
||||||
size_t i, j, ind_a, ma, mi, me;
|
size_t i, j, ind_a, ma, mi, me;
|
||||||
size_t loc;
|
|
||||||
SIGNED_VALUE e, es, eb, ef;
|
SIGNED_VALUE e, es, eb, ef;
|
||||||
int sign, signe, exponent_overflow;
|
int sign, signe, exponent_overflow;
|
||||||
|
|
||||||
@ -5136,7 +5132,6 @@ VpCtoV(Real *a, const char *int_chr, size_t ni, const char *frac, size_t nf, con
|
|||||||
j = 0;
|
j = 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
loc = 1;
|
|
||||||
|
|
||||||
/* get fraction part */
|
/* get fraction part */
|
||||||
|
|
||||||
@ -5385,7 +5380,7 @@ VpSqrt(Real *y, Real *x)
|
|||||||
{
|
{
|
||||||
Real *f = NULL;
|
Real *f = NULL;
|
||||||
Real *r = NULL;
|
Real *r = NULL;
|
||||||
size_t y_prec, f_prec;
|
size_t y_prec;
|
||||||
SIGNED_VALUE n, e;
|
SIGNED_VALUE n, e;
|
||||||
SIGNED_VALUE prec;
|
SIGNED_VALUE prec;
|
||||||
ssize_t nr;
|
ssize_t nr;
|
||||||
@ -5422,7 +5417,6 @@ VpSqrt(Real *y, Real *x)
|
|||||||
|
|
||||||
nr = 0;
|
nr = 0;
|
||||||
y_prec = y->MaxPrec;
|
y_prec = y->MaxPrec;
|
||||||
f_prec = f->MaxPrec;
|
|
||||||
|
|
||||||
prec = x->exponent - (ssize_t)y_prec;
|
prec = x->exponent - (ssize_t)y_prec;
|
||||||
if (x->exponent > 0)
|
if (x->exponent > 0)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user