OpenXM/src/ox_pari/convert.c - diff

Return to convert.c CVS log

Up to [local] / OpenXM / src / ox_pari

version 1.2, 2015/08/21 01:53:08

version 1.4, 2017/02/22 04:53:13

Line 162 cmo_qq *GEN_to_cmo_qq(GEN z)

den = (GEN)z[2];

c = new_cmo_qq();

mpz_import(mpq_numref(c->mpq),lgef(num)-2,1,sizeof(long),0,0,&num[2]);

mpz_import(mpq_denref(c->mpq),lgef(num)-2,1,sizeof(long),0,0,&den[2]);

mpz_import(mpq_denref(c->mpq),lgef(den)-2,1,sizeof(long),0,0,&den[2]);

if ( signe(num)*signe(den) < 0 )

mpz_neg(mpq_numref(c->mpq),mpq_numref(c->mpq));

return c;

Line 258 GEN cmo_to_GEN(cmo *c)

return cmo_complex_to_GEN((cmo_complex *)c);

case CMO_IEEE_DOUBLE_FLOAT:

return dbltor(((cmo_double *)c)->d);

case CMO_BIGFLOAT: /* bigfloat */

case CMO_BIGFLOAT32: /* bigfloat */

return cmo_bf_to_GEN((cmo_bf *)c);

case CMO_LIST:

return cmo_list_to_GEN((cmo_list *)c);