kc3-lang/gnulib/tests/infinity.h

• Show log

  Commit

• Hash : 16f6a8d8
  Author :
  Date : 2017-01-30T18:20:43
  

  Port to PGI 16.10 x86-64
  
  This patch fixes one real bug in gl_anylinked_list2.h, along with
  some minor glitches that are not bugs.  It does not silence PGI’s
  thousands of bogus warnings when compiling test-intprops.c.
  Fortunately, the warnings do not cause a failure.
  * lib/c-ctype.h (_C_CTYPE_LOWER_A_THRU_F_N, _C_CTYPE_LOWER_N):
  Rename parameter to avoid PGI warning about ‘#define f(n) 'n'’.
  My goodness, PGI goes back a long ways - this predates C89!
  * lib/gl_anylinked_list2.h (ASYNCSAFE): Fix bug caught by PGI.
  For example, ASYNCSAFE (const void *) should expand to
  ‘const void *volatile’, not to ‘volatile const void *’.
  * lib/spawn.in.h (POSIX_SPAWN_USEVFORK): Don't define if already defined.
  * lib/verify.h (verify) [!__GNUC__]:
  Use shorter albeit meaningless string to bypass silly compiler limits.
  * tests/infinity.h (Infinityf, Infinityd, Infinityl) [__PGI]:
  * tests/nan.h (NaNf, NaNd, NaNl):
  Use static functions to avoid misguided compiler diagnostics.
  Is there some reason we don’t use static functions on all platforms?
  

Download

• tests/infinity.h

• /* Macros for infinity.
     Copyright (C) 2011-2017 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/>.  */
  
  
  /* Infinityf () returns a 'float' +Infinity.  */
  
  /* The Microsoft MSVC 9 compiler chokes on the expression 1.0f / 0.0f.
     The IBM XL C compiler on z/OS complains.
     PGI 16.10 complains.  */
  #if defined _MSC_VER || (defined __MVS__ && defined __IBMC__) || defined __PGI
  static float
  Infinityf ()
  {
    static float zero = 0.0f;
    return 1.0f / zero;
  }
  #else
  # define Infinityf() (1.0f / 0.0f)
  #endif
  
  
  /* Infinityd () returns a 'double' +Infinity.  */
  
  /* The Microsoft MSVC 9 compiler chokes on the expression 1.0 / 0.0.
     The IBM XL C compiler on z/OS complains.
     PGI 16.10 complains.  */
  #if defined _MSC_VER || (defined __MVS__ && defined __IBMC__) || defined __PGI
  static double
  Infinityd ()
  {
    static double zero = 0.0;
    return 1.0 / zero;
  }
  #else
  # define Infinityd() (1.0 / 0.0)
  #endif
  
  
  /* Infinityl () returns a 'long double' +Infinity.  */
  
  /* The Microsoft MSVC 9 compiler chokes on the expression 1.0L / 0.0L.
     The IBM XL C compiler on z/OS complains.
     PGI 16.10 complains.  */
  #if defined _MSC_VER || (defined __MVS__ && defined __IBMC__) || defined __PGI
  static long double
  Infinityl ()
  {
    static long double zero = 0.0L;
    return 1.0L / zero;
  }
  #else
  # define Infinityl() (1.0L / 0.0L)
  #endif
  

Download