1  /* w_hypotl.c -- long double version of w_hypot.c.
       2   */
       3  
       4  /*
       5   * ====================================================
       6   * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
       7   *
       8   * Developed at SunPro, a Sun Microsystems, Inc. business.
       9   * Permission to use, copy, modify, and distribute this
      10   * software is freely granted, provided that this notice
      11   * is preserved.
      12   * ====================================================
      13   */
      14  
      15  /*
      16   * wrapper hypotl(x,y)
      17   */
      18  
      19  #include <math.h>
      20  #include <math_private.h>
      21  #include <math-svid-compat.h>
      22  #include <libm-alias-ldouble.h>
      23  
      24  
      25  #if LIBM_SVID_COMPAT
      26  long double
      27  __hypotl(long double x, long double y)
      28  {
      29  	long double z;
      30  	z = __ieee754_hypotl(x,y);
      31  	if(__builtin_expect(!isfinite(z), 0)
      32  	   && isfinite(x) && isfinite(y) && _LIB_VERSION != _IEEE_)
      33  	    return __kernel_standard_l(x, y, 204); /* hypot overflow */
      34  
      35  	return z;
      36  }
      37  libm_alias_ldouble (__hypot, hypot)
      38  #endif