sp_tlong.c 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596
  1. // SPDX-License-Identifier: GPL-2.0-only
  2. /* IEEE754 floating point arithmetic
  3. * single precision
  4. */
  5. /*
  6. * MIPS floating point support
  7. * Copyright (C) 1994-2000 Algorithmics Ltd.
  8. */
  9. #include "ieee754sp.h"
  10. s64 ieee754sp_tlong(union ieee754sp x)
  11. {
  12. u32 residue;
  13. int round;
  14. int sticky;
  15. int odd;
  16. COMPXDP; /* <-- need 64-bit mantissa tmp */
  17. ieee754_clearcx();
  18. EXPLODEXSP;
  19. FLUSHXSP;
  20. switch (xc) {
  21. case IEEE754_CLASS_SNAN:
  22. case IEEE754_CLASS_QNAN:
  23. ieee754_setcx(IEEE754_INVALID_OPERATION);
  24. return ieee754di_indef();
  25. case IEEE754_CLASS_INF:
  26. ieee754_setcx(IEEE754_INVALID_OPERATION);
  27. return ieee754di_overflow(xs);
  28. case IEEE754_CLASS_ZERO:
  29. return 0;
  30. case IEEE754_CLASS_DNORM:
  31. case IEEE754_CLASS_NORM:
  32. break;
  33. }
  34. if (xe >= 63) {
  35. /* look for valid corner case */
  36. if (xe == 63 && xs && xm == SP_HIDDEN_BIT)
  37. return -0x8000000000000000LL;
  38. /* Set invalid. We will only use overflow for floating
  39. point overflow */
  40. ieee754_setcx(IEEE754_INVALID_OPERATION);
  41. return ieee754di_overflow(xs);
  42. }
  43. /* oh gawd */
  44. if (xe > SP_FBITS) {
  45. xm <<= xe - SP_FBITS;
  46. } else if (xe < SP_FBITS) {
  47. if (xe < -1) {
  48. residue = xm;
  49. round = 0;
  50. sticky = residue != 0;
  51. xm = 0;
  52. } else {
  53. residue = xm << (32 - SP_FBITS + xe);
  54. round = (residue >> 31) != 0;
  55. sticky = (residue << 1) != 0;
  56. xm >>= SP_FBITS - xe;
  57. }
  58. odd = (xm & 0x1) != 0x0;
  59. switch (ieee754_csr.rm) {
  60. case FPU_CSR_RN:
  61. if (round && (sticky || odd))
  62. xm++;
  63. break;
  64. case FPU_CSR_RZ:
  65. break;
  66. case FPU_CSR_RU: /* toward +Infinity */
  67. if ((round || sticky) && !xs)
  68. xm++;
  69. break;
  70. case FPU_CSR_RD: /* toward -Infinity */
  71. if ((round || sticky) && xs)
  72. xm++;
  73. break;
  74. }
  75. if ((xm >> 63) != 0) {
  76. /* This can happen after rounding */
  77. ieee754_setcx(IEEE754_INVALID_OPERATION);
  78. return ieee754di_overflow(xs);
  79. }
  80. if (round || sticky)
  81. ieee754_setcx(IEEE754_INEXACT);
  82. }
  83. if (xs)
  84. return -xm;
  85. else
  86. return xm;
  87. }