5261 libm should stop using synonyms.h

          --- old/usr/src/lib/libm/common/LD/tanhl.c
          +++ new/usr/src/lib/libm/common/LD/tanhl.c

   1    1  /*
   2    2   * CDDL HEADER START
   3    3   *
   4    4   * The contents of this file are subject to the terms of the
   5    5   * Common Development and Distribution License (the "License").
   6    6   * You may not use this file except in compliance with the License.
   7    7   *
   8    8   * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9    9   * or http://www.opensolaris.org/os/licensing.
  10   10   * See the License for the specific language governing permissions
  11   11   * and limitations under the License.
  12   12   *
  13   13   * When distributing Covered Code, include this CDDL HEADER in each
  14   14   * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  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   * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  27   27   * Use is subject to license terms.
  28   28   */
  29   29  
  30      -#pragma weak tanhl = __tanhl
       30 +#pragma weak __tanhl = tanhl
  31   31  
  32   32  /*
  33   33   * tanhl(x) returns the hyperbolic tangent of x
  34   34   *
  35   35   * Method :
  36   36   *      1. reduce x to non-negative:  tanhl(-x) = - tanhl(x).
  37   37   *      2.
  38   38   *        0      <  x <=  small    :  tanhl(x) := x
  39   39   *                                                -expm1l(-2x)
  40   40   *        small  <  x <=  1        :  tanhl(x) := --------------

  41   41   *                                               expm1l(-2x) + 2
  42   42   *                                                        2
  43   43   *        1      <= x <= threshold :  tanhl(x) := 1 -  ---------------
  44   44   *                                                    expm1l(2x) + 2
  45   45   *     threshold <  x <= INF       :  tanhl(x) := 1.
  46   46   *
  47   47   * where
  48   48   *      single :        small = 1.e-5           threshold = 11.0
  49   49   *      double :        small = 1.e-10          threshold = 22.0
  50   50   *      quad   :        small = 1.e-20          threshold = 45.0
  51   51   *
  52   52   * Note: threshold was chosen so that
  53   53   *              fl(1.0+2/(expm1(2*threshold)+2)) == 1.
  54   54   *
  55   55   * Special cases:
  56   56   *      tanhl(NaN) is NaN;
  57   57   *      only tanhl(0.0)=0.0 is exact for finite argument.
  58   58   */
  59   59  
  60   60  #include "libm.h"
  61   61  #include "longdouble.h"
  62   62  
  63   63  static const long double small = 1.0e-20L, one = 1.0, two = 2.0,
  64   64  #ifndef lint
  65   65          big = 1.0e+20L,
  66   66  #endif
  67   67          threshold = 45.0L;
  68   68  
  69   69  long double
  70   70  tanhl(long double x) {
  71   71          long double t, y, z;
  72   72          int signx;
  73   73  #ifndef lint
  74   74          volatile long double dummy;
  75   75  #endif
  76   76  
  77   77          if (isnanl(x))
  78   78                  return (x + x);         /* x is NaN */
  79   79          signx = signbitl(x);
  80   80          t = fabsl(x);
  81   81          z = one;
  82   82          if (t <= threshold) {
  83   83                  if (t > one)
  84   84                          z = one - two / (expm1l(t + t) + two);
  85   85                  else if (t > small) {
  86   86                          y = expm1l(-t - t);
  87   87                          z = -y / (y + two);
  88   88                  } else {
  89   89  #ifndef lint
  90   90                          dummy = t + big;
  91   91                                                          /* inexact if t != 0 */
  92   92  #endif
  93   93                          return (x);
  94   94                  }
  95   95          } else if (!finitel(t))
  96   96                  return (copysignl(one, x));
  97   97          else
  98   98                  return (signx ? -z + small * small : z - small * small);
  99   99          return (signx ? -z : z);
 100  100  }

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX