[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