Commit 0df52460 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Factorize the macro for the naming fo codelets, so we could also disable it for performance reasons

parent 1e6a1b7d
...@@ -123,7 +123,7 @@ void MORSE_TASK_zgeqrt(const MORSE_option_t *options, ...@@ -123,7 +123,7 @@ void MORSE_TASK_zgeqrt(const MORSE_option_t *options,
STARPU_VALUE, &h_work, sizeof(MORSE_starpu_ws_t *), STARPU_VALUE, &h_work, sizeof(MORSE_starpu_ws_t *),
STARPU_PRIORITY, options->priority, STARPU_PRIORITY, options->priority,
STARPU_CALLBACK, callback, STARPU_CALLBACK, callback,
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1)) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, "zgeqrt", STARPU_NAME, "zgeqrt",
#endif #endif
0); 0);
......
...@@ -53,7 +53,7 @@ void MORSE_TASK_zhe2ge(const MORSE_option_t *options, ...@@ -53,7 +53,7 @@ void MORSE_TASK_zhe2ge(const MORSE_option_t *options,
STARPU_VALUE, &ldb, sizeof(int), STARPU_VALUE, &ldb, sizeof(int),
STARPU_PRIORITY, options->priority, STARPU_PRIORITY, options->priority,
STARPU_CALLBACK, callback, STARPU_CALLBACK, callback,
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1)) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, "zhe2ge", STARPU_NAME, "zhe2ge",
#endif #endif
0); 0);
......
...@@ -61,7 +61,7 @@ void MORSE_TASK_zherfb(const MORSE_option_t *options, ...@@ -61,7 +61,7 @@ void MORSE_TASK_zherfb(const MORSE_option_t *options,
STARPU_VALUE, &nb, sizeof(int), STARPU_VALUE, &nb, sizeof(int),
STARPU_PRIORITY, options->priority, STARPU_PRIORITY, options->priority,
STARPU_CALLBACK, callback, STARPU_CALLBACK, callback,
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1)) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, "zherfb", STARPU_NAME, "zherfb",
#endif #endif
0); 0);
......
...@@ -62,7 +62,7 @@ void MORSE_TASK_zlatro(const MORSE_option_t *options, ...@@ -62,7 +62,7 @@ void MORSE_TASK_zlatro(const MORSE_option_t *options,
STARPU_VALUE, &ldb, sizeof(int), STARPU_VALUE, &ldb, sizeof(int),
STARPU_PRIORITY, options->priority, STARPU_PRIORITY, options->priority,
STARPU_CALLBACK, callback, STARPU_CALLBACK, callback,
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1)) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, "zlatro", STARPU_NAME, "zlatro",
#endif #endif
0); 0);
......
...@@ -199,7 +199,7 @@ void MORSE_TASK_ztsmqr(const MORSE_option_t *options, ...@@ -199,7 +199,7 @@ void MORSE_TASK_ztsmqr(const MORSE_option_t *options,
STARPU_VALUE, &ldwork, sizeof(int), STARPU_VALUE, &ldwork, sizeof(int),
STARPU_PRIORITY, options->priority, STARPU_PRIORITY, options->priority,
STARPU_CALLBACK, callback, STARPU_CALLBACK, callback,
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1)) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, "ztsmqr", STARPU_NAME, "ztsmqr",
#endif #endif
#if defined(CHAMELEON_USE_MPI) #if defined(CHAMELEON_USE_MPI)
......
...@@ -73,7 +73,7 @@ void MORSE_TASK_ztsmqr_hetra1(const MORSE_option_t *options, ...@@ -73,7 +73,7 @@ void MORSE_TASK_ztsmqr_hetra1(const MORSE_option_t *options,
STARPU_VALUE, &ldwork, sizeof(int), STARPU_VALUE, &ldwork, sizeof(int),
STARPU_PRIORITY, options->priority, STARPU_PRIORITY, options->priority,
STARPU_CALLBACK, callback, STARPU_CALLBACK, callback,
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1)) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, "ztsmqr_hetra1", STARPU_NAME, "ztsmqr_hetra1",
#endif #endif
0); 0);
......
...@@ -129,7 +129,7 @@ void MORSE_TASK_ztsqrt(const MORSE_option_t *options, ...@@ -129,7 +129,7 @@ void MORSE_TASK_ztsqrt(const MORSE_option_t *options,
STARPU_VALUE, &h_work, sizeof(MORSE_starpu_ws_t *), STARPU_VALUE, &h_work, sizeof(MORSE_starpu_ws_t *),
STARPU_PRIORITY, options->priority, STARPU_PRIORITY, options->priority,
STARPU_CALLBACK, callback, STARPU_CALLBACK, callback,
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1)) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, "ztsqrt", STARPU_NAME, "ztsqrt",
#endif #endif
STARPU_EXECUTE_ON_NODE, A2->get_rankof(A2, A2m, A2n), STARPU_EXECUTE_ON_NODE, A2->get_rankof(A2, A2m, A2n),
......
...@@ -150,7 +150,7 @@ void MORSE_TASK_zunmlq(const MORSE_option_t *options, ...@@ -150,7 +150,7 @@ void MORSE_TASK_zunmlq(const MORSE_option_t *options,
STARPU_VALUE, &nb, sizeof(int), STARPU_VALUE, &nb, sizeof(int),
STARPU_PRIORITY, options->priority, STARPU_PRIORITY, options->priority,
STARPU_CALLBACK, callback, STARPU_CALLBACK, callback,
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1)) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, "zunmlq", STARPU_NAME, "zunmlq",
#endif #endif
0); 0);
......
...@@ -172,7 +172,7 @@ void MORSE_TASK_zunmqr(const MORSE_option_t *options, ...@@ -172,7 +172,7 @@ void MORSE_TASK_zunmqr(const MORSE_option_t *options,
STARPU_VALUE, &nb, sizeof(int), STARPU_VALUE, &nb, sizeof(int),
STARPU_PRIORITY, options->priority, STARPU_PRIORITY, options->priority,
STARPU_CALLBACK, callback, STARPU_CALLBACK, callback,
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1)) #if defined(CHAMELEON_CODELETS_HAVE_NAME)
STARPU_NAME, "zunmqr", STARPU_NAME, "zunmqr",
#endif #endif
#if defined(CHAMELEON_USE_MPI) #if defined(CHAMELEON_USE_MPI)
......
...@@ -64,6 +64,13 @@ typedef struct starpu_conf starpu_conf_t; ...@@ -64,6 +64,13 @@ typedef struct starpu_conf starpu_conf_t;
#endif #endif
/* /*
* Enable codelets names
*/
#if (STARPU_MAJOR_VERSION > 1) || ((STARPU_MAJOR_VERSION == 1) && (STARPU_MINOR_VERSION > 1))
#define CHAMELEON_CODELETS_HAVE_NAME
#endif
/**
* Access to block pointer and leading dimension * Access to block pointer and leading dimension
*/ */
#define RTBLKADDR( desc, type, m, n ) ( (starpu_data_handle_t)RUNTIME_desc_getaddr( desc, m, n ) ) #define RTBLKADDR( desc, type, m, n ) ( (starpu_data_handle_t)RUNTIME_desc_getaddr( desc, m, n ) )
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment