123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106 |
- /* StarPU --- Runtime system for heterogeneous multicore architectures.
- *
- * Copyright (C) 2009, 2010-2011 Université de Bordeaux 1
- * Copyright (C) 2010, 2011, 2012 Centre National de la Recherche Scientifique
- *
- * StarPU 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.
- *
- * StarPU 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 <sys/time.h>
- #include <pthread.h>
- #include <stdio.h>
- #include <unistd.h>
- #include <starpu.h>
- #include "../helper.h"
- #ifdef STARPU_QUICK_CHECK
- static unsigned ntasks = 64;
- #else
- static unsigned ntasks = 65536;
- #endif
- static void usage(char **argv)
- {
- FPRINTF(stderr, "%s [-i ntasks] [-h]\n", argv[0]);
- exit(-1);
- }
- static void parse_args(int argc, char **argv)
- {
- int c;
- while ((c = getopt(argc, argv, "i:t:h")) != -1)
- switch(c)
- {
- case 'i':
- ntasks = atoi(optarg);
- break;
- case 'h':
- usage(argv);
- break;
- }
- }
- int main(int argc, char **argv)
- {
- int ret;
- double timing;
- struct timeval start;
- struct timeval end;
- parse_args(argc, argv);
- ret = starpu_init(NULL);
- if (ret == -ENODEV) return STARPU_TEST_SKIPPED;
- STARPU_CHECK_RETURN_VALUE(ret, "starpu_init");
- FPRINTF(stderr, "#tasks : %u\n", ntasks);
- gettimeofday(&start, NULL);
- int i;
- for (i = 0; i < ntasks; i++)
- {
- struct starpu_task *task = starpu_task_create();
- task->cl = NULL;
- task->detach = 0;
- task->destroy = 1;
- ret = starpu_task_submit(task);
- if (ret == -ENODEV) goto enodev;
- STARPU_CHECK_RETURN_VALUE(ret, "starpu_task_submit");
- ret = starpu_task_wait(task);
- STARPU_CHECK_RETURN_VALUE(ret, "starpu_task_wait");
- }
- gettimeofday(&end, NULL);
- timing = (double)((end.tv_sec - start.tv_sec)*1000000 + (end.tv_usec - start.tv_usec));
- FPRINTF(stderr, "Total: %f secs\n", timing/1000000);
- FPRINTF(stderr, "Per task: %f usecs\n", timing/ntasks);
- starpu_shutdown();
- return EXIT_SUCCESS;
- enodev:
- fprintf(stderr, "WARNING: No one can execute this task\n");
- /* yes, we do not perform the computation but we did detect that no one
- * could perform the kernel, so this is not an error from StarPU */
- starpu_shutdown();
- return STARPU_TEST_SKIPPED;
- }
|