=================================================================== RCS file: /home/cvs/OpenXM/src/ox_pari/ox_pari.c,v retrieving revision 1.8 retrieving revision 1.11 diff -u -p -r1.8 -r1.11 --- OpenXM/src/ox_pari/ox_pari.c 2015/08/20 01:38:34 1.8 +++ OpenXM/src/ox_pari/ox_pari.c 2015/08/21 00:53:53 1.11 @@ -1,4 +1,4 @@ -/* $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.10 2015/08/20 08:56:30 noro Exp $ */ #include #include @@ -137,7 +137,7 @@ int sm_popCMO() 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() @@ -407,6 +407,8 @@ GEN cmo_to_GEN(cmo *c) return gen_0; case CMO_ZZ: /* int */ 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: return dbltor(((cmo_double *)c)->d); case CMO_BIGFLOAT: /* bigfloat */ @@ -652,6 +654,9 @@ int receive_and_execute_sm_command() break; case SM_setMathCap: pop(); + break; + case SM_shutdown: + exit(0); break; default: printf("receive_and_execute_sm_command : code=%d\n",code);fflush(stdout);