Browse Source

Retain cl program after every possible place we might build the program.

Con Kolivas 14 years ago
parent
commit
1e5035497b
1 changed files with 6 additions and 0 deletions
  1. 6 0
      ocl.c

+ 6 - 0
ocl.c

@@ -639,6 +639,12 @@ built:
 			applog(LOG_INFO, "%s", log);
 			return NULL;
 		}
+
+		clRetainProgram(clState->program);
+		if (status != CL_SUCCESS) {
+			applog(LOG_ERR, "Error: Retaining Program (clRetainProgram)");
+			return NULL;
+		}
 	}
 
 	/* get a kernel object handle for a kernel with the given name */