newlib/libm/math/el_hypot.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

/* Copyright (C) 2015 by  Red Hat, Incorporated. All rights reserved.
 *
 * Permission to use, copy, modify, and distribute this software
 * is freely granted, provided that this notice is preserved.
 */

#include "fdlibm.h"

long double
__ieee754_hypotl (long double x, long double y)
{
#ifdef _LDBL_EQ_DBL
  return __ieee754_hypot (x, y);
#else
  /* Keep it simple for now...  */
  return sqrtl ((x * x) + (y * y));
#endif
}