musl-tcc/src/math/x86_64/remainderl.c

10 lines
200 B
C
Raw Normal View History

2022-03-20 04:48:53 -04:00
#include <math.h>
long double remainderl(long double x, long double y)
{
unsigned short fpsr;
do __asm__ ("fprem1; fnstsw %%ax" : "+t"(x), "=a"(fpsr) : "u"(y));
while (fpsr & 0x400);
return x;
}