| version 1.2, 2018/09/28 08:20:27 |
version 1.3, 2020/11/10 04:48:49 |
|
|
| /* $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 "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| |
|
| Line 245 void Psetbprec(NODE arg,Obj *rp) |
|
| Line 245 void Psetbprec(NODE arg,Obj *rp) |
|
| { |
{ |
| long p; |
long p; |
| Z q; |
Z q; |
| long prec; |
long prec,dprec; |
| |
|
| prec = mpfr_get_default_prec(); |
prec = mpfr_get_default_prec(); |
| STOZ(prec,q); *rp = (Obj)q; |
STOZ(prec,q); *rp = (Obj)q; |