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)