comparison src/floatfns.c @ 4501:9352d7d021c2

* config.h.in (HAVE_LOGB, HAVE_FREXP): Add #undefs for the configuration script to edit. * floatfns.c (Flogb): Use HAVE_LOGB and HAVE_FREXP, instead of assuming that all USG systems have FREXP.

4500:56d7c4beae9f

{
  Lisp_Object val;
  int value;
  double f = extract_float (arg);

#ifdef USG
  {
    int exp;  

    IN_FLOAT (frexp (f, &exp), "logb", arg);
    XSET (val, Lisp_Int, exp-1);
  }
#else
  IN_FLOAT (value = logb (f), "logb", arg);
  XSET (val, Lisp_Int, value);
#endif

  return val;
}

4501:9352d7d021c2

{
  Lisp_Object val;
  int value;
  double f = extract_float (arg);

#ifdef HAVE_LOGB
  IN_FLOAT (value = logb (f), "logb", arg);
  XSET (val, Lisp_Int, value);
#else
#ifdef HAVE_FREXP
  {
    int exp;  

    IN_FLOAT (frexp (f, &exp), "logb", arg);
    XSET (val, Lisp_Int, exp-1);
  }
#else
  Well, what *do* you have?
#endif
#endif

  return val;
}