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 'newlib/libm/machine/i386/f_lrintf.c')
-rw-r--r--newlib/libm/machine/i386/f_lrintf.c32
1 files changed, 32 insertions, 0 deletions
diff --git a/newlib/libm/machine/i386/f_lrintf.c b/newlib/libm/machine/i386/f_lrintf.c
new file mode 100644
index 000000000..da8ffa62d
--- /dev/null
+++ b/newlib/libm/machine/i386/f_lrintf.c
@@ -0,0 +1,32 @@
+/*
+ * ====================================================
+ * x87 FP implementation contributed to Newlib by
+ * Dave Korn, November 2007. This file is placed in the
+ * public domain. Permission to use, copy, modify, and
+ * distribute this software is freely granted.
+ * ====================================================
+ */
+
+#if defined(__GNUC__) && !defined(_SOFT_FLOAT)
+
+#include <math.h>
+
+/*
+ * Fast math version of lrintf(x)
+ * Return x rounded to integral value according to the prevailing
+ * rounding mode.
+ * Method:
+ * Using inline x87 asms.
+ * Exception:
+ * Governed by x87 FPCR.
+ */
+
+long int _f_lrintf (float x)
+{
+ long int _result;
+ asm ("fistpl %0" : "=m" (_result) : "t" (x) : "st");
+ return _result;
+}
+
+#endif /* !__GNUC__ || _SOFT_FLOAT */
+