| #ifndef SOFT_FP_H |
| #define SOFT_FP_H |
| |
| #include "sfp-machine.h" |
| |
| #define _FP_WORKBITS 3 |
| #define _FP_WORK_LSB ((_FP_W_TYPE)1 << 3) |
| #define _FP_WORK_ROUND ((_FP_W_TYPE)1 << 2) |
| #define _FP_WORK_GUARD ((_FP_W_TYPE)1 << 1) |
| #define _FP_WORK_STICKY ((_FP_W_TYPE)1 << 0) |
| |
| #ifndef FP_RND_NEAREST |
| # define FP_RND_NEAREST 0 |
| # define FP_RND_ZERO 1 |
| # define FP_RND_PINF 2 |
| # define FP_RND_MINF 3 |
| #ifndef FP_ROUNDMODE |
| # define FP_ROUNDMODE FP_RND_NEAREST |
| #endif |
| #endif |
| |
| #define _FP_ROUND_NEAREST(wc, X) \ |
| ({ int __ret = 0; \ |
| int __frac = _FP_FRAC_LOW_##wc(X) & 15; \ |
| if (__frac & 7) { \ |
| __ret = EFLAG_INEXACT; \ |
| if ((__frac & 7) != _FP_WORK_ROUND) \ |
| _FP_FRAC_ADDI_##wc(X, _FP_WORK_ROUND); \ |
| else if (__frac & _FP_WORK_LSB) \ |
| _FP_FRAC_ADDI_##wc(X, _FP_WORK_ROUND); \ |
| } \ |
| __ret; \ |
| }) |
| |
| #define _FP_ROUND_ZERO(wc, X) \ |
| ({ int __ret = 0; \ |
| if (_FP_FRAC_LOW_##wc(X) & 7) \ |
| __ret = EFLAG_INEXACT; \ |
| __ret; \ |
| }) |
| |
| #define _FP_ROUND_PINF(wc, X) \ |
| ({ int __ret = EFLAG_INEXACT; \ |
| if (!X##_s && (_FP_FRAC_LOW_##wc(X) & 7)) \ |
| _FP_FRAC_ADDI_##wc(X, _FP_WORK_LSB); \ |
| else __ret = 0; \ |
| __ret; \ |
| }) |
| |
| #define _FP_ROUND_MINF(wc, X) \ |
| ({ int __ret = EFLAG_INEXACT; \ |
| if (X##_s && (_FP_FRAC_LOW_##wc(X) & 7)) \ |
| _FP_FRAC_ADDI_##wc(X, _FP_WORK_LSB); \ |
| else __ret = 0; \ |
| __ret; \ |
| }) |
| |
| #define _FP_ROUND(wc, X) \ |
| ({ int __ret = 0; \ |
| switch (FP_ROUNDMODE) \ |
| { \ |
| case FP_RND_NEAREST: \ |
| __ret |= _FP_ROUND_NEAREST(wc,X); \ |
| break; \ |
| case FP_RND_ZERO: \ |
| __ret |= _FP_ROUND_ZERO(wc,X); \ |
| break; \ |
| case FP_RND_PINF: \ |
| __ret |= _FP_ROUND_PINF(wc,X); \ |
| break; \ |
| case FP_RND_MINF: \ |
| __ret |= _FP_ROUND_MINF(wc,X); \ |
| break; \ |
| }; \ |
| __ret; \ |
| }) |
| |
| #define FP_CLS_NORMAL 0 |
| #define FP_CLS_ZERO 1 |
| #define FP_CLS_INF 2 |
| #define FP_CLS_NAN 3 |
| |
| #define _FP_CLS_COMBINE(x,y) (((x) << 2) | (y)) |
| |
| #include "op-1.h" |
| #include "op-2.h" |
| #include "op-4.h" |
| #include "op-common.h" |
| |
| /* Sigh. Silly things longlong.h needs. */ |
| #define UWtype _FP_W_TYPE |
| #define W_TYPE_SIZE _FP_W_TYPE_SIZE |
| |
| typedef int SItype __attribute__((mode(SI))); |
| typedef int DItype __attribute__((mode(DI))); |
| typedef unsigned int USItype __attribute__((mode(SI))); |
| typedef unsigned int UDItype __attribute__((mode(DI))); |
| #if _FP_W_TYPE_SIZE == 32 |
| typedef unsigned int UHWtype __attribute__((mode(HI))); |
| #elif _FP_W_TYPE_SIZE == 64 |
| typedef USItype UHWtype; |
| #endif |
| |
| #endif |