* 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>
|
||||
|
||||
* 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 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_DBL s;
|
||||
Real *w;
|
||||
@ -4305,17 +4305,14 @@ VpMult(Real *c, Real *a, Real *b)
|
||||
ind_as = MxIndA - nc;
|
||||
ind_ae = MxIndA;
|
||||
ind_bs = MxIndB;
|
||||
ind_be = MxIndB - nc;
|
||||
} else if(nc <= MxIndA) { /* The middle rectangular of the Fig. */
|
||||
ind_as = MxIndA - nc;
|
||||
ind_ae = MxIndA -(nc - MxIndB);
|
||||
ind_bs = MxIndB;
|
||||
ind_be = 0;
|
||||
} else if(nc > MxIndA) { /* The right triangle of the Fig. */
|
||||
ind_as = 0;
|
||||
ind_ae = MxIndAB - nc - 1;
|
||||
ind_bs = MxIndB -(nc - MxIndA);
|
||||
ind_be = 0;
|
||||
}
|
||||
|
||||
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)
|
||||
{
|
||||
size_t i, j, ind_a, ma, mi, me;
|
||||
size_t loc;
|
||||
SIGNED_VALUE e, es, eb, ef;
|
||||
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;
|
||||
}
|
||||
}
|
||||
loc = 1;
|
||||
|
||||
/* get fraction part */
|
||||
|
||||
@ -5385,7 +5380,7 @@ VpSqrt(Real *y, Real *x)
|
||||
{
|
||||
Real *f = NULL;
|
||||
Real *r = NULL;
|
||||
size_t y_prec, f_prec;
|
||||
size_t y_prec;
|
||||
SIGNED_VALUE n, e;
|
||||
SIGNED_VALUE prec;
|
||||
ssize_t nr;
|
||||
@ -5422,7 +5417,6 @@ VpSqrt(Real *y, Real *x)
|
||||
|
||||
nr = 0;
|
||||
y_prec = y->MaxPrec;
|
||||
f_prec = f->MaxPrec;
|
||||
|
||||
prec = x->exponent - (ssize_t)y_prec;
|
||||
if (x->exponent > 0)
|
||||
|
Loading…
x
Reference in New Issue
Block a user