src/lib-roff/hypot.cpp

   1 /*@
   2  * Copyright (c) 2014 - 2015 Steffen (Daode) Nurpmeso <sdaoden@users.sf.net>.
   3  *
   4  * Copyright (C) 2005 Free Software Foundation, Inc.
   5  * This file is part of the GNU C Library.
   6  *
   7  * The GNU C Library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Library General Public License as
   9  * published by the Free Software Foundation; either version 2 of the
  10  * License, or (at your option) any later version.
  11  *
  12  * The GNU C Library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Library General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Library General Public
  18  * License along with the GNU C Library; see the file COPYING.LIB.  If
  19  * not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  20  * Cambridge, MA 02139, USA.
  21  */
  22
  23 #include "config.h"
  24
  25 #include <math.h>
  26
  27 double groff_hypot(double x, double y)
  28 {
  29   double result = hypot(x, y);
  30
  31 #ifdef __INTERIX
  32   /* hypot() on Interix is broken */
  33   if (isnan(result) && !isnan(x) && !isnan(y))
  34     return 0.0;
  35 #endif
  36
  37   return result;
  38 }
  39
  40 // s-it2-mode