Print this page
5262 libm needs to be carefully unifdef'd
5268 libm doesn't need to hide symbols which are already local

Split Close
Expand all
Collapse all
          --- old/usr/src/lib/libm/common/Q/tanhl.c
          +++ new/usr/src/lib/libm/common/Q/tanhl.c
↓ open down ↓ 19 lines elided ↑ open up ↑
  20   20   */
  21   21  
  22   22  /*
  23   23   * Copyright 2011 Nexenta Systems, Inc.  All rights reserved.
  24   24   */
  25   25  /*
  26   26   * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  27   27   * Use is subject to license terms.
  28   28   */
  29   29  
  30      -#if defined(ELFOBJ)
  31   30  #pragma weak tanhl = __tanhl
  32      -#endif
  33   31  
  34   32  /*
  35   33   * tanhl(x) returns the hyperbolic tangent of x
  36   34   *
  37   35   * Method :
  38   36   *      1. reduce x to non-negative:  tanhl(-x) = - tanhl(x).
  39   37   *      2.
  40   38   *        0      <  x <=  small    :  tanhl(x) := x
  41   39   *                                                -expm1l(-2x)
  42   40   *        small  <  x <=  1        :  tanhl(x) := --------------
↓ open down ↓ 58 lines elided ↑ open up ↑
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX