Преглед на файлове

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);