| 1 | #include <stdlib.h> |
|---|
| 2 | #include <soft-fp.h> |
|---|
| 3 | #include <quad.h> |
|---|
| 4 | |
|---|
| 5 | /* Helpers for the Ots functions which receive long double arguments |
|---|
| 6 | in two integer registers, and return values in $16+$17. */ |
|---|
| 7 | |
|---|
| 8 | #define AXP_UNPACK_RAW_Q(X, val) \ |
|---|
| 9 | do { \ |
|---|
| 10 | union _FP_UNION_Q _flo; \ |
|---|
| 11 | _flo.longs.a = val##l; \ |
|---|
| 12 | _flo.longs.b = val##h; \ |
|---|
| 13 | FP_UNPACK_RAW_QP(X, &_flo); \ |
|---|
| 14 | } while (0) |
|---|
| 15 | |
|---|
| 16 | #define AXP_UNPACK_SEMIRAW_Q(X, val) \ |
|---|
| 17 | do { \ |
|---|
| 18 | union _FP_UNION_Q _flo; \ |
|---|
| 19 | _flo.longs.a = val##l; \ |
|---|
| 20 | _flo.longs.b = val##h; \ |
|---|
| 21 | FP_UNPACK_SEMIRAW_QP(X, &_flo); \ |
|---|
| 22 | } while (0) |
|---|
| 23 | |
|---|
| 24 | #define AXP_UNPACK_Q(X, val) \ |
|---|
| 25 | do { \ |
|---|
| 26 | AXP_UNPACK_RAW_Q(X, val); \ |
|---|
| 27 | _FP_UNPACK_CANONICAL(Q, 2, X); \ |
|---|
| 28 | } while (0) |
|---|
| 29 | |
|---|
| 30 | #define AXP_PACK_RAW_Q(val, X) FP_PACK_RAW_QP(&val##_flo, X) |
|---|
| 31 | |
|---|
| 32 | #define AXP_PACK_SEMIRAW_Q(val, X) \ |
|---|
| 33 | do { \ |
|---|
| 34 | _FP_PACK_SEMIRAW(Q, 2, X); \ |
|---|
| 35 | AXP_PACK_RAW_Q(val, X); \ |
|---|
| 36 | } while (0) |
|---|
| 37 | |
|---|
| 38 | #define AXP_PACK_Q(val, X) \ |
|---|
| 39 | do { \ |
|---|
| 40 | _FP_PACK_CANONICAL(Q, 2, X); \ |
|---|
| 41 | AXP_PACK_RAW_Q(val, X); \ |
|---|
| 42 | } while (0) |
|---|
| 43 | |
|---|
| 44 | #define AXP_DECL_RETURN_Q(X) union _FP_UNION_Q X##_flo |
|---|
| 45 | |
|---|
| 46 | /* ??? We don't have a real way to tell the compiler that we're wanting |
|---|
| 47 | to return values in $16+$17. Instead use a volatile asm to make sure |
|---|
| 48 | that the values are live, and just hope that nothing kills the values |
|---|
| 49 | in between here and the end of the function. */ |
|---|
| 50 | #define AXP_RETURN_Q(X) \ |
|---|
| 51 | do { \ |
|---|
| 52 | register long r16 __asm__("16") = X##_flo.longs.a; \ |
|---|
| 53 | register long r17 __asm__("17") = X##_flo.longs.b; \ |
|---|
| 54 | asm volatile ("" : : "r"(r16), "r"(r17)); \ |
|---|
| 55 | } while (0) |
|---|
| 56 | |
|---|
