math: fix tgamma to raise underflow for large negative values

[oweals/musl.git] / src / math / significand.c

#define _GNU_SOURCE
#include <math.h>

double significand(double x)
{
        return scalbn(x, -ilogb(x));
}