math: tgammal.c fixes
[oweals/musl.git] / src / math / modf.c
index de45069fcd994828ef0718fefdf53b74f3a6e8ea..8f337ef0972024e0d01e574e9580ae28d081fea7 100644 (file)
@@ -1,5 +1,4 @@
-#include <math.h>
-#include <stdint.h>
+#include "libm.h"
 
 double modf(double x, double *iptr)
 {
@@ -33,5 +32,6 @@ double modf(double x, double *iptr)
        }
        u.n &= ~mask;
        *iptr = u.x;
-       return x - *iptr;
+       STRICT_ASSIGN(double, x, x - *iptr);
+       return x;
 }