version 1.6, 2017/02/21 09:20:23 |
version 1.8, 2017/08/31 02:36:21 |
|
|
|
|
if ( !a ) return 0; |
if ( !a ) return 0; |
len = WORDSIZE_IN_N(BDY((GZ)a)); nm = NALLOC(len); |
len = WORDSIZE_IN_N(BDY((GZ)a)); nm = NALLOC(len); |
|
fprintf(stderr,"%d ",len); |
mpz_export(BD(nm),&len,-1,sizeof(int),0,0,BDY((GZ)a)); |
mpz_export(BD(nm),&len,-1,sizeof(int),0,0,BDY((GZ)a)); |
PL(nm) = len; |
PL(nm) = len; |
sgn = mpz_sgn(BDY((GZ)a)); NTOQ(nm,sgn,q); |
sgn = mpz_sgn(BDY((GZ)a)); NTOQ(nm,sgn,q); |
Line 1324 void lmtolf(LM a,GZ *b) |
|
Line 1325 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) |