Function getProgramInfo

wrapcl/src/Programs.cpp:29–233

#ifdef PROGRAM_INFO_DISPLAY
int getProgramInfo(cl_program program)
{
	cl_uint i;
	cl_int err;

	cl_context*     context_in_program;
	cl_uint*        num_dev_in_program;
	cl_device_id*   device_ids_program;
	char*           program_source;
	size_t*         program_bin_size;
	unsigned char** program_binaries;
	cl_uint*        ref_count_program;

	size_t sizeParam;

	// ----------------------------------------------------------------------------
	// Query Context in program
	printf("\n-----------------------------------------------------------------------\n");
	err = clGetProgramInfo(program,CL_PROGRAM_CONTEXT,0,NULL,&sizeParam);
	if (err != CL_SUCCESS){
		printf("Error: clGetProgramInfo() %d\n",err);
		fflush(stdout);
		return EXIT_FAILURE;
	}

	context_in_program = (cl_context*) malloc(sizeof(cl_context) * sizeParam);
	err = clGetProgramInfo(program,CL_PROGRAM_CONTEXT,sizeParam,context_in_program,NULL);
	if (err != CL_SUCCESS){
		printf("Error: clGetProgramInfo() %d\n",err);
		fflush(stdout);
		return EXIT_FAILURE;
	}

	printf("  %-45s: %x \n", "CL_PROGRAM_CONTEXT", *context_in_program);
	free(context_in_program);

	// ----------------------------------------------------------------------------
	// Query Number of devices targeted by the program

	err = clGetProgramInfo(program,CL_PROGRAM_NUM_DEVICES,0,NULL,&sizeParam);
	if (err != CL_SUCCESS){
		printf("Error: clGetProgramInfo() %d\n",err);
		fflush(stdout);
		return EXIT_FAILURE;
	}

	num_dev_in_program = (cl_uint*) malloc(sizeof(cl_uint) * sizeParam);
	err = clGetProgramInfo(program,CL_PROGRAM_NUM_DEVICES,sizeParam,num_dev_in_program,NULL);
	if (err != CL_SUCCESS){
		printf("Error: clGetProgramInfo() %d\n",err);
		fflush(stdout);
		return EXIT_FAILURE;
	}

	printf("  %-45s: %u \n", "CL_PROGRAM_NUM_DEVICES", *num_dev_in_program);

	// Store num devices
	cl_uint num_dev_tmp = *num_dev_in_program;