void cu2_init_platform(SINGLE_QSP_ARG_DECL)
{
static int inited=0;
if( inited ){
//WARN("Redundant call to cu2_init_platform!?");
advise("Redundant call to cu2_init_platform!?");
return;
}
inited=1;
#ifdef HAVE_CUDA
Compute_Platform *cpp;
cpp = creat_platform(QSP_ARG "CUDA", PLATFORM_CUDA );
//init_platform(QSP_ARG cpp, PLATFORM_CUDA);
#ifdef CAUTIOUS
if( cpp == NULL )
ERROR1("CAUTIOUS: cu2_init_platform: Couldn't create Cuda2 platform!?");
#endif // CAUTIOUS
push_pfdev_context(QSP_ARG PF_CONTEXT(cpp) );
init_cu2_devices(QSP_ARG cpp);
if( pop_pfdev_context(SINGLE_QSP_ARG) == NO_ITEM_CONTEXT )
ERROR1("cu2_init_platform: Failed to pop platform device context!?");
check_vfa_tbl(QSP_ARG cu2_vfa_tbl, N_VEC_FUNCS);
#else // ! HAVE_CUDA
WARN("Sorry, no CUDA support in this build.");
#endif // ! HAVE_CUDA
} // cu2_init_platform
void vl2_init_platform(SINGLE_QSP_ARG_DECL)
{
Compute_Platform *cpp;
static int inited=0;
if( inited ){
/* As long as we have not completely replaced the
* previous veclib, we can call this from vl2 or veclib...
*/
return;
}
cpp = creat_platform(QSP_ARG "CPU", PLATFORM_CPU );
SET_PLATFORM_FUNCTIONS(cpp,vl2)
SET_PF_FUNC_TBL(cpp,vl2_vfa_tbl);
push_pfdev_context(QSP_ARG PF_CONTEXT(cpp) );
init_vl2_pfdevs(QSP_ARG cpp);
if( pop_pfdev_context(SINGLE_QSP_ARG) == NO_ITEM_CONTEXT )
ERROR1("init_ocl_platform: Failed to pop platform device context!?");
check_vl2_vfa_tbl(SINGLE_QSP_ARG);
inited=1;
}
static void init_ocl_platform(QSP_ARG_DECL cl_platform_id platform_id)
{
Compute_Platform *cpp;
cl_int status;
//char param_data[MAX_PARAM_SIZE];
char *platform_str;
size_t ret_size;
GET_PLATFORM_STRING(CL_PLATFORM_NAME)
cpp = creat_platform(QSP_ARG platform_str, PLATFORM_OPENCL);
givbuf(platform_str);
GET_PLATFORM_STRING(CL_PLATFORM_PROFILE)
SET_OCLPF_PROFILE(cpp,platform_str);
GET_PLATFORM_STRING(CL_PLATFORM_VERSION)
SET_OCLPF_VERSION(cpp,platform_str);
GET_PLATFORM_STRING(CL_PLATFORM_VENDOR)
SET_OCLPF_VENDOR(cpp,platform_str);
GET_PLATFORM_STRING(CL_PLATFORM_EXTENSIONS)
SET_OCLPF_EXTENSIONS(cpp,platform_str);
SET_OCLPF_ID(cpp,platform_id);
SET_PLATFORM_FUNCTIONS(cpp,ocl)
SET_PF_FUNC_TBL(cpp,ocl_vfa_tbl);
// BUG need to set vfa_tbl here too!
//icp = create_item_context(QSP_ARG pfdev_itp, PLATFORM_NAME(cpp) );
//push_item_context(QSP_ARG pfdev_itp, icp );
push_pfdev_context(QSP_ARG PF_CONTEXT(cpp) );
init_ocl_devices(QSP_ARG cpp);
if( pop_pfdev_context(SINGLE_QSP_ARG) == NULL )
error1("init_ocl_platform: Failed to pop platform device context!?");
}
