ARK-OS/arkos/kernel/glibc/sysdeps/alpha/local-soft-fp.h

#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)