21 extern half __attribute__((overloadable)) copysign(half x, half y) {  in copysign()  argument
23     GET_HALF_WORD(hx, x);  in copysign()
26     SET_HALF_WORD(x, (hx & 0x7fff) | (hy & 0x8000));  in copysign()
27     return x;  in copysign()
31 extern half __attribute__((overloadable)) frexp(half x, int *eptr) {  in frexp()  argument
35     GET_HALF_WORD(hx, x);  in frexp()
39     if (ix >= 0x7c00 || ix == 0) return x; // NaN, infinity or zero  in frexp()
43         x *= two12;  in frexp()
44         GET_HALF_WORD(hx, x);  in frexp()
53     SET_HALF_WORD(x, hx);  in frexp()
54     return x;  in frexp()
58 extern int __attribute__((overloadable)) ilogb(half x) {  in ilogb()  argument
63     GET_HALF_WORD(hx, x);  in ilogb()
82 extern half __attribute__((overloadable)) modf(half x, half *iptr) {  in modf()  argument
85     GET_HALF_WORD(i0, x);  in modf()
90             return x;  in modf()
95                 *iptr = x;  in modf()
96                 SET_HALF_WORD(x, i0 & 0x8000);  in modf()
97                 return x;  in modf()
101                 return x - *iptr;  in modf()
107         *iptr = x;  in modf()
108         if (x != x)  in modf()
109             return x;  in modf()
110         GET_HALF_WORD(ix, x);  in modf()
111         SET_HALF_WORD(x, ix & 0x8000); // x = +/- 0  in modf()
112         return x;  in modf()
117 extern half __attribute__((overloadable)) nextafter(half x, half y) {  in nextafter()  argument
120   GET_HALF_WORD(hx, x);  in nextafter()
127     return x + y;      // return nan  in nextafter()
129   if (x == y) return y; // x == y.  return y  in nextafter()
131     SET_HALF_WORD(x, (hy & 0x8000) | 1);  in nextafter()
132     return x;  in nextafter()
148   SET_HALF_WORD(x, hx);  in nextafter()
149   return x;  in nextafter()