Return to bfaux.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / builtin |
version 1.1, 2015/08/04 06:55:02 | version 1.2, 2015/08/05 01:10:38 | ||
---|---|---|---|
|
|
||
/* $OpenXM$ */ | /* $OpenXM: OpenXM_contrib2/asir2000/builtin/bfaux.c,v 1.1 2015/08/04 06:55:02 noro Exp $ */ | ||
#include "ca.h" | #include "ca.h" | ||
#include "parse.h" | #include "parse.h" | ||
|
|
||
else if ( prec > MPFR_PREC_MAX ) prec = MPFR_PREC_MAX; | else if ( prec > MPFR_PREC_MAX ) prec = MPFR_PREC_MAX; | ||
} else | } else | ||
prec = 0; | prec = 0; | ||
evalr(CO,(Obj)ARG0(arg),0,rp); | evalr(CO,(Obj)ARG0(arg),prec,rp); | ||
} | } | ||
/* bit precision */ | /* bit precision */ |