|
@@ -0,0 +1,103 @@
|
|
|
+/*
|
|
|
+ * StarPU
|
|
|
+ * Copyright (C) INRIA 2008-2009 (see AUTHORS file)
|
|
|
+ *
|
|
|
+ * This program is free software; you can redistribute it and/or modify
|
|
|
+ * it under the terms of the GNU Lesser General Public License as published by
|
|
|
+ * the Free Software Foundation; either version 2.1 of the License, or (at
|
|
|
+ * your option) any later version.
|
|
|
+ *
|
|
|
+ * This program is distributed in the hope that it will be useful, but
|
|
|
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
+ *
|
|
|
+ * See the GNU Lesser General Public License in COPYING.LGPL for more details.
|
|
|
+ */
|
|
|
+
|
|
|
+#include <stdio.h>
|
|
|
+#include <unistd.h>
|
|
|
+#include <errno.h>
|
|
|
+#include <starpu.h>
|
|
|
+#include <stdlib.h>
|
|
|
+
|
|
|
+#define NBUFFERS 64
|
|
|
+#define NITER 1000
|
|
|
+#define VECTORSIZE 1024
|
|
|
+
|
|
|
+float *buffer[NBUFFERS];
|
|
|
+
|
|
|
+starpu_data_handle v_handle[NBUFFERS];
|
|
|
+
|
|
|
+static void dummy_codelet(void *descr[], __attribute__ ((unused)) void *_args)
|
|
|
+{
|
|
|
+}
|
|
|
+
|
|
|
+static starpu_codelet cl = {
|
|
|
+ .where = CORE|CUDA,
|
|
|
+ .core_func = dummy_codelet,
|
|
|
+#ifdef USE_CUDA
|
|
|
+ .cuda_func = dummy_codelet,
|
|
|
+#endif
|
|
|
+ .nbuffers = 1
|
|
|
+};
|
|
|
+
|
|
|
+void use_handle(starpu_data_handle handle)
|
|
|
+{
|
|
|
+ int ret;
|
|
|
+ struct starpu_task *task;
|
|
|
+
|
|
|
+ task = starpu_task_create();
|
|
|
+ task->cl = &cl;
|
|
|
+ task->buffers[0].handle = handle;
|
|
|
+ task->buffers[0].mode = STARPU_RW;
|
|
|
+ task->detach = 0;
|
|
|
+
|
|
|
+ ret = starpu_submit_task(task);
|
|
|
+ if (ret == -ENODEV)
|
|
|
+ {
|
|
|
+ /* No one can execute such a task, but that's not a failure
|
|
|
+ * of the test either. */
|
|
|
+ exit(0);
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+int main(int argc, char **argv)
|
|
|
+{
|
|
|
+ starpu_init(NULL);
|
|
|
+
|
|
|
+ /* Allocate all buffers and register them to StarPU */
|
|
|
+ unsigned b;
|
|
|
+ for (b = 0; b < NBUFFERS; b++)
|
|
|
+ {
|
|
|
+ starpu_malloc_pinned_if_possible((void **)&buffer[b], VECTORSIZE);
|
|
|
+ starpu_register_vector_data(&v_handle[b], 0,
|
|
|
+ (uintptr_t)buffer[b], VECTORSIZE, sizeof(char));
|
|
|
+ }
|
|
|
+
|
|
|
+ unsigned iter;
|
|
|
+ for (iter = 0; iter < NITER; iter++)
|
|
|
+ {
|
|
|
+ /* Use the buffers on the different workers so that it may not
|
|
|
+ * be in main memory anymore */
|
|
|
+ for (b = 0; b < NBUFFERS; b++)
|
|
|
+ use_handle(v_handle[b]);
|
|
|
+
|
|
|
+ starpu_wait_all_tasks();
|
|
|
+
|
|
|
+ /* Grab the different pieces of data into main memory */
|
|
|
+ for (b = 0; b < NBUFFERS; b++)
|
|
|
+ starpu_sync_data_with_mem(v_handle[b], STARPU_RW);
|
|
|
+
|
|
|
+ /* Release them */
|
|
|
+ for (b = 0; b < NBUFFERS; b++)
|
|
|
+ starpu_release_data_from_mem(v_handle[b]);
|
|
|
+ }
|
|
|
+
|
|
|
+ /* do some cleanup */
|
|
|
+ for (b = 0; b < NBUFFERS; b++)
|
|
|
+ starpu_delete_data(v_handle[b]);
|
|
|
+
|
|
|
+ starpu_shutdown();
|
|
|
+
|
|
|
+ return 0;
|
|
|
+}
|