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/truncf.c')
-rw-r--r--winsup/mingw/mingwex/math/truncf.c17
1 files changed, 17 insertions, 0 deletions
diff --git a/winsup/mingw/mingwex/math/truncf.c b/winsup/mingw/mingwex/math/truncf.c
new file mode 100644
index 000000000..53fccb153
--- /dev/null
+++ b/winsup/mingw/mingwex/math/truncf.c
@@ -0,0 +1,17 @@
+#include <fenv.h>
+#include <math.h>
+
+float
+truncf (float _x){
+ float retval;
+ unsigned short saved_cw;
+ __asm__ ("fnstcw %0;": "=m" (saved_cw)); /* save FPU control word */
+ __asm__ ("fldcw %0;"
+ :
+ : "m" ((saved_cw & ~(FE_TONEAREST | FE_DOWNWARD | FE_UPWARD
+ | FE_TOWARDZERO)) | FE_TOWARDZERO)
+ );
+ __asm__ ("frndint;" : "=t" (retval) : "0" (_x)); /* round towards zero */
+ __asm__ ("fldcw %0;" : : "m" (saved_cw) ); /* restore saved control word */
+ return retval;
+}