insert_task_pack.c 1.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. /* StarPU --- Runtime system for heterogeneous multicore architectures.
  2. *
  3. * Copyright (C) 2016 CNRS
  4. *
  5. * StarPU is free software; you can redistribute it and/or modify
  6. * it under the terms of the GNU Lesser General Public License as published by
  7. * the Free Software Foundation; either version 2.1 of the License, or (at
  8. * your option) any later version.
  9. *
  10. * StarPU is distributed in the hope that it will be useful, but
  11. * WITHOUT ANY WARRANTY; without even the implied warranty of
  12. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13. *
  14. * See the GNU Lesser General Public License in COPYING.LGPL for more details.
  15. */
  16. #include <config.h>
  17. #include <starpu.h>
  18. #include "../helper.h"
  19. void func_cpu(void *descr[], void *_args)
  20. {
  21. (void) descr;
  22. (void) _args;
  23. }
  24. struct starpu_codelet codelet =
  25. {
  26. .cpu_funcs = { func_cpu },
  27. .cpu_funcs_name = { "func_cpu" }
  28. };
  29. int main(int argc, char **argv)
  30. {
  31. int ret;
  32. void *cl_arg = NULL;
  33. size_t cl_arg_size = 0;
  34. struct starpu_task *task;
  35. ret = starpu_init(NULL);
  36. if (ret == -ENODEV) return STARPU_TEST_SKIPPED;
  37. STARPU_CHECK_RETURN_VALUE(ret, "starpu_init");
  38. starpu_codelet_pack_args(&cl_arg, &cl_arg_size,
  39. STARPU_VALUE, &argc, sizeof(argc),
  40. 0);
  41. task = starpu_task_build(&codelet,
  42. STARPU_CL_ARGS, cl_arg, cl_arg_size,
  43. STARPU_VALUE, &argc, sizeof(argc),
  44. 0);
  45. starpu_shutdown();
  46. FPRINTF(stderr, "Task %p\n", task);
  47. return (task==NULL)?0:1;
  48. enodev:
  49. starpu_shutdown();
  50. fprintf(stderr, "WARNING: No one can execute this task\n");
  51. /* yes, we do not perform the computation but we did detect that no one
  52. * could perform the kernel, so this is not an error from StarPU */
  53. return STARPU_TEST_SKIPPED;
  54. }