summaryrefslogblamecommitdiff
path: root/src/math/__fpclassifyl.c
blob: 4f93bef17f6e46c821ba882241303257bf6e0637 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16















                                                                
#include <stdint.h>
#include <math.h>

/* FIXME: move this to arch-specific file */
int __fpclassifyl(long double __x)
{
	union {
		long double __ld;
		__uint16_t __hw[5];
		__uint64_t __m;
	} __y = { __x };
	int __ee = __y.__hw[4]&0x7fff;
	if (!__ee) return __y.__m ? FP_SUBNORMAL : FP_ZERO;
	if (__ee==0x7fff) return __y.__m ? FP_NAN : FP_INFINITE;
	return FP_NORMAL;
}