## "Fossies" - the Fresh Open Source Software Archive

### Source code changes of the file "src/basemath/RgV.c" betweenpari-2.13.0.tar.gz and pari-2.13.1.tar.gz

About: PARI/GP is a computer algebra system designed for fast computations in number theory (factorizations, algebraic number theory, elliptic curves...), but also contains a large number of other mathematical functions.

RgV.c  (pari-2.13.0):RgV.c  (pari-2.13.1)
skipping to change at line 497 skipping to change at line 497
return RgC_RgV_mul(gel(x,1), y); return RgC_RgV_mul(gel(x,1), y);
} }
/* x[i,]*y, l = lg(y) > 1 */ /* x[i,]*y, l = lg(y) > 1 */
static GEN static GEN
RgMrow_RgC_mul_i(GEN x, GEN y, long i, long l) RgMrow_RgC_mul_i(GEN x, GEN y, long i, long l)
{ {
pari_sp av = avma; pari_sp av = avma;
GEN t = gmul(gcoeff(x,i,1), gel(y,1)); /* l > 1 ! */ GEN t = gmul(gcoeff(x,i,1), gel(y,1)); /* l > 1 ! */
long j; long j;
for (j=2; j<l; j++) t = gadd(t, gel(y,j))); for (j=2; j<l; j++)
{
GEN c = gcoeff(x,i,j);
if (!isintzero(c)) t = gadd(t, gmul(c, gel(y,j)));
}
return gerepileupto(av,t); return gerepileupto(av,t);
} }
GEN GEN
RgMrow_RgC_mul(GEN x, GEN y, long i) RgMrow_RgC_mul(GEN x, GEN y, long i)
{ return RgMrow_RgC_mul_i(x, y, i, lg(x)); } { return RgMrow_RgC_mul_i(x, y, i, lg(x)); }
static GEN static GEN
RgM_RgC_mul_FpM(GEN x, GEN y, GEN p) RgM_RgC_mul_FpM(GEN x, GEN y, GEN p)
{ {
pari_sp av = avma; pari_sp av = avma;
End of changes. 1 change blocks.
1 lines changed or deleted 5 lines changed or added