fixed modfl

ZERICO2005 · ZERICO2005 · commit 32a6bbd93330 · 2025-02-15T13:33:07.000-07:00
diff --git a/src/libc/modfl.c b/src/libc/modfl.c
@@ -16,7 +16,7 @@ long double modfl(long double x, long double *integral_part) {
         case FP_NORMAL:
     }
     long double trunc_x = truncl(x);
-    *integral_part = x;
+    *integral_part = trunc_x;
     // result will be exact, and should not raise exceptions
     return x - trunc_x;
 }

Original file line number	Diff line number	Diff line change
`@@ -16,7 +16,7 @@ long double modfl(long double x, long double *integral_part) {`
`16`	`16`	`case FP_NORMAL:`
`17`	`17`	`}`
`18`	`18`	`long double trunc_x = truncl(x);`
`19`		`- *integral_part = x;`
	`19`	`+ *integral_part = trunc_x;`
`20`	`20`	`// result will be exact, and should not raise exceptions`
`21`	`21`	`return x - trunc_x;`
`22`	`22`	`}`