From 25caca9086a12a7658cf401cbc570900c3377977 Mon Sep 17 00:00:00 2001
From: Con Kolivas <kernel@kolivas.org>
Date: Sat, 28 Jan 2012 16:26:53 +1100
Subject: [PATCH] Revert "Don't explicitly retain the cl program as it is of no
 benefit to do so and may lead to problems when trying to release the
 program."

This reverts commit 32910463a3124265b56aca48a6c0fbb107ccfb70.

Turns out this does help.
---
 ocl.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/ocl.c b/ocl.c
index d963fc1e..28d5a871 100644
--- a/ocl.c
+++ b/ocl.c
@@ -465,6 +465,12 @@ build:
 		return NULL;
 	}
 
+	clRetainProgram(clState->program);
+	if (status != CL_SUCCESS) {
+		applog(LOG_ERR, "Error: Retaining Program (clRetainProgram)");
+		return NULL;
+	}
+
 	/* create a cl program executable for all the devices specified */
 	char *CompilerOptions = calloc(1, 256);
 
@@ -588,6 +594,12 @@ build:
 			applog(LOG_ERR, "Error: Loading Binary into cl_program (clCreateProgramWithBinary)");
 			return NULL;
 		}
+
+		clRetainProgram(clState->program);
+		if (status != CL_SUCCESS) {
+			applog(LOG_ERR, "Error: Retaining Program (clRetainProgram)");
+			return NULL;
+		}
 	}
 
 	free(source);