version 1.8, 2015/08/20 01:38:34 |
version 1.10, 2015/08/20 08:56:30 |
|
|
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.7 2015/08/18 05:04:35 noro Exp $ */ |
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.9 2015/08/20 07:45:12 noro Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
|
|
|
|
cmo_error2 *make_error2(char *message) |
cmo_error2 *make_error2(char *message) |
{ |
{ |
return (cmo_error2 *) new_cmo_string(message); |
return new_cmo_error2((cmo *)new_cmo_string(message)); |
} |
} |
|
|
int get_i() |
int get_i() |
Line 407 GEN cmo_to_GEN(cmo *c) |
|
Line 407 GEN cmo_to_GEN(cmo *c) |
|
return gen_0; |
return gen_0; |
case CMO_ZZ: /* int */ |
case CMO_ZZ: /* int */ |
return cmo_zz_to_GEN((cmo_zz *)c); |
return cmo_zz_to_GEN((cmo_zz *)c); |
|
case CMO_COMPLEX: /* complex */ |
|
return cmo_complex_to_GEN((cmo_complex *)c); |
case CMO_IEEE_DOUBLE_FLOAT: |
case CMO_IEEE_DOUBLE_FLOAT: |
return dbltor(((cmo_double *)c)->d); |
return dbltor(((cmo_double *)c)->d); |
case CMO_BIGFLOAT: /* bigfloat */ |
case CMO_BIGFLOAT: /* bigfloat */ |