12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 |
- #include "soft-fp.h"
- #include "quad.h"
- long double __scalblnl(long double arg, int exp)
- {
- FP_DECL_EX;
- FP_DECL_Q(A);
- long double r;
- FP_UNPACK_Q(A, arg);
- switch (A_c)
- {
- case FP_CLS_ZERO:
- return arg;
- case FP_CLS_NAN:
- case FP_CLS_INF:
- FP_HANDLE_EXCEPTIONS;
- return arg;
- }
- A_e += exp;
- FP_PACK_Q(r, A);
- FP_HANDLE_EXCEPTIONS;
- return r;
- }
|