===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2018/builtin/bfaux.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- OpenXM_contrib2/asir2018/builtin/bfaux.c	2018/09/28 08:20:27	1.2
+++ OpenXM_contrib2/asir2018/builtin/bfaux.c	2020/11/10 04:48:49	1.3
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2018/builtin/bfaux.c,v 1.1 2018/09/19 05:45:05 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2018/builtin/bfaux.c,v 1.2 2018/09/28 08:20:27 noro Exp $ */
 #include "ca.h"
 #include "parse.h"
 
@@ -245,7 +245,7 @@ void Psetbprec(NODE arg,Obj *rp)
 {
   long p;
   Z q;
-  long prec;
+  long prec,dprec;
   
   prec = mpfr_get_default_prec();
   STOZ(prec,q); *rp = (Obj)q;