summaryrefslogtreecommitdiff
path: root/libm/s_fdim.c
diff options
context:
space:
mode:
authorBernhard Reutner-Fischer <rep.dot.nop@gmail.com>2008-09-25 19:07:18 +0000
committerBernhard Reutner-Fischer <rep.dot.nop@gmail.com>2008-09-25 19:07:18 +0000
commitc7a58c2edadb8fce84ab2f8b129a87eb19bdc485 (patch)
treeb0ce15fb6eb16bbfe34612a21ffc16709d397b33 /libm/s_fdim.c
parentc8d8b6d30a29b353637cd1c7379402bff2481b79 (diff)
- add some more math functions (patch from gentoo/solar)
Diffstat (limited to 'libm/s_fdim.c')
-rw-r--r--libm/s_fdim.c25
1 files changed, 25 insertions, 0 deletions
diff --git a/libm/s_fdim.c b/libm/s_fdim.c
new file mode 100644
index 000000000..6fdf3c2d6
--- /dev/null
+++ b/libm/s_fdim.c
@@ -0,0 +1,25 @@
+/* Copyright (C) 2002 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 "math.h"
+#include "math_private.h"
+
+libm_hidden_proto(fdim)
+#ifdef __STDC__
+ double fdim(double x, double y)
+#else
+ double fdim(x,y)
+ double x;
+ double y;
+#endif
+{
+ int c = __fpclassify(x);
+ if (c == FP_NAN || c == FP_INFINITE)
+ return HUGE_VAL;
+
+ return x > y ? x - y : 0.0;
+}
+libm_hidden_def(fdim)