Welcome to mirror list, hosted at ThFree Co, Russian Federation.

cygwin.com/git/newlib-cygwin.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'winsup/mingw/mingwex/math/cosf.S')
-rw-r--r--winsup/mingw/mingwex/math/cosf.S29
1 files changed, 29 insertions, 0 deletions
diff --git a/winsup/mingw/mingwex/math/cosf.S b/winsup/mingw/mingwex/math/cosf.S
new file mode 100644
index 000000000..862f6ce6c
--- /dev/null
+++ b/winsup/mingw/mingwex/math/cosf.S
@@ -0,0 +1,29 @@
+/*
+ * Written by J.T. Conklin <jtc@netbsd.org>.
+ * Public domain.
+ *
+ * Removed glibc header dependancy by Danny Smith
+ * <dannysmith@users.sourceforge.net>
+ */
+ .file "cosf.S"
+ .text
+ .align 4
+.globl _cosl
+ .def _cosf; .scl 2; .type 32; .endef
+_cosf:
+ flds 4(%esp)
+ fcos
+ fnstsw %ax
+ testl $0x400,%eax
+ jnz 1f
+ ret
+1: fldpi
+ fadd %st(0)
+ fxch %st(1)
+2: fprem1
+ fnstsw %ax
+ testl $0x400,%eax
+ jnz 2b
+ fstp %st(1)
+ fcos
+ ret