a598e3fc04
2004-03-06 Richard Henderson <rth@redhat.com> * soft-fp/quad.h (union _FP_UNION_Q): Add longs structure. * sysdeps/alpha/Implies: Add alpha/soft-fp. * sysdeps/alpha/soft-fp/sfp-machine.h: Rewrite for GEM interface. * sysdeps/alpha/Subdirs, sysdeps/alpha/soft-fp/Makefile, sysdeps/alpha/soft-fp/Versions, sysdeps/alpha/soft-fp/local-soft-fp.h, sysdeps/alpha/soft-fp/ots_add.c, sysdeps/alpha/soft-fp/ots_cmp.c, sysdeps/alpha/soft-fp/ots_cmpe.c, sysdeps/alpha/soft-fp/ots_cvtqux.c, sysdeps/alpha/soft-fp/ots_cvtqx.c, sysdeps/alpha/soft-fp/ots_cvttx.c, sysdeps/alpha/soft-fp/ots_cvtxq.c, sysdeps/alpha/soft-fp/ots_cvtxt.c, sysdeps/alpha/soft-fp/ots_div.c, sysdeps/alpha/soft-fp/ots_mul.c, sysdeps/alpha/soft-fp/ots_nintxq.c, sysdeps/alpha/soft-fp/ots_sub.c: New files.
45 lines
1.4 KiB
C
45 lines
1.4 KiB
C
#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)
|