Exemplo n.º 1
0
Arquivo: texp.c Projeto: jozip/xcl
static void
underflow (void)
{
    mpfr_exp_t emin;

    underflow_up (0);

    emin = mpfr_get_emin ();
    set_emin (MPFR_EMIN_MIN);
    if (mpfr_get_emin () != emin)
    {
        underflow_up (1);
        set_emin (emin);
    }
}
Exemplo n.º 2
0
static void
alltst (void)
{
  mpfr_exp_t emin, emax;

  ext = 0;
  tst ();
  underflow_up ();
  overflow_inv ();

  emin = mpfr_get_emin ();
  emax = mpfr_get_emax ();
  set_emin (MPFR_EMIN_MIN);
  set_emax (MPFR_EMAX_MAX);
  if (mpfr_get_emin () != emin || mpfr_get_emax () != emax)
    {
      ext = 1;
      tst ();
      underflow_up ();
      overflow_inv ();
      set_emin (emin);
      set_emax (emax);
    }
}