summaryrefslogtreecommitdiff
path: root/lib/libm/arch/mc68881
diff options
context:
space:
mode:
Diffstat (limited to 'lib/libm/arch/mc68881')
-rw-r--r--lib/libm/arch/mc68881/s_signbitl_e.c19
1 files changed, 19 insertions, 0 deletions
diff --git a/lib/libm/arch/mc68881/s_signbitl_e.c b/lib/libm/arch/mc68881/s_signbitl_e.c
new file mode 100644
index 00000000000..2824f4ec835
--- /dev/null
+++ b/lib/libm/arch/mc68881/s_signbitl_e.c
@@ -0,0 +1,19 @@
+/* $OpenBSD: s_signbitl_e.c,v 1.1 2007/06/01 05:53:27 jason Exp $ */
+
+/*
+ * Written by Jason L. Wright (jason@thought.net) in 2007 and placed
+ * into the public domain.
+ */
+
+#include "math.h"
+#include "math_private.h"
+
+/* __signbitl for extended long double */
+
+int
+__signbitl(long double l)
+{
+ ieee_extended_shape_type e;
+ e.value = l;
+ return (e.parts.msw & 0x80000000);
+}