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; |