bridge/class-master/depend/pari/src/language/es.c
/* e binary exponent, return exponent in base ten */
e binary exponent, return exponent in base ten
e binary exponent return exponent in base ten
static long
ex10(long e) {
  pari_sp av;
  GEN z;
  if (e >= 0) {
    if (e < 1e15) return (long)(e*LOG10_2);
    av = avma; z = mulur(e, log10_2());
    z = floorr(z); e = itos(z);
  }
  else 
  {
    if (e > -1e15) return (long)(-(-e*LOG10_2)-1);
    av = avma; z = mulsr(e, log10_2());
    z = floorr(z); e = itos(z) - 1;
  }
  avma = av; return e;
}
static long ex10 ( long e ) { pari_sp av ; GEN z ; if ( e >= 0 ) { if ( e < 1e15 ) return ( long ) ( e * LOG10_2 ) ; av = avma ; z = mulur ( e , log10_2 ( ) ) ; z = floorr ( z ) ; e = itos ( z ) ; } else { if ( e > -1e15 ) return ( long ) ( - ( - e * LOG10_2 ) - 1 ) ; av = avma ; z = mulsr ( e , log10_2 ( ) ) ; z = floorr ( z ) ; e = itos ( z ) - 1 ; } avma = av ; return e ; }
e binary exponent, return exponent in base ten
e binary exponent return exponent in base ten
/* e < 0 */