1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
--- a/libm/s_floor.c +++ b/libm/s_floor.c @@ -81,3 +81,18 @@ libm_hidden_proto(floor) return x; } libm_hidden_def(floor) + + +libm_hidden_proto(trunc) +double +trunc(double x) +{ + if (!finite (x)) + return x; + + if (x < 0.0) + return - floor (-x); + else + return floor (x); +} +libm_hidden_def(trunc)