kc3-lang/gnulib/lib/frexpl.c

• Show log

  Commit

• Hash : d48d7d91
  Author :
  Date : 2011-10-10T16:17:38
  

  frexpl: Simplify for platforms where 'long double' == 'double'.
  
  * lib/frexpl.c: Include <config.h>.
  (frexpl) [HAVE_SAME_LONG_DOUBLE_AS_DOUBLE]: New function.
  * lib/frexp.c [!USE_LONG_DOUBLE]: Don't include <config.h> a second
  time.
  * m4/frexpl.m4 (gl_FUNC_FREXPL): Require gl_LONG_DOUBLE_VS_DOUBLE.
  Determine FREXPL_LIBM according to HAVE_SAME_LONG_DOUBLE_AS_DOUBLE.
  (gl_FUNC_FREXPL_NO_LIBM): Require gl_LONG_DOUBLE_VS_DOUBLE.
  * modules/frexpl (Depends-on): Add frexp. Update conditions.
  * modules/frexpl-nolibm (Depends-on): Add frexp-nolibm. Update
  conditions.
  

Download

• lib/frexpl.c

• /* Split a 'long double' into fraction and mantissa.
     Copyright (C) 2007, 2009-2011 Free Software Foundation, Inc.
  
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 3 of the License, or
     (at your option) any later version.
  
     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.
  
     You should have received a copy of the GNU General Public License
     along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  
  #include <config.h>
  
  #if HAVE_SAME_LONG_DOUBLE_AS_DOUBLE
  
  /* Specification.  */
  # include <math.h>
  
  long double
  frexpl (long double x, int *expptr)
  {
    return frexp (x, expptr);
  }
  
  #else
  
  # define USE_LONG_DOUBLE
  # include "frexp.c"
  
  #endif
  

Download