Return to gmpq.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / engine |
version 1.7, 2017/02/28 07:06:28 | 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); |