浏览代码

Add missing OpenCL program unload

Samuel Thibault 4 年之前
父节点
当前提交
38c2ce80cb
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      examples/filters/fblock.c

+ 5 - 0
examples/filters/fblock.c

@@ -169,6 +169,11 @@ int main(void)
         print_data(handle);
         starpu_data_unregister(handle);
 
+#ifdef STARPU_USE_OPENCL
+        ret = starpu_opencl_unload_opencl(&opencl_program);
+	STARPU_CHECK_RETURN_VALUE(ret, "starpu_opencl_unload_opencl");
+#endif
+
         /* Print result block */
         FPRINTF(stderr, "OUT Block\n");
         print_block(block, NX, NY, NZ, NX, NX*NY);