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/remainderl.S')
-rw-r--r--winsup/mingw/mingwex/math/remainderl.S22
1 files changed, 22 insertions, 0 deletions
diff --git a/winsup/mingw/mingwex/math/remainderl.S b/winsup/mingw/mingwex/math/remainderl.S
new file mode 100644
index 000000000..b5ce3736d
--- /dev/null
+++ b/winsup/mingw/mingwex/math/remainderl.S
@@ -0,0 +1,22 @@
+/*
+ * Written by J.T. Conklin <jtc@netbsd.org>.
+ * Public domain.
+ * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
+ * Removed header file dependency for use in libmingwex.a by
+ * Danny Smith <dannysmith@users.sourceforge.net>
+ */
+
+ .file "remainderl.S"
+ .text
+ .align 4
+.globl _remainderl
+ .def _remainderl; .scl 2; .type 32; .endef
+_remainderl:
+ fldt 16(%esp)
+ fldt 4(%esp)
+1: fprem1
+ fstsw %ax
+ sahf
+ jp 1b
+ fstp %st(1)
+ ret