| #include <stdlib.h> |
| #include <soft-fp.h> |
| #include <quad.h> |
| |
| /* Helpers for the Ots functions which receive long double arguments |
| in two integer registers, and return values in $16+$17. */ |
| |
| #undef _FP_UNPACK_RAW_2 |
| #define _FP_UNPACK_RAW_2(fs, X, val) \ |
| do { \ |
| union _FP_UNION_##fs _flo; \ |
| _flo.longs.a = val##l; \ |
| _flo.longs.b = val##h; \ |
| X##_f0 = _flo.bits.frac0; \ |
| X##_f1 = _flo.bits.frac1; \ |
| X##_e = _flo.bits.exp; \ |
| X##_s = _flo.bits.sign; \ |
| } while (0) |
| |
| #undef _FP_PACK_RAW_2 |
| #define _FP_PACK_RAW_2(fs, val, X) \ |
| do { \ |
| union _FP_UNION_##fs _flo; \ |
| _flo.bits.frac0 = X##_f0; \ |
| _flo.bits.frac1 = X##_f1; \ |
| _flo.bits.exp = X##_e; \ |
| _flo.bits.sign = X##_s; \ |
| val##l = _flo.longs.a; \ |
| val##h = _flo.longs.b; \ |
| } while (0) |
| |
| #define FP_DECL_RETURN(X) \ |
| long X##l, X##h |
| |
| /* ??? We don't have a real way to tell the compiler that we're wanting |
| to return values in $16+$17. Instead use a volatile asm to make sure |
| that the values are live, and just hope that nothing kills the values |
| in between here and the end of the function. */ |
| #define FP_RETURN(X) \ |
| do { \ |
| register long r16 __asm__("16") = X##l; \ |
| register long r17 __asm__("17") = X##h; \ |
| asm volatile ("" : : "r"(r16), "r"(r17)); \ |
| } while (0) |