1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#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. */
#define AXP_UNPACK_RAW_Q(X, val) \
do { \
union _FP_UNION_Q _flo; \
_flo.longs.a = val##l; \
_flo.longs.b = val##h; \
FP_UNPACK_RAW_QP(X, &_flo); \
} while (0)
#define AXP_UNPACK_SEMIRAW_Q(X, val) \
do { \
union _FP_UNION_Q _flo; \
_flo.longs.a = val##l; \
_flo.longs.b = val##h; \
FP_UNPACK_SEMIRAW_QP(X, &_flo); \
} while (0)
#define AXP_UNPACK_Q(X, val) \
do { \
AXP_UNPACK_RAW_Q(X, val); \
_FP_UNPACK_CANONICAL(Q, 2, X); \
} while (0)
#define AXP_PACK_RAW_Q(val, X) FP_PACK_RAW_QP(&val##_flo, X)
#define AXP_PACK_SEMIRAW_Q(val, X) \
do { \
_FP_PACK_SEMIRAW(Q, 2, X); \
AXP_PACK_RAW_Q(val, X); \
} while (0)
#define AXP_PACK_Q(val, X) \
do { \
_FP_PACK_CANONICAL(Q, 2, X); \
AXP_PACK_RAW_Q(val, X); \
} while (0)
#define AXP_DECL_RETURN_Q(X) union _FP_UNION_Q X##_flo
/* ??? 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 AXP_RETURN_Q(X) \
do { \
register long r16 __asm__("16") = X##_flo.longs.a; \
register long r17 __asm__("17") = X##_flo.longs.b; \
asm volatile ("" : : "r"(r16), "r"(r17)); \
} while (0)
|
