cl_getprogrambuildinfo.c 1.5 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. /* StarPU --- Runtime system for heterogeneous multicore architectures.
  2. *
  3. * Copyright (C) 2011 Inria
  4. * Copyright (C) 2012,2017 CNRS
  5. * Copyright (C) 2010-2011 Université de Bordeaux
  6. *
  7. * StarPU is free software; you can redistribute it and/or modify
  8. * it under the terms of the GNU Lesser General Public License as published by
  9. * the Free Software Foundation; either version 2.1 of the License, or (at
  10. * your option) any later version.
  11. *
  12. * StarPU is distributed in the hope that it will be useful, but
  13. * WITHOUT ANY WARRANTY; without even the implied warranty of
  14. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  15. *
  16. * See the GNU Lesser General Public License in COPYING.LGPL for more details.
  17. */
  18. #include "socl.h"
  19. #include "getinfo.h"
  20. CL_API_ENTRY cl_int CL_API_CALL
  21. soclGetProgramBuildInfo(cl_program program,
  22. cl_device_id UNUSED(device),
  23. cl_program_build_info param_name,
  24. size_t param_value_size,
  25. void * param_value,
  26. size_t * param_value_size_ret) CL_API_SUFFIX__VERSION_1_0
  27. {
  28. if (program == NULL)
  29. return CL_INVALID_PROGRAM;
  30. switch (param_name)
  31. {
  32. //TODO
  33. //INFO_CASE(CL_PROGRAM_BUILD_STATUS, program->build_status);
  34. INFO_CASE_EX(CL_PROGRAM_BUILD_OPTIONS, program->options, program->options_size);
  35. //TODO
  36. //INFO_CASE(CL_PROGRAM_BUILD_LOG, program->build_log);
  37. default:
  38. return CL_INVALID_VALUE;
  39. }
  40. return CL_SUCCESS;
  41. }