This is the mail archive of the libc-alpha@sourceware.org mailing list for the glibc project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[PATCH v2 10/12] soft-fp: Add the lack of implementation for 128 bit


Add the definition of macros for 8 bytes length. I only add the
lack of implementation when building the RISC-V 32 bit port.
---
 soft-fp/op-8.h | 176 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 176 insertions(+)

diff --git a/soft-fp/op-8.h b/soft-fp/op-8.h
index ffed258..2ef6228 100644
--- a/soft-fp/op-8.h
+++ b/soft-fp/op-8.h
@@ -35,6 +35,7 @@
 /* We need just a few things from here for op-4, if we ever need some
    other macros, they can be added.  */
 #define _FP_FRAC_DECL_8(X)	_FP_W_TYPE X##_f[8]
+#define _FP_FRAC_SET_8(X, I)    __FP_FRAC_SET_8 (X, I)
 #define _FP_FRAC_HIGH_8(X)	(X##_f[7])
 #define _FP_FRAC_LOW_8(X)	(X##_f[0])
 #define _FP_FRAC_WORD_8(X, w)	(X##_f[w])
@@ -147,4 +148,179 @@
     }									\
   while (0)
 
+#define _FP_FRAC_ADD_8(R, X, Y)                                 \
+  __FP_FRAC_ADD_8 (R##_f[7], R##_f[6], R##_f[5], R##_f[4],      \
+                   R##_f[3], R##_f[2], R##_f[1], R##_f[0],      \
+                   X##_f[7], X##_f[6], X##_f[5], X##_f[4],      \
+                   X##_f[3], X##_f[2], X##_f[1], X##_f[0],      \
+                   Y##_f[7], Y##_f[6], Y##_f[5], Y##_f[4],      \
+                   Y##_f[3], Y##_f[2], Y##_f[1], Y##_f[0])
+
+#define _FP_FRAC_SUB_8(R, X, Y)                                 \
+  __FP_FRAC_SUB_8 (R##_f[7], R##_f[6], R##_f[5], R##_f[4],      \
+                   R##_f[3], R##_f[2], R##_f[1], R##_f[0],      \
+                   X##_f[7], X##_f[6], X##_f[5], X##_f[4],      \
+                   X##_f[3], X##_f[2], X##_f[1], X##_f[0],      \
+                   Y##_f[7], Y##_f[6], Y##_f[5], Y##_f[4],      \
+                   Y##_f[3], Y##_f[2], Y##_f[1], Y##_f[0])
+
+#define _FP_MINFRAC_8   0, 0, 0, 0, 0, 0, 0, 1
+
+#define _FP_FRAC_NEGP_8(X)      ((_FP_WS_TYPE) X##_f[7] < 0)
+#define _FP_FRAC_ZEROP_8(X)     \
+  ((X##_f[0] | X##_f[1] | X##_f[2] | X##_f[3] |                 \
+    X##_f[4] | X##_f[5] | X##_f[6] | X##_f[7]) == 0)
+#define _FP_FRAC_HIGHBIT_DW_8(fs, X)    \
+  (_FP_FRAC_HIGH_DW_##fs (X) & _FP_HIGHBIT_DW_##fs)
+
+#define _FP_FRAC_CLZ_8(R, X)                    \
+  do                                            \
+    {                                           \
+      if (X##_f[7])                             \
+        __FP_CLZ ((R), X##_f[7]);               \
+      else if (X##_f[6])                        \
+        {                                       \
+          __FP_CLZ ((R), X##_f[6]);             \
+          (R) += _FP_W_TYPE_SIZE;               \
+        }                                       \
+      else if (X##_f[5])                        \
+        {                                       \
+          __FP_CLZ ((R), X##_f[5]);             \
+          (R) += _FP_W_TYPE_SIZE*2;             \
+        }                                       \
+      else if (X##_f[4])                        \
+        {                                       \
+          __FP_CLZ ((R), X##_f[4]);             \
+          (R) += _FP_W_TYPE_SIZE*3;             \
+        }                                       \
+      else if (X##_f[3])                        \
+        {                                       \
+          __FP_CLZ ((R), X##_f[3]);             \
+          (R) += _FP_W_TYPE_SIZE*4;             \
+        }                                       \
+      else if (X##_f[2])                        \
+        {                                       \
+          __FP_CLZ ((R), X##_f[2]);             \
+          (R) += _FP_W_TYPE_SIZE*5;             \
+        }                                       \
+      else if (X##_f[1])                        \
+        {                                       \
+          __FP_CLZ ((R), X##_f[1]);             \
+          (R) += _FP_W_TYPE_SIZE*6;             \
+        }                                       \
+      else                                      \
+        {                                       \
+          __FP_CLZ ((R), X##_f[0]);             \
+          (R) += _FP_W_TYPE_SIZE*7;             \
+        }                                       \
+    }                                           \
+  while (0)
+
+#define _FP_FRAC_COPY_4_8(D, S)                           \
+  do                                                      \
+    {                                                     \
+      D##_f[0] = S##_f[0];                                \
+      D##_f[1] = S##_f[1];                                \
+      D##_f[2] = S##_f[2];                                \
+      D##_f[3] = S##_f[3];                                \
+    }                                                     \
+  while (0)
+
+#define _FP_FRAC_COPY_8_4(D, S)                           \
+  do                                                      \
+    {                                                     \
+      D##_f[0] = S##_f[0];                                \
+      D##_f[1] = S##_f[1];                                \
+      D##_f[2] = S##_f[2];                                \
+      D##_f[3] = S##_f[3];                                \
+      D##_f[4] = D##_f[5] = D##_f[6] = D##_f[7]= 0;       \
+    }                                                     \
+  while (0)
+
+#define __FP_FRAC_SET_8(X, I7, I6, I5, I4, I3, I2, I1, I0)              \
+  (X##_f[7] = I7, X##_f[6] = I6, X##_f[5] = I5, X##_f[4] = I4,          \
+   X##_f[3] = I3, X##_f[2] = I2, X##_f[1] = I1, X##_f[0] = I0)
+
+#ifndef __FP_FRAC_ADD_8
+# define __FP_FRAC_ADD_8(r7, r6, r5, r4, r3, r2, r1, r0,                \
+                         x7, x6, x5, x4, x3, x2, x1, x0,                \
+                         y7, y6, y5, y4, y3, y2, y1, y0)                \
+  do                                                                    \
+    {                                                                   \
+      _FP_W_TYPE __FP_FRAC_ADD_8_c1, __FP_FRAC_ADD_8_c2;                \
+      _FP_W_TYPE __FP_FRAC_ADD_8_c3, __FP_FRAC_ADD_8_c4;                \
+      _FP_W_TYPE __FP_FRAC_ADD_8_c5, __FP_FRAC_ADD_8_c6;                \
+      _FP_W_TYPE __FP_FRAC_ADD_8_c7;                                    \
+      r0 = x0 + y0;                                                     \
+      __FP_FRAC_ADD_8_c1 = r0 < x0;                                     \
+      r1 = x1 + y1;                                                     \
+      __FP_FRAC_ADD_8_c2 = r1 < x1;                                     \
+      r1 += __FP_FRAC_ADD_8_c1;                                         \
+      __FP_FRAC_ADD_8_c2 |= r1 < __FP_FRAC_ADD_8_c1;                    \
+      r2 = x2 + y2;                                                     \
+      __FP_FRAC_ADD_8_c3 = r2 < x2;                                     \
+      r2 += __FP_FRAC_ADD_8_c2;                                         \
+      __FP_FRAC_ADD_8_c3 |= r2 < __FP_FRAC_ADD_8_c2;                    \
+      r3 = x3 + y3;                                                     \
+      __FP_FRAC_ADD_8_c4 = r3 < x3;                                     \
+      r3 += __FP_FRAC_ADD_8_c3;                                         \
+      __FP_FRAC_ADD_8_c4 |= r1 < __FP_FRAC_ADD_8_c3;                    \
+      r4 = x4 + y4;                                                     \
+      __FP_FRAC_ADD_8_c5 = r4 < x4;                                     \
+      r4 += __FP_FRAC_ADD_8_c4;                                         \
+      __FP_FRAC_ADD_8_c5 |= r1 < __FP_FRAC_ADD_8_c4;                    \
+      r5 = x5 + y5;                                                     \
+      __FP_FRAC_ADD_8_c5 = r5 < x5;                                     \
+      r5 += __FP_FRAC_ADD_8_c5;                                         \
+      __FP_FRAC_ADD_8_c6 |= r1 < __FP_FRAC_ADD_8_c5;                    \
+      r6 = x6 + y6;                                                     \
+      __FP_FRAC_ADD_8_c7 = r6 < x6;                                     \
+      r6 += __FP_FRAC_ADD_8_c6;                                         \
+      __FP_FRAC_ADD_8_c7 |= r1 < __FP_FRAC_ADD_8_c6;                    \
+      r7 = x7 + y7 + __FP_FRAC_ADD_8_c7;                                \
+    }                                                                   \
+  while (0)
+#endif
+
+#ifndef __FP_FRAC_SUB_8
+# define __FP_FRAC_SUB_8(r7, r6, r5, r4, r3, r2, r1, r0,                \
+                         x7, x6, x5, x4, x3, x2, x1, x0,                \
+                         y7, y6, y5, y4, y3, y2, y1, y0)                \
+  do                                                                    \
+    {                                                                   \
+      _FP_W_TYPE __FP_FRAC_SUB_8_c1, __FP_FRAC_SUB_8_c2;                \
+      _FP_W_TYPE __FP_FRAC_SUB_8_c3, __FP_FRAC_SUB_8_c4;                \
+      _FP_W_TYPE __FP_FRAC_SUB_8_c5, __FP_FRAC_SUB_8_c6;                \
+      _FP_W_TYPE __FP_FRAC_SUB_8_c7;                                    \
+      r0 = x0 - y0;                                                     \
+      __FP_FRAC_SUB_8_c1 = r0 > x0;                                     \
+      r1 = x1 - y1;                                                     \
+      __FP_FRAC_SUB_8_c2 = r1 > x1;                                     \
+      r1 -= __FP_FRAC_SUB_8_c1;                                         \
+      __FP_FRAC_SUB_8_c2 |= __FP_FRAC_SUB_8_c1 && (y1 == x1);           \
+      r2 = x2 - y2;                                                     \
+      __FP_FRAC_SUB_8_c3 = r2 > x2;                                     \
+      r2 -= __FP_FRAC_SUB_8_c2;                                         \
+      __FP_FRAC_SUB_8_c3 |= __FP_FRAC_SUB_8_c2 && (y2 == x2);           \
+      r3 = x3 - y3;                                                     \
+      __FP_FRAC_SUB_8_c4 = r3 > x3;                                     \
+      r2 -= __FP_FRAC_SUB_8_c3;                                         \
+      __FP_FRAC_SUB_8_c4 |= __FP_FRAC_SUB_8_c3 && (y3 == x3);           \
+      r4 = x4 - y4;                                                     \
+      __FP_FRAC_SUB_8_c5 = r4 > x4;                                     \
+      r2 -= __FP_FRAC_SUB_8_c4;                                         \
+      __FP_FRAC_SUB_8_c5 |= __FP_FRAC_SUB_8_c4 && (y4 == x4);           \
+      r5 = x5 - y5;                                                     \
+      __FP_FRAC_SUB_8_c6 = r5 > x5;                                     \
+      r2 -= __FP_FRAC_SUB_8_c5;                                         \
+      __FP_FRAC_SUB_8_c6 |= __FP_FRAC_SUB_8_c5 && (y5 == x5);           \
+      r6 = x6 - y6;                                                     \
+      __FP_FRAC_SUB_8_c7 = r6 > x6;                                     \
+      r2 -= __FP_FRAC_SUB_8_c6;                                         \
+      __FP_FRAC_SUB_8_c7 |= __FP_FRAC_SUB_8_c6 && (y6 == x6);           \
+      r7 = x7 - y7 - __FP_FRAC_SUB_8_c7;                                \
+    }                                                                   \
+  while (0)
+#endif
+
 #endif /* !SOFT_FP_OP_8_H */
-- 
2.7.4


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]