version 1.5, 2017/01/08 03:05:39 |
version 1.7, 2017/02/28 07:06:28 |
|
|
GZ ONEGZ; |
GZ ONEGZ; |
int lf_lazy; |
int lf_lazy; |
GZ current_mod_lf; |
GZ current_mod_lf; |
|
int current_mod_lf_size; |
|
|
void isqrtgz(GZ a,GZ *r); |
void isqrtgz(GZ a,GZ *r); |
void bshiftgz(GZ a,int n,GZ *r); |
void bshiftgz(GZ a,int n,GZ *r); |
Line 1323 void lmtolf(LM a,GZ *b) |
|
Line 1324 void lmtolf(LM a,GZ *b) |
|
{ |
{ |
Q q; |
Q q; |
|
|
NTOQ(BDY(a),1,q); *b = ztogz(q); |
if ( !a ) *b = 0; |
|
else { |
|
NTOQ(BDY(a),1,q); *b = ztogz(q); |
|
} |
} |
} |
|
|
void setmod_lf(N p) |
void setmod_lf(N p) |
Line 1331 void setmod_lf(N p) |
|
Line 1335 void setmod_lf(N p) |
|
Q q; |
Q q; |
|
|
NTOQ(p,1,q); current_mod_lf = ztogz(q); |
NTOQ(p,1,q); current_mod_lf = ztogz(q); |
|
current_mod_lf_size = mpz_size(BDY(current_mod_lf))+1; |
} |
} |
|
|
void simplf_force(GZ a,GZ *b) |
void simplf_force(GZ a,GZ *b) |