cpython/Python/hypot.c

/* hypot() replacement */

#include "Python.h"

#ifndef HAVE_HYPOT
double hypot(double x, double y)
{
	double yx;

	x = fabs(x);
	y = fabs(y);
	if (x < y) {
		double temp = x;
		x = y;
		y = temp;
	}
	if (x == 0.)
		return 0.;
	else {
		yx = y/x;
		return x*sqrt(1.+yx*yx);
	}
}
#endif /* HAVE_HYPOT */
* empty log message * 1996-08-29 18:10:41 +00:00			`/* hypot() replacement */`

Patch #1418: Make the AC_REPLACE_FUNCS object files actually work. 2007-11-12 05:14:05 +00:00			`#include "Python.h"`
* empty log message * 1996-08-29 18:10:41 +00:00
Fixed a wrong assumption in configure.in and Include/pyport.h. The is finite function is not called isfinite() but finite(). Sorry, my fault. :) 2008-01-20 14:28:28 +00:00			`#ifndef HAVE_HYPOT`
Mass ANSIfication of function definitions. Doesn't cover all 'extern' declarations yet, those come later. 2000-07-22 18:47:25 +00:00			`double hypot(double x, double y)`
* empty log message * 1996-08-29 18:10:41 +00:00			`{`
			`double yx;`

			`x = fabs(x);`
			`y = fabs(y);`
			`if (x < y) {`
			`double temp = x;`
			`x = y;`
			`y = temp;`
			`}`
			`if (x == 0.)`
			`return 0.;`
			`else {`
			`yx = y/x;`
			`return xsqrt(1.+yxyx);`
			`}`
			`}`
Fixed a wrong assumption in configure.in and Include/pyport.h. The is finite function is not called isfinite() but finite(). Sorry, my fault. :) 2008-01-20 14:28:28 +00:00			`#endif /* HAVE_HYPOT */`