===================================================================
RCS file: /home/cvs/OpenXM/src/ox_pari/ox_pari.c,v
retrieving revision 1.21
retrieving revision 1.23
diff -u -p -r1.21 -r1.23
--- OpenXM/src/ox_pari/ox_pari.c	2020/11/10 01:11:38	1.21
+++ OpenXM/src/ox_pari/ox_pari.c	2021/03/25 07:03:21	1.23
@@ -1,4 +1,4 @@
-/*  $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.20 2020/08/26 06:03:31 noro Exp $  */
+/*  $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.22 2020/11/10 04:48:49 noro Exp $  */
 
 #include <signal.h>
 #include "ox_pari.h"
@@ -34,6 +34,7 @@ void init_pari()
 {
   pari_init(paristack,2);
   mp_set_memory_functions(GC_malloc,gc_realloc,gc_free);
+  gmp_check();
 }
 
 int initialize_stack()
@@ -182,6 +183,13 @@ int sm_executeFunction()
     paristack =  cmo_to_int(av[0]);
     pari_close();
     init_pari();
+    return 0;
+  } 
+  if ( !strcmp(func->s,"pari_setprec") ) {
+    long n,prec;
+
+    n = cmo_to_int(av[0]);
+    setrealprecision(n,&prec);
     return 0;
   } 
   parif =search_parif(func->s);