[Beignet] [PATCH 2/2] test built-in function "frexp"

Homer Hsing homer.xing at intel.com
Thu Jul 11 21:49:16 PDT 2013


Signed-off-by: Homer Hsing <homer.xing at intel.com>
---
 kernels/builtin_frexp.cl |  6 ++++++
 utests/CMakeLists.txt    |  1 +
 utests/builtin_frexp.cpp | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 53 insertions(+)
 create mode 100644 kernels/builtin_frexp.cl
 create mode 100644 utests/builtin_frexp.cpp

diff --git a/kernels/builtin_frexp.cl b/kernels/builtin_frexp.cl
new file mode 100644
index 0000000..3d33a14
--- /dev/null
+++ b/kernels/builtin_frexp.cl
@@ -0,0 +1,6 @@
+kernel void builtin_frexp(global float *src, global float *dst, global int *e) {
+  int i = get_global_id(0);
+  int v;
+  dst[i] = frexp(src[i], &v);
+  e[i] = v;
+}
diff --git a/utests/CMakeLists.txt b/utests/CMakeLists.txt
index 14ff6b1..6f6fb86 100644
--- a/utests/CMakeLists.txt
+++ b/utests/CMakeLists.txt
@@ -101,6 +101,7 @@ set (utests_sources
   compiler_cl_finish.cpp
   get_cl_info.cpp
   builtin_bitselect.cpp
+  builtin_frexp.cpp
   builtin_mad_sat.cpp
   builtin_sign.cpp
   buildin_work_dim.cpp
diff --git a/utests/builtin_frexp.cpp b/utests/builtin_frexp.cpp
new file mode 100644
index 0000000..ce611d4
--- /dev/null
+++ b/utests/builtin_frexp.cpp
@@ -0,0 +1,46 @@
+#include <cmath>
+#include "utest_helper.hpp"
+
+void builtin_frexp(void)
+{
+  const int n = 32;
+  float src[n];
+
+  // Setup kernel and buffers
+  OCL_CREATE_KERNEL("builtin_frexp");
+  OCL_CREATE_BUFFER(buf[0], 0, n * sizeof(float), NULL);
+  OCL_CREATE_BUFFER(buf[1], 0, n * sizeof(float), NULL);
+  OCL_CREATE_BUFFER(buf[2], 0, n * sizeof(int), NULL);
+  OCL_SET_ARG(0, sizeof(cl_mem), &buf[0]);
+  OCL_SET_ARG(1, sizeof(cl_mem), &buf[1]);
+  OCL_SET_ARG(2, sizeof(cl_mem), &buf[2]);
+  globals[0] = n;
+  locals[0] = 16;
+
+  OCL_MAP_BUFFER(0);
+  for (int i = 0; i < n; ++i)
+    src[i] = ((float*)buf_data[0])[i] = (rand() & 255) * 0.1f - 12.8f;
+  OCL_UNMAP_BUFFER(0);
+
+  OCL_NDRANGE(1);
+
+  OCL_MAP_BUFFER(1);
+  OCL_MAP_BUFFER(2);
+  float *dst = (float*)buf_data[1];
+  int *exp = (int*)buf_data[2];
+  for (int i = 0; i < n; ++i) {
+    if (src[i] == 0.f)
+      OCL_ASSERT(dst[i] == 0.f);
+    else if (src[i] == -0.f)
+      OCL_ASSERT(dst[i] == -0.f);
+    else {
+      OCL_ASSERT(0.5f <= fabsf(dst[i]) && fabsf(dst[i]) < 1.f);
+      float v = dst[i] * powf(2, exp[i]);
+      OCL_ASSERT(fabsf(v - src[i]) < 1e-3);
+    }
+  }
+  OCL_UNMAP_BUFFER(1);
+  OCL_UNMAP_BUFFER(2);
+}
+
+MAKE_UTEST_FROM_FUNCTION(builtin_frexp);
-- 
1.8.1.2



More information about the Beignet mailing list