cl_int clRetainProgram(cl_program program) { if (!program->isA(Coal::Object::T_Program)) return CL_INVALID_PROGRAM; program->reference(); return CL_SUCCESS; }