specialized-arrays: performed some cleanup.

[factor.git] / extra / opencl / opencl-tests.factor

diff --git a/extra/opencl/opencl-tests.factor b/extra/opencl/opencl-tests.factor
index 628a9b0d63a216caef4370ef95133207b5f87432..316d496ac881509b80d3c15e15ab04c2c43c831f 100644 (file)
--- a/extra/opencl/opencl-tests.factor
+++ b/extra/opencl/opencl-tests.factor
@@ -36,7 +36,8 @@ __kernel void square(
             { num-floats } [ ] cl-queue-kernel &dispose drop
             
             cl-finish
-            out-buffer 0 num-bytes <cl-buffer-range> cl-read-buffer num-floats <direct-float-array>
+            out-buffer 0 num-bytes <cl-buffer-range>
+            cl-read-buffer num-floats flloat <c-direct-array>
         ] with-cl-state
     ] with-destructors ;