Просмотр исходного кода

Add missing OpenCL program unload

Samuel Thibault лет назад: 4
Родитель
Сommit
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);