Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 7eda7bbf authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

starpu/codelets: Use the new function to generate the codelet name in tracing

parent 479e4cdf
No related branches found
No related tags found
1 merge request!400Many small warning/bug fixes
......@@ -188,16 +188,11 @@ void INSERT_TASK_zgemm_Astat( const RUNTIME_option_t *options,
accessC = STARPU_RW;
}
#if defined(CHAMELEON_KERNELS_TRACE)
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s, %s )", cl_name,
A->get_blktile( A, Am, An )->name,
B->get_blktile( B, Bm, Bn )->name,
C->get_blktile( C, Cm, Cn )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 3,
A->get_blktile( A, Am, An ),
B->get_blktile( B, Bm, Bn ),
C->get_blktile( C, Cm, Cn ) );
/* Insert the task */
rt_starpu_insert_task(
......@@ -264,16 +259,11 @@ void INSERT_TASK_zgemm( const RUNTIME_option_t *options,
/* Reduce the C access if needed */
accessC = ( beta == 0. ) ? STARPU_W : (STARPU_RW | ((beta == 1.) ? STARPU_COMMUTE : 0));
#if defined(CHAMELEON_KERNELS_TRACE)
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s, %s )", cl_name,
A->get_blktile( A, Am, An )->name,
B->get_blktile( B, Bm, Bn )->name,
C->get_blktile( C, Cm, Cn )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 3,
A->get_blktile( A, Am, An ),
B->get_blktile( B, Bm, Bn ),
C->get_blktile( C, Cm, Cn ) );
/* Insert the task */
rt_starpu_insert_task(
......
......@@ -180,16 +180,11 @@ void INSERT_TASK_zhemm_Astat( const RUNTIME_option_t *options,
accessC = STARPU_RW;
}
#if defined(CHAMELEON_KERNELS_TRACE)
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s, %s )", cl_name,
A->get_blktile( A, Am, An )->name,
B->get_blktile( B, Bm, Bn )->name,
C->get_blktile( C, Cm, Cn )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 3,
A->get_blktile( A, Am, An ),
B->get_blktile( B, Bm, Bn ),
C->get_blktile( C, Cm, Cn ) );
/* Insert the task */
rt_starpu_insert_task(
......@@ -255,14 +250,11 @@ void INSERT_TASK_zhemm( const RUNTIME_option_t *options,
/* Reduce the C access if needed */
accessC = ( beta == 0. ) ? STARPU_W : (STARPU_RW | ((beta == 1.) ? STARPU_COMMUTE : 0));
#if defined(CHAMELEON_KERNELS_TRACE)
if ( clargs != NULL )
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s, %s )", cl_name, A->get_blktile( A, Am, An )->name, B->get_blktile( B, Bm, Bn )->name, C->get_blktile( C, Cm, Cn )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 3,
A->get_blktile( A, Am, An ),
B->get_blktile( B, Bm, Bn ),
C->get_blktile( C, Cm, Cn ) );
/* Insert the task */
rt_starpu_insert_task(
......
......@@ -147,15 +147,10 @@ void INSERT_TASK_zherk( const RUNTIME_option_t *options,
/* Reduce the C access if needed */
accessC = ( beta == 0. ) ? STARPU_W : STARPU_RW;
#if defined(CHAMELEON_KERNELS_TRACE)
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s )", cl_name,
A->get_blktile( A, Am, An )->name,
C->get_blktile( C, Cm, Cn )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 2,
A->get_blktile( A, Am, An ),
C->get_blktile( C, Cm, Cn ) );
/* Insert the task */
rt_starpu_insert_task(
......
......@@ -74,13 +74,9 @@ void INSERT_TASK_zlauum( const RUNTIME_option_t *options,
/* Callback fro profiling information */
callback = options->profiling ? cl_zlauum_callback : NULL;
#if defined(CHAMELEON_KERNELS_TRACE)
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s )", cl_name, A->get_blktile( A, Am, An )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 1,
A->get_blktile( A, Am, An ) );
/* Insert the task */
rt_starpu_insert_task(
......
......@@ -91,13 +91,9 @@ void INSERT_TASK_zpotrf( const RUNTIME_option_t *options,
/* Callback fro profiling information */
callback = options->profiling ? cl_zpotrf_callback : NULL;
#if defined(CHAMELEON_KERNELS_TRACE)
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s )", cl_name, A->get_blktile( A, Am, An )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 1,
A->get_blktile( A, Am, An ) );
/* Insert the task */
rt_starpu_insert_task(
......
......@@ -181,14 +181,11 @@ void INSERT_TASK_zsymm_Astat( const RUNTIME_option_t *options,
accessC = STARPU_RW;
}
#if defined(CHAMELEON_KERNELS_TRACE)
if ( clargs != NULL )
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s, %s )", cl_name, A->get_blktile( A, Am, An )->name, B->get_blktile( B, Bm, Bn )->name, C->get_blktile( C, Cm, Cn )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 3,
A->get_blktile( A, Am, An ),
B->get_blktile( B, Bm, Bn ),
C->get_blktile( C, Cm, Cn ) );
/* Insert the task */
rt_starpu_insert_task(
......@@ -254,14 +251,11 @@ void INSERT_TASK_zsymm( const RUNTIME_option_t *options,
/* Reduce the C access if needed */
accessC = ( beta == 0. ) ? STARPU_W : (STARPU_RW | ((beta == 1.) ? STARPU_COMMUTE : 0));
#if defined(CHAMELEON_KERNELS_TRACE)
if ( clargs != NULL )
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s, %s )", cl_name, A->get_blktile( A, Am, An )->name, B->get_blktile( B, Bm, Bn )->name, C->get_blktile( C, Cm, Cn )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 3,
A->get_blktile( A, Am, An ),
B->get_blktile( B, Bm, Bn ),
C->get_blktile( C, Cm, Cn ) );
/* Insert the task */
rt_starpu_insert_task(
......
......@@ -148,15 +148,9 @@ void INSERT_TASK_zsyrk( const RUNTIME_option_t *options,
/* Reduce the C access if needed */
accessC = ( beta == 0. ) ? STARPU_W : STARPU_RW;
#if defined(CHAMELEON_KERNELS_TRACE)
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s )", cl_name,
A->get_blktile( A, Am, An )->name,
C->get_blktile( C, Cm, Cn )->name );
cl_name = cl_fullname;
}
#endif
cl_name = chameleon_codelet_name( cl_name, 2,
A->get_blktile( A, Am, An ),
C->get_blktile( C, Cm, Cn ) );
/* Insert the task */
rt_starpu_insert_task(
......
......@@ -138,14 +138,10 @@ void INSERT_TASK_ztrmm( const RUNTIME_option_t *options,
/* Callback fro profiling information */
callback = options->profiling ? cl_ztrmm_callback : NULL;
#if defined(CHAMELEON_KERNELS_TRACE)
if ( clargs != NULL )
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s )", cl_name, A->get_blktile( A, Am, An )->name, B->get_blktile( B, Bm, Bn )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 2,
A->get_blktile( A, Am, An ),
B->get_blktile( B, Bm, Bn ) );
/* Insert the task */
rt_starpu_insert_task(
......
......@@ -142,14 +142,10 @@ void INSERT_TASK_ztrsm( const RUNTIME_option_t *options,
/* Callback fro profiling information */
callback = options->profiling ? cl_ztrsm_callback : NULL;
#if defined(CHAMELEON_KERNELS_TRACE)
if ( clargs != NULL )
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s, %s )", cl_name, A->get_blktile( A, Am, An )->name, B->get_blktile( B, Bm, Bn )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 2,
A->get_blktile( A, Am, An ),
B->get_blktile( B, Bm, Bn ) );
/* Insert the task */
rt_starpu_insert_task(
......
......@@ -88,13 +88,8 @@ void INSERT_TASK_ztrtri( const RUNTIME_option_t *options,
/* Callback fro profiling information */
callback = options->profiling ? cl_ztrtri_callback : NULL;
#if defined(CHAMELEON_KERNELS_TRACE)
{
char *cl_fullname;
chameleon_asprintf( &cl_fullname, "%s( %s )", cl_name, A->get_blktile( A, Am, An )->name );
cl_name = cl_fullname;
}
#endif
/* Refine name */
cl_name = chameleon_codelet_name( cl_name, 1, A->get_blktile( A, Am, An ) );
/* Insert the task */
rt_starpu_insert_task(
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment