cl_enqueuemapbuffer.c 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. /* StarPU --- Runtime system for heterogeneous multicore architectures.
  2. *
  3. * Copyright (C) 2010,2011 University of Bordeaux
  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 "socl.h"
  17. static void mapbuffer_task(void *args) {
  18. command_map_buffer cmd = (command_map_buffer)args;
  19. enum starpu_access_mode mode = (cmd->map_flags == CL_MAP_READ ? STARPU_R : STARPU_RW);
  20. starpu_data_acquire_cb(cmd->buffer->handle, mode, command_completed_task_callback, cmd);
  21. }
  22. cl_int command_map_buffer_submit(command_map_buffer cmd) {
  23. static struct starpu_codelet codelet = {
  24. .name = "SOCL_MAP_BUFFER"
  25. };
  26. gc_entity_retain(cmd);
  27. cpu_task_submit(cmd, mapbuffer_task, cmd, 0, 0, &codelet, 0, NULL);
  28. return CL_SUCCESS;
  29. }
  30. CL_API_ENTRY void * CL_API_CALL
  31. soclEnqueueMapBuffer(cl_command_queue cq,
  32. cl_mem buffer,
  33. cl_bool blocking,
  34. cl_map_flags map_flags,
  35. size_t offset,
  36. size_t cb,
  37. cl_uint num_events,
  38. const cl_event * events,
  39. cl_event * event,
  40. cl_int * errcode_ret) CL_API_SUFFIX__VERSION_1_0
  41. {
  42. command_map_buffer cmd = command_map_buffer_create(buffer, map_flags, offset, cb);
  43. cl_event ev = command_event_get(cmd);
  44. command_queue_enqueue(cq, cmd, num_events, events);
  45. if (errcode_ret != NULL)
  46. *errcode_ret = CL_SUCCESS;
  47. MAY_BLOCK_THEN_RETURN_EVENT(ev,blocking,event);
  48. return (void*)(starpu_variable_get_local_ptr(buffer->handle) + offset);
  49. }