cl_getprogrambuildinfo.c 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  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, 2018 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_SUFFIX__VERSION_1_0
  21. CL_API_ENTRY cl_int CL_API_CALL
  22. soclGetProgramBuildInfo(cl_program program,
  23. cl_device_id UNUSED(device),
  24. cl_program_build_info param_name,
  25. size_t param_value_size,
  26. void * param_value,
  27. size_t * param_value_size_ret)
  28. {
  29. if (program == NULL)
  30. return CL_INVALID_PROGRAM;
  31. switch (param_name)
  32. {
  33. //TODO
  34. //INFO_CASE(CL_PROGRAM_BUILD_STATUS, program->build_status);
  35. INFO_CASE_EX(CL_PROGRAM_BUILD_OPTIONS, program->options, program->options_size);
  36. //TODO
  37. //INFO_CASE(CL_PROGRAM_BUILD_LOG, program->build_log);
  38. default:
  39. return CL_INVALID_VALUE;
  40. }
  41. return CL_SUCCESS;
  42. }