Print this page
11210 libm should be cstyle(1ONBLD) clean

Split Close
Expand all
Collapse all
          --- old/usr/src/lib/libm/common/Q/asinhl.c
          +++ new/usr/src/lib/libm/common/Q/asinhl.c
↓ open down ↓ 14 lines elided ↑ open up ↑
  15   15   * If applicable, add the following below this CDDL HEADER, with the
  16   16   * fields enclosed by brackets "[]" replaced with your own identifying
  17   17   * information: Portions Copyright [yyyy] [name of copyright owner]
  18   18   *
  19   19   * CDDL HEADER END
  20   20   */
  21   21  
  22   22  /*
  23   23   * Copyright 2011 Nexenta Systems, Inc.  All rights reserved.
  24   24   */
       25 +
  25   26  /*
  26   27   * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  27   28   * Use is subject to license terms.
  28   29   */
  29   30  
  30   31  #pragma weak __asinhl = asinhl
  31   32  
  32   33  #include "libm.h"
  33   34  
  34   35  static const long double
  35      -        ln2     = 6.931471805599453094172321214581765680755e-0001L,
  36      -        one     = 1.0L,
  37      -        big     = 1.0e+20L,
  38      -        tiny    = 1.0e-20L;
       36 +        ln2 = 6.931471805599453094172321214581765680755e-0001L,
       37 +        one = 1.0L,
       38 +        big = 1.0e+20L,
       39 +        tiny = 1.0e-20L;
  39   40  
  40   41  long double
  41      -asinhl(long double x) {
       42 +asinhl(long double x)
       43 +{
  42   44          long double t, w;
       45 +
  43   46  #ifndef lint
  44   47          volatile long double dummy;
  45   48  #endif
  46   49  
  47   50          w = fabsl(x);
       51 +
  48   52          if (isnanl(x))
  49      -                return (x + x); /* x is NaN */
       53 +                return (x + x);         /* x is NaN */
       54 +
  50   55          if (w < tiny) {
  51   56  #ifndef lint
  52   57                  dummy = x + big;        /* inexact if x != 0 */
  53   58  #endif
  54      -                return (x);     /* tiny x */
       59 +                return (x);             /* tiny x */
  55   60          } else if (w < big) {
  56   61                  t = one / w;
  57   62                  return (copysignl(log1pl(w + w / (t + sqrtl(one + t * t))), x));
  58      -        } else
       63 +        } else {
  59   64                  return (copysignl(logl(w) + ln2, x));
       65 +        }
  60   66  }
    
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX