Author: jvesely
Date: Tue Feb 6 10:44:39 2018
New Revision: 324371
URL: http://llvm.org/viewvc/llvm-project?rev=324371&view=rev
Log:
vstore_half: Add support for custom rounding functions
Add another layer of indirection
This will be used for specific rounding modes
Reviewer: Jeroen Ketema <j.ket...@xs4all.nl>
Signed-off-by: Jan Vesely <jan.ves...@rutgers.edu>
Modified:
libclc/trunk/generic/lib/shared/vstore.cl
Modified: libclc/trunk/generic/lib/shared/vstore.cl
URL:
http://llvm.org/viewvc/llvm-project/libclc/trunk/generic/lib/shared/vstore.cl?rev=324371&r1=324370&r2=324371&view=diff
==============================================================================
--- libclc/trunk/generic/lib/shared/vstore.cl (original)
+++ libclc/trunk/generic/lib/shared/vstore.cl Tue Feb 6 10:44:39 2018
@@ -75,41 +75,57 @@ DECLARE_HELPER(double, __global, __built
DECLARE_HELPER(double, __local, __builtin_store_half);
#endif
-#define VEC_STORE1(STYPE, AS, val) __clc_vstore_half_##STYPE##_helper##AS
(val, &mem[offset++]);
+#define VEC_STORE1(STYPE, AS, val, ROUNDF)
__clc_vstore_half_##STYPE##_helper##AS (ROUNDF(val), &mem[offset++]);
-#define VEC_STORE2(STYPE, AS, val) \
- VEC_STORE1(STYPE, AS, val.lo) \
- VEC_STORE1(STYPE, AS, val.hi)
-#define VEC_STORE3(STYPE, AS, val) \
- VEC_STORE1(STYPE, AS, val.s0) \
- VEC_STORE1(STYPE, AS, val.s1) \
- VEC_STORE1(STYPE, AS, val.s2)
-#define VEC_STORE4(STYPE, AS, val) \
- VEC_STORE2(STYPE, AS, val.lo) \
- VEC_STORE2(STYPE, AS, val.hi)
-#define VEC_STORE8(STYPE, AS, val) \
- VEC_STORE4(STYPE, AS, val.lo) \
- VEC_STORE4(STYPE, AS, val.hi)
-#define VEC_STORE16(STYPE, AS, val) \
- VEC_STORE8(STYPE, AS, val.lo) \
- VEC_STORE8(STYPE, AS, val.hi)
+#define VEC_STORE2(STYPE, AS, val, ROUNDF) \
+ VEC_STORE1(STYPE, AS, val.lo, ROUNDF) \
+ VEC_STORE1(STYPE, AS, val.hi, ROUNDF)
+#define VEC_STORE3(STYPE, AS, val, ROUNDF) \
+ VEC_STORE1(STYPE, AS, val.s0, ROUNDF) \
+ VEC_STORE1(STYPE, AS, val.s1, ROUNDF) \
+ VEC_STORE1(STYPE, AS, val.s2, ROUNDF)
+#define VEC_STORE4(STYPE, AS, val, ROUNDF) \
+ VEC_STORE2(STYPE, AS, val.lo, ROUNDF) \
+ VEC_STORE2(STYPE, AS, val.hi, ROUNDF)
+#define VEC_STORE8(STYPE, AS, val, ROUNDF) \
+ VEC_STORE4(STYPE, AS, val.lo, ROUNDF) \
+ VEC_STORE4(STYPE, AS, val.hi, ROUNDF)
+#define VEC_STORE16(STYPE, AS, val, ROUNDF) \
+ VEC_STORE8(STYPE, AS, val.lo, ROUNDF) \
+ VEC_STORE8(STYPE, AS, val.hi, ROUNDF)
-#define __FUNC(SUFFIX, VEC_SIZE, OFFSET, TYPE, STYPE, AS) \
+#define __FUNC(SUFFIX, VEC_SIZE, OFFSET, TYPE, STYPE, AS, ROUNDF) \
_CLC_OVERLOAD _CLC_DEF void vstore_half##SUFFIX(TYPE vec, size_t offset, AS
half *mem) { \
offset *= VEC_SIZE; \
- VEC_STORE##VEC_SIZE(STYPE, AS, vec) \
+ VEC_STORE##VEC_SIZE(STYPE, AS, vec, ROUNDF) \
} \
_CLC_OVERLOAD _CLC_DEF void vstorea_half##SUFFIX(TYPE vec, size_t offset, AS
half *mem) { \
offset *= OFFSET; \
- VEC_STORE##VEC_SIZE(STYPE, AS, vec) \
+ VEC_STORE##VEC_SIZE(STYPE, AS, vec, ROUNDF) \
}
-#define FUNC(SUFFIX, VEC_SIZE, OFFSET, TYPE, STYPE, AS) __FUNC(SUFFIX,
VEC_SIZE, OFFSET, TYPE, STYPE, AS)
+_CLC_DEF _CLC_OVERLOAD float __clc_noop(float x)
+{
+ return x;
+}
+#ifdef cl_khr_fp64
+_CLC_DEF _CLC_OVERLOAD double __clc_noop(double x)
+{
+ return x;
+}
+#endif
+
+#define __XFUNC(SUFFIX, VEC_SIZE, OFFSET, TYPE, STYPE, AS) \
+ __FUNC(SUFFIX, VEC_SIZE, OFFSET, TYPE, STYPE, AS, __clc_noop)
+
+#define FUNC(SUFFIX, VEC_SIZE, OFFSET, TYPE, STYPE, AS) \
+ __XFUNC(SUFFIX, VEC_SIZE, OFFSET, TYPE, STYPE, AS)
#define __CLC_BODY "vstore_half.inc"
#include <clc/math/gentype.inc>
#undef __CLC_BODY
#undef FUNC
+#undef __XFUNC
#undef __FUNC
#undef VEC_LOAD16
#undef VEC_LOAD8
_______________________________________________
cfe-commits mailing list
cfe-commits@lists.llvm.org
http://lists.llvm.org/cgi-bin/mailman/listinfo/cfe-commits
