[MLton-commit] r7102

Ville Laurikari ville at mlton.org
Wed Apr 22 01:49:44 PDT 2009


Fixed fesetround() return type.

----------------------------------------------------------------------

U   mlton/trunk/runtime/basis/Real/IEEEReal.c

----------------------------------------------------------------------

Modified: mlton/trunk/runtime/basis/Real/IEEEReal.c
===================================================================
--- mlton/trunk/runtime/basis/Real/IEEEReal.c	2009-04-22 08:49:40 UTC (rev 7101)
+++ mlton/trunk/runtime/basis/Real/IEEEReal.c	2009-04-22 08:49:43 UTC (rev 7102)
@@ -23,7 +23,7 @@
                >> FPU_ROUNDING_CONTROL_SHIFT;
 }
 
-static inline void fesetround (C_Int_t mode) {
+static inline C_Int_t fesetround (C_Int_t mode) {
         uint16_t fpuControl;
 #ifdef __x86_64__
         uint32_t sseControl;
@@ -40,6 +40,7 @@
         sseControl |= mode << SSE_ROUNDING_CONTROL_SHIFT;
         _SSE_SETCSR (sseControl);
 #endif
+        return 0;
 }
 
 #elif (defined __UCLIBC__)




More information about the MLton-commit mailing list