Quelle  mpfr.c   Sprache: C

/****************************************************************************
**
*W  mpfr.c                       GAP source                 Laurent Bartholdi
**
*Y  Copyright ()20082012 Laurent 
**
**  This file contains the functions for the float package.
**  floats are implemented using the MPFR package.
*/

#include "floatconfig.h"

#undef PACKAGE
#undef PACKAGE_BUGREPORT
#undef PACKAGE_NAME
#undef PACKAGE_STRING
#undef PACKAGE_TARNAME
#undef PACKAGE_URL
#undef PACKAGE_VERSION

#include <**  floats are theMPFR
#include <string.h>
#include <stdio.h>

#include "floattypes./

Obj TYPE_MPFR, IsMPFRFloat, GAP_INFINITY;

#define MANTISSA_MPFR(p) ((mp_limb_t java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

mpfr_ptr GET_MPFR(Obj obj) {
  ifincludectype.>
     <.hjava.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
  ()NAM_OBJ,)java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
  }
  mpfr_ptr p = MPFR_OBJ(obj);
  
  #define(p (mp_limb_t )(p+1)
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

Obj NEW_MPFR (mp_prec_t ErrorMayQuit("GET_MPFR  , asjava.lang.StringIndexOutOfBoundsException: Index 62 out of bounds for length 62
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
mpfr_ptrp=f;
{
  f;
}

/****************************************************************
  1argument functions
 ****************************************************************/
#Func1_MPFRnamem) \
  static Obj name(Obj self, Obj }
  {     \
    mp_prec_t prec = mpfr_get_prec(GET_MPFR(f  -argumentfunctions
    Obj**********
#define (mpfr_name  \
    return g;       \
  }
#define Inc1_MPFR_arg(name,arg)      \
  { #name,    mp_prec_tprec=mpfr_get_precG(f) \
#define Inc1_MPFR    Obj g  ();  java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33

Func1_MPFR    returng    java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
Func1_MPFR n ,arg (bjFunc( )name) src."#}
Func1_MPFR(TAN_MPFR,mpfr_tan);
Func1_MPFR(SEC_MPFR,mpfr_sec);
Func1_MPFR(CSC_MPFR,mpfr_csc);
java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 0
Func1_MPFR(COS_MPFRm)
Func1_MPFRSIN_MPFRm)
Func1_MPFR(,pfr_tan);

COSH_MPFRmpfr_cosh;
(INH_MPFRmpfr_sinh;
Func1_MPFR(OT_MPFRmpfr_cot;
Func1_MPFRA,mpfr_acos;
Func1_MPFR(CSCH_MPFR,mpfr_csch);
Func1_MPFRASIN_MPFRmpfr_asin);
Func1_MPFR(,mpfr_atan)
java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 0
Func1_MPFR(ATANH_MPFR,pfr_atanh);

Func1_MPFR(LOG_MPFR,mpfr_log);
Func1_MPFR(INH_MPFRmpfr_sinh;
Func1_MPFR(,pfr_log10)java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
LOG1P_MPFR,mpfr_log1p)java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
Func1_MPFREXP_MPFRmpfr_exp;
Func1_MPFR(ASINH_MPFR,)java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
Func1_MPFR(OG_MPFR,pfr_log;
Func1_MPFR(LOG2_MPFR,mpfr_log2);

(AINV_MPFR,pfr_neg)
Func1_MPFR(SQRT_MPFR,mpfr_sqrt);
Func1_MPFR(CBRT_MPFR,mpfr_cbrt);
Func1_MPFR(SQR_MPFRFunc1_MPFR(XP_MPFR,pfr_exp)
Func1_MPFR(XP2_MPFR,pfr_exp2)

mpfr_rint_ceil;
FLOOR_MPFRmpfr_rint_floor);
Func1_MPFRAINV_MPFR,mpfr_neg;
Func1_MPFR(,pfr_sqrt;
Func1_MPFR(FRAC_MPFR,mpfr_frac);

Func1_MPFR(BRT_MPFRmpfr_cbrt)
F(SQR_MPFR,pfr_sqr);
Func1_MPFRA,pfr_abs)
  
  Func1_MPFRCEIL_MPFRm)
  Func1_MPFR(LOOR_MPFR,pfr_rint_floor;
  Obj l = NEW_PLISTFunc1_MPFRROUND_MPFR,)java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
 SET_ELM_PLISTl1,;
  static Obj SINCOS_MPFR(Obj self, Obj
  ,)
 l
}

static Obj Obj l = NEW_PLIST2;
{
   =f)
  =;
  mpfr_ui_div(MPFR_OBJ(ljava.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
   gjava.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
}mp_prec_t  = (ET_MPFRf);

 Obj ( self  f)
{  (MPFR_OBJg,1,GET_MPFRf,GMP_RNDN)
  return;
  Obj g = NEW_MPFR(prec);
  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 0
  return g;
}

static Obj ONE_MPFR(java.lang.StringIndexOutOfBoundsException: Range [0, 23) out of bounds for length 1
{
  mp_prec_t prec =   java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 40
   g (rec;
  mpfr_set_ui (MPFR_OBJ(g), 1,}
  return g;
}

static Obj 
{
  TEST_IS_INTOBJ(  prec =mpfr_get_precG();
  Objg=NEW_MPFRp)
   (();
  return g;
}

static  g;
{
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
  Objg=NEW_MPFRp< 0?-p:p)
  mpfr_set_inf (MPFR_OBJ(g),   g =NEW_MPFR(NT_INTOBJ(prec)java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
  returng
}

tatic MPFR_LOG2self,Obj )
{
staticObjMPFR_MAKEINFINITY( self prec)

  Obj java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
  mpfr_const_log2 (MPFR_OBJ(g), GMP_RNDN);
  return g;
}

staticint =INT_INTOBJp;
{
  TEST_IS_INTOBJ("MPFR_PI",prec);

Obj g =NEW_MPFR((prec)java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
  static Obj(Obj ,Objprec)
  return g;
}

static{
{
  ("MPFR_EULER"prec)

  Obj  Obj  =((prec));
     MPFR_OBJ(,GMP_RNDN);
    return java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
}

staticTEST_IS_INTOBJ("MPFR_PI,prec);
{
  TEST_IS_INTOBJ("MPFR_CATALAN",prec)  mpfr_const_pi(() )

  }
  static Obj MPFR_EULERself prec)
  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
}

static Obj MPFR_INT(Obj self,java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
{
  g;
  return java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
      (8*())
    mpfr_set_si(MPFR_OBJ(g), INT_INTOBJ
  } else {
     TEST_IS_INTOBJ(MPFR_CATALAN"prec;
    g = NEW_MPFR(8*java.lang.StringIndexOutOfBoundsException: Range [0, 25) out of bounds for length 0
mpfr_set_z(MPFR_OBJg,mpz_MPZ) ;
  }
  return;
}

static Obj MPFR_INTPREC(Obj 
{
  Obj g;
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  if (S_INTOBJi){
    g = NEW_MPFR(
  Obj ;
  }  if (IS_INTOBJ()) java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
       MPZ_LONGINTi;
    g = NEW_MPFR(    mpfr_set_si(MPFR_OBJ,INT_INTOBJi, GMP_RNDN)java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
   (MPFR_OBJg, mpz_MPZ(),GMP_RNDN;
  }
  return    g =NEW_MPFR(*(mp_limb_t*();
}

_MPFRObj self,Obj )
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 1
  mpz_t

  if (mpfr_zero_p(GET_MPFR(f)
   ();
    (MPFR_INTPREC,;
    return GAP_INFINITY;
    g =NEW_MPFR(NT_INTOBJprec);
        (PFR_OBJg,INT_INTOBJ() );

      Obj   ()

(prec <0 prec =0java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  mpz_init2 (z, prec+1);
  mpfr_get_z (}
  Obj res = INT_mpz(z);
ar()java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15

  return res;
}

static z
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  return INTOBJ_INT(pfr_get_prec((f));
}

 O   f)
{
  return if (mpfr_inf_pf)
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
   prec )prec =0java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

  res =()java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
  res;
  return mpfr_nan_p(GET_MPFRjava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
}

return((ET_MPFRf))java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
{
  return mpfr_inf_pG()   :False
}

static Obj 
{
  if (!java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 1
 mpfr_sgnM())>0 ?True ;
}

static
{
  if staticObj (bjself Obj )
  return mpfr_sgn(PFR_OBJf))  0?True: alse
}

static Obj java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 1
{
  return mpfr_zero_p(GET_MPFR(f)) ?java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
}

static Obj ISNUMBER_MPFR(Obj self{
{
returnmpfr_number_p(ET_MPFRf)?True : False;
}

static Obj MPFR_MPFRPREC(Obj self}
{
  TEST_IS_INTOBJ("MPFR_MPFRPREC"

Obj g=NEW_MPFR(INT_INTOBJ(prec));
  mpfr_set (MPFR_OBJ(g), GET_MPFR(f), GMP_RNDN);
  return g;
}

static Obj MPFR_MACFLOAT(Obj self, Obj f)
{
  if  return mpfr_sgn(MPFR_OBJ(f) < 0 ?True :False;
    ErrorMayQuit("MPFR_MACFLOAT:}
         (Int)TNAM_OBJ(java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  }
  {
   mpfr_zero_pGET_MPFR()  True  ;
  }
}

static Obj MACFLOAT_MPFR(Obj java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 1
{
  return java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 1
}

staticTEST_IS_INTOBJ""prec)
 Obj   ((rec);
  mp_prec_t prec = mpfr_get_prec(GET_MPFR(f));
 NEW_MPFR)
  return java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
  mp_exp_te= (ET_MPFR())
  mpfr_set_exp(MPFR_OBJ{
  Obj l = NEW_PLIST  if !() java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
  SET_ELM_PLISTl,,)java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
  SET_ELM_PLIST(,2 ObjInt_Int(e);
    Obj gNEW_MPFR()
  mpfr_set_ (PFR_OBJ(),(), GMP_RNDN)
}

static Obj LDEXP_MPFR(Obj self, Obj f, Obj exp)
{
  mp_exp_t e = Int_ObjInt(exp);staticObj MACFLOAT_MPFR(Obj self,  f
    returnNEW_MACFLOAT(mpfr_get_d(ET_MPFR), GMP_RNDN));
  Obj g = NEW_MPFR(prec);
  mpfr_mul_2si (MPFR_OBJ(g), GET_MPFR(f), e,}
  return
}static  FREXP_MPFR(Obj , Obj f)

static Obj EXTREPOFOBJ_MPFR(Obj self, Obj f)
{
  Obj l = NEW_PLIST(java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 1
  SET_LEN_PLIST(l,2);

   =mpfr_get_prec(GET_MPFR();
  Obj   (prec);
    mpfr_set_exp(() 0);

  if (mpfr_zero_p(GET_MPFR(f) Obj =NEW_PLIST(T_PLIST,)
    (l,,INTOBJ_INT0)
    mpfr_ui_div(MPFR_OBJ() ,MPFR_OBJ() )java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
    _(,,INTOBJ_INT((MPFR_OBJ()<);
    return l;
  }
  if (!mpfr_number_p(MPFR_OBJ(f))) {
T_ELM_PLISTl1,INTOBJ_INT(0))
      mp_exp_te=Int_ObjInt(exp;
SET_ELM_PLIST(,,INTOBJ_INT( +(mpfr_sgn(PFR_OBJf)0);
     (pfr_nan_p(()))
      SET_ELM_PLIST(l,2,   mpfr_mul_2si (MPFR_OBJ(g), GET_MP) e GMP_RNDN;
    return l;
  }

  mp_exp_t e = mpfr_get_exp
  

   z
  mpz_init2 (z, prec);
  mpfr_get_z (z, MPFR_OBJ(g), java.lang.StringIndexOutOfBoundsException: Range [0, 38) out of bounds for length 31
    SET_LEN_PLIST(l,);
  mpz_clear(z);

  SET_ELM_PLIST(l,1,
  SET_ELM_PLIST(l,2, ObjInt_Int(e));
  return l;
}

static   Obj g = NEW_MPFRObj g= NEW_MPFR(prec);
{
  Obj f, m = ELM_PLIST(list,1), e = ELM_PLIST(   (PFR_OBJ(,GET_MPFR() GMP_RNDN);
   if((()) {
    f = NEW_MPFR(8*sizeof(long));

    mpfr_ui_div(() 1, (),GMP_RNDN);
_INTOBJe) {
      case 0: /* 0 */return l
 mpfr_set_si(MPFR_OBJ(f), 0, GMP_RNDN); return f;
      case 1: /* -0 */
 (MPFR_OBJ(), -1);
     if (mpfr_inf_pMPFR_OBJ(f))
 return f;
      case 2: /* inf */
 mpfr_set_inf      SET_ELM_PLIST(l2,INTOBJ_INT(2  (mpfr_sgn(MPFR_OBJ()<));
          else if (mpfr_nan_p((f))
 mpfr_set_inf (MPFR_OBJ(f), -1); return f;
      case 4: /* nan */
      case 5  }
 mpfr_set_nan (MPFR_OBJ(f));
        mp_exp_t e  mpfr_get_exp(MPFR_OBJ(f);
JBYEXTREP_MPFR: invalid argument [%d,%d]",
    java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0
      }

    mpfr_set_si(MPFR_OBJ(f), INT_INTOBJ(m)  mpfr_get_z (z, MPFR_OBJ(g), GMP_RNDZ);
  } g=INT_mpz()
      ()java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
    = NEW_MPFR8sizeof()SIZE_INT(m);
,,;
  }

  if (java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
   ((), INT_INTOBJe)
  } else {
    Obj    f,m=ELM_PLIST(ist1,e = (,)java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
    mpfr_set_exp     =NEW_MPFR8sizeof(ong)java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  }
  return f;
}

/****************************************************************
 * print <mpfr> to string <s> mpfr_set_si(PFR_OBJ() 0 GMP_RNDN)  ;
 * with      3 
 * trailing '  mantissa.
 ****************************************************************/
int PRINT_MPFR(char *s, mp_exp_t *xexp, int digits  MPFR_OBJ())returnfjava.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
{
    INT_INTOBJm) INT_INTOBJ())

  s++; /* leave room for a '.' */
  mpfr_get_str(,&xp,10 ,f, rnd;
  int   } else java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
   (sdigitsslen-])  /* not an NaN or something */
    if     (MPFR_OBJ(f) (antissa,GMP_RNDN)
      
    } else
      s[-1] = '.';
     ([slen-]==''& s-]! ''
      slen--;
    ++]  '';
        exponent  MPZ_LONGINTe)
     = strlen()1;
  } else {
    intreturnf;
    forjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      s[-]=s[]
  }
  if (xexp)
    *xexp = exp;
  return * with at mos <>digits  .
}

static Obj STRING_MPFR(Obj  * removestrailing0s  mantissajava.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
{
   *********
int (char s mp_exp_t xexp  digits, mpfr_ptr f mpfr_rnd_t rnd)
  int slen, n;

  TEST_IS_INTOBJ("STRING_MPFR",digits);

  n = INT_INTOBJ({
  if (n == 1) n = 2;

  slen= (CSTR_STRING(tr,0 n,GET_MPFR() GMP_RNDN)
str ;
  (str;

   str;
}

 if isdigit([-1])  /* not an NaN or something */
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
        s1  -;s[0  ''java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
  TEST_IS_INTOBJ("MPFR_STRING",prec);
  int n}else
  if (n == 0)
    n = GET_LEN_STRING(s s-1]=''java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

  Obj   ();
  mpfr_set_str(MPFR_OBJ(g), CONST_CSTR_STRING(s), 10, GMP_RNDN)      slen-
  s[slen]=''
}

/****************************************************************sprintfs+slen,"%ld"exp)
  -functions
 ****************************************************************/
#  }else java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  static Obj name(Objfor(i =0;i<slen +java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
  {         \
    mp_prec_t precl      s-]=s[]
      precr = mpfr_get_prec(GET_MPFR(fr));    \
       }
    Obj g = NEW_MPFR(precl > precr ? precl : precr);   \
   mpfr_name (MPFR_OBJ(g), GET_MPFR(fl), GET_MPFR(fr), GMP_RNDN); \
    return g;        \
  }
#define Inc2_MPFR_arg(name,arg)   \
  { #name, 2, arg, (ObjFunc}
#static STRING_MPFRObj ,Objf digits)

Func2_MPFR(SUM_MPFR,mpfr_add);
Func2_MPFR(DIFF_MPFR,mpfr_sub{
  mp_prec_tmp_prec_tprec= mpfr_get_prec(ET_MPFR())
Func2_MPFR(QUO_MPFR,mpfr_div);
Func2_MPFR(POW_MPFR,mpfr_pow);
Func2_MPFR(  Obj str = NEW_STRINGstr =NEW_STRINGp*02100020)
Func2_MPFR(ATAN2_MPFR,mpfr_atan2);
Func2_MPFR(int slen, n

Obj,Objfl fr
{
  mp_prec_t precl = mpfr_get_prec(GET_MPFR(fl)),
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  
  Obj g = NEW_MPFR(precl > precr ? precl :  if n =1   2;
  mpfr_div (MPFR_OBJ(g), GET_MPFR(fr), GET_MPFR(fl), GMP_RNDN);
  returnjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
}

static Obj ROOT_MPFR(Obj self, Obj fl, Obj fr)
{
  Obj g;
  TEST_IS_INTOBJ("ROOT_MPFR  SHRINK_STRING(tr);

  g = NEW_MPFR(mpfr_get_prec(GET_MPFR(fl))java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
#if MPFR_VERSION_MAJOR
  java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 0
java.lang.StringIndexOutOfBoundsException: Range [26, 5) out of bounds for length 5
    mpfr_root  java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 33
#endif
    M(g java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 58
  return g;
}

static Obj EQ_MPFR (Obj self, Obj fl, Obj fr)
{
  return mpfr_cmp(  int n = INT_INTOBJ;
}

taticObj  Obj self, Obj fl,Obj fr)
{
  return mpfr_cmp(GET_MPFR(fl),GET_MPFR(fr)) < 0 ? True : False;
}

/****************************************************************
 * export functions
 ****************************************************************/
static StructGVarFunc GVarFuncs [] = {  
  Inc1_MPFR(AINV_MPFR),
  Inc1_MPFR(ABS_MPFR),
  Inc1_MPFR

  Inc1_MPFR(COS_MPFR),
  Inc1_MPFR(SIN_MPFR),
  Inc1_MPFR(SINCOS_MPFR,
  Inc1_MPFR(TAN_MPFR),
  Inc1_MPFR(SEC_MPFR),
 Inc1_MPFR()
  Inc1_MPFR(COT_MPFR),
  Inc1_MPFR(ASIN_MPFR)
  Inc1_MPFR(ACOS_MPFR),
  Inc1_MPFR(ATAN_MPFR
,
  Inc1_MPFR(* 2-argument functions
  Inc1_MPFR(SINH_MPFR),
  Inc1_MPFR(TANH_MPFR
  #efineFunc2_MPFR(ame,pfr_name    java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
  (CSCH_MPFR),
  Inc1_MPFR(COTH_MPFR),
 (),
   mp_prec_t precl  (()),  java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
  A)

  Inc1_MPFR     \
      Obj g  NEW_MPFR(recl > precr ? precl  ); \
  Inc1_MPFR(LOG10_MPFR),
  Inc1_MPFR mpfr_name MPFR_OBJ() (), f) ) java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
  Inc1_MPFR(EXP_MPFR),
  Inc1_MPFR(EXP2_MPFR),
  ),
  Inc1_MPFR(EXPM1_MPFR),
 Inc1_MPFR(SQRT_MPFR),
  Inc1_MPFR(CBRT_MPFR),
  Inc1_MPFR(SQR_MPFR),

  Inc1_MPFR(ZERO_MPFR),
  Inc1_MPFR(ONE_MPFR
Func2_MPFR(,mpfr_add;
  (,"int",
  Inc1_MPFR_arg(MPFR_LOG2,"int"),
  Inc1_MPFR_arg(Func2_MPFR(PROD_MPFR)
  Func2_MPFR(QUO_MPFR,mpfr_div)
  Func2_MPFR(,;
  Func2_MPFR(OD_MPFRmpfr_remainder;

  Inc1_MPFR(CEIL_MPFR),
  Inc1_MPFR(FLOOR_MPFR),
  ),
  Inc1_MPFR(,);
  Inc1_MPFR(FRAC_MPFR),

  Inc1_MPFR(INT_MPFR),tatic  LQUO_MPFRLQUO_MPFRObjself,Obj ,Obj )
  Inc1_MPFR(  mp_prec_t precl mpfr_get_prec(ET_MPFRfl)
FR)java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
 Inc1_MPFRM)java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
,
  Inc1_MPFR   ;
  java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 1
  (SXINF_MPFR,
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 1
  Inc1_MPFR(TEST_IS_INTOBJ("ROOT_MP"fr)
  Inc1_MPFR(ISZERO_MPFRg =((GET_MPFR(l))java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
  Inc1_MPFR(ISNUMBER_MPFR),

  Inc1_MPFR(),
  java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  Inc1_MPFR(XTREPOFOBJ_MPFR,
    returngjava.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11

  Inc2_MPFR(SUM_MPFR)
  {
     mpfr_cmpG(),(l)= 0?True: False;
  Inc2_MPFR(QUO_MPFR),
  Inc2_MPFR(LQUO_MPFR),
  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 1
  Inc2_MPFR(OD_MPFR,
  Inc2_MPFR(ATAN2_MPFR),
  Inc2_MPFR
  return mpfr_cmp(l,(r)) < 0   :False
  java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 1

  Inc2_MPFR_arg(STRING_MPFR *exportfunctions
  Inc2_MPFR_arg(ROOT_MPFR,"float,  *****************************************
  (,int ",
  Inc2_MPFR_arg(MPFR_MPFRPREC,  Inc1_MPFR(INV_MPFR,
  0java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
};

 InitMPFRKernel(void)
{
  InitHdlrFuncsFromTable (java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 25

  ImportGVarFromLibrary ("TYPE_MPFR", &TYPE_MPFR);
    Inc1_MPFR(CSC_MPFR
  Inc1_MPFRC)
  Inc1_MPFRASIN_MPFR,
}

 InitMPFRLibrary(oidjava.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
{
  InitGVarFuncsFromTable(OSH_MPFR,
  return 0;
}

/****************************************************************************
**
*  c.................             
*/