about summary refs log tree commit diff
path: root/sysdeps/libm-i387/s_nearbyintl.S
diff options
context:
space:
mode:
Diffstat (limited to 'sysdeps/libm-i387/s_nearbyintl.S')
-rw-r--r--sysdeps/libm-i387/s_nearbyintl.S23
1 files changed, 23 insertions, 0 deletions
diff --git a/sysdeps/libm-i387/s_nearbyintl.S b/sysdeps/libm-i387/s_nearbyintl.S
new file mode 100644
index 0000000000..c50b42d961
--- /dev/null
+++ b/sysdeps/libm-i387/s_nearbyintl.S
@@ -0,0 +1,23 @@
+/*
+ * Written by J.T. Conklin <jtc@netbsd.org>.
+ * Public domain.
+ */
+/* Adapted for use as nearbyint by Ulrich Drepper <drepper@cygnus.com>.  */
+
+#include <machine/asm.h>
+
+ENTRY(__nearbyintl)
+	fldt	4(%esp)
+	pushl	%eax
+	pushl	%ecx
+	fnstcw	(%esp)
+	movl	(%esp), %eax
+	andl	$~0x20, %eax
+	movl	%eax, 4(%esp)
+	fldcw	4(%esp)
+	frndint
+	fclex
+	fldcw	(%esp)
+	ret
+END (__nearbyintl)
+weak_alias (__nearbyintl, nearbyintl)