Exemple #1
0
Fichier : texp.c Projet : 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);
    }
}
Exemple #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);
    }
}