Commit de9035f4 authored by THIBAULT Samuel's avatar THIBAULT Samuel
Browse files

constify desc parameter in task functions

parent a651c05f
...@@ -150,22 +150,22 @@ void RUNTIME_sdisplay_oneprofile (MORSE_kernel_t); ...@@ -150,22 +150,22 @@ void RUNTIME_sdisplay_oneprofile (MORSE_kernel_t);
void MORSE_TASK_ztile_zero(const MORSE_option_t *options, void MORSE_TASK_ztile_zero(const MORSE_option_t *options,
int X1, int X2, int Y1, int Y2, int X1, int X2, int Y1, int Y2,
MORSE_desc_t *A, int Am, int An, int lda); const MORSE_desc_t *A, int Am, int An, int lda);
void MORSE_TASK_dtile_zero(const MORSE_option_t *options, void MORSE_TASK_dtile_zero(const MORSE_option_t *options,
int X1, int X2, int Y1, int Y2, int X1, int X2, int Y1, int Y2,
MORSE_desc_t *A, int Am, int An, int lda); const MORSE_desc_t *A, int Am, int An, int lda);
void MORSE_TASK_ctile_zero(const MORSE_option_t *options, void MORSE_TASK_ctile_zero(const MORSE_option_t *options,
int X1, int X2, int Y1, int Y2, int X1, int X2, int Y1, int Y2,
MORSE_desc_t *A, int Am, int An, int lda); const MORSE_desc_t *A, int Am, int An, int lda);
void MORSE_TASK_stile_zero(const MORSE_option_t *options, void MORSE_TASK_stile_zero(const MORSE_option_t *options,
int X1, int X2, int Y1, int Y2, int X1, int X2, int Y1, int Y2,
MORSE_desc_t *A, int Am, int An, int lda); const MORSE_desc_t *A, int Am, int An, int lda);
/* /*
* Mark a data as unused after this call * Mark a data as unused after this call
*/ */
void MORSE_TASK_dataflush(const MORSE_option_t *options, void MORSE_TASK_dataflush(const MORSE_option_t *options,
MORSE_desc_t *A, int Am, int An); const MORSE_desc_t *A, int Am, int An);
void MORSE_TASK_dataflush_all(); void MORSE_TASK_dataflush_all();
#endif #endif
This diff is collapsed.
...@@ -23,7 +23,7 @@ ...@@ -23,7 +23,7 @@
#include "runtime/parsec/include/morse_parsec.h" #include "runtime/parsec/include/morse_parsec.h"
void MORSE_TASK_dataflush(const MORSE_option_t *options, void MORSE_TASK_dataflush(const MORSE_option_t *options,
MORSE_desc_t *A, int Am, int An) const MORSE_desc_t *A, int Am, int An)
{ {
(void)options; (void)A; (void)options; (void)A;
......
...@@ -50,8 +50,8 @@ CORE_dzasum_parsec(dague_execution_unit_t *context, dague_execution_context_t *t ...@@ -50,8 +50,8 @@ CORE_dzasum_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_dzasum(const MORSE_option_t *options, void MORSE_TASK_dzasum(const MORSE_option_t *options,
MORSE_enum storev, MORSE_enum uplo, int M, int N, MORSE_enum storev, MORSE_enum uplo, int M, int N,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn) const MORSE_desc_t *B, int Bm, int Bn)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -49,8 +49,8 @@ CORE_zaxpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *th ...@@ -49,8 +49,8 @@ CORE_zaxpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
void MORSE_TASK_zaxpy(const MORSE_option_t *options, void MORSE_TASK_zaxpy(const MORSE_option_t *options,
int M, MORSE_Complex64_t *alpha, int M, MORSE_Complex64_t *alpha,
MORSE_desc_t *A, int Am, int An, int incA, const MORSE_desc_t *A, int Am, int An, int incA,
MORSE_desc_t *B, int Bm, int Bn, int incB) const MORSE_desc_t *B, int Bm, int Bn, int incB)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -51,7 +51,7 @@ CORE_zbuild_parsec(dague_execution_unit_t *context, dague_execution_context_t *t ...@@ -51,7 +51,7 @@ CORE_zbuild_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
} }
void MORSE_TASK_zbuild( const MORSE_option_t *options, void MORSE_TASK_zbuild( const MORSE_option_t *options,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
void *user_data, void* user_build_callback ) void *user_data, void* user_build_callback )
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -113,8 +113,8 @@ CORE_zgeadd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t ...@@ -113,8 +113,8 @@ CORE_zgeadd_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
******************************************************************************/ ******************************************************************************/
void MORSE_TASK_zgeadd(const MORSE_option_t *options, void MORSE_TASK_zgeadd(const MORSE_option_t *options,
MORSE_enum trans, int m, int n, int nb, MORSE_enum trans, int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda, MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t beta, MORSE_desc_t *B, int Bm, int Bn, int ldb) MORSE_Complex64_t beta, const MORSE_desc_t *B, int Bm, int Bn, int ldb)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -116,8 +116,8 @@ CORE_zgelqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t ...@@ -116,8 +116,8 @@ CORE_zgelqt_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zgelqt(const MORSE_option_t *options, void MORSE_TASK_zgelqt(const MORSE_option_t *options,
int m, int n, int ib, int nb, int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt) const MORSE_desc_t *T, int Tm, int Tn, int ldt)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -71,9 +71,9 @@ CORE_zgemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th ...@@ -71,9 +71,9 @@ CORE_zgemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
void MORSE_TASK_zgemm(const MORSE_option_t *options, void MORSE_TASK_zgemm(const MORSE_option_t *options,
MORSE_enum transA, int transB, MORSE_enum transA, int transB,
int m, int n, int k, int nb, int m, int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda, MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb, const MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc) MORSE_Complex64_t beta, const MORSE_desc_t *C, int Cm, int Cn, int ldc)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -117,8 +117,8 @@ CORE_zgeqrt_parsec (dague_execution_unit_t *context, dague_execution_context_t * ...@@ -117,8 +117,8 @@ CORE_zgeqrt_parsec (dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zgeqrt(const MORSE_option_t *options, void MORSE_TASK_zgeqrt(const MORSE_option_t *options,
int m, int n, int ib, int nb, int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt) const MORSE_desc_t *T, int Tm, int Tn, int ldt)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -105,9 +105,9 @@ CORE_zgessm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t ...@@ -105,9 +105,9 @@ CORE_zgessm_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zgessm(const MORSE_option_t *options, void MORSE_TASK_zgessm(const MORSE_option_t *options,
int m, int n, int k, int ib, int nb, int m, int n, int k, int ib, int nb,
int *IPIV, int *IPIV,
MORSE_desc_t *L, int Lm, int Ln, int ldl, const MORSE_desc_t *L, int Lm, int Ln, int ldl,
MORSE_desc_t *D, int Dm, int Dn, int ldd, const MORSE_desc_t *D, int Dm, int Dn, int ldd,
MORSE_desc_t *A, int Am, int An, int lda) const MORSE_desc_t *A, int Am, int An, int lda)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -46,8 +46,8 @@ CORE_zgessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t ...@@ -46,8 +46,8 @@ CORE_zgessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zgessq( const MORSE_option_t *options, void MORSE_TASK_zgessq( const MORSE_option_t *options,
int m, int n, int m, int n,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn ) const MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn )
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -52,7 +52,7 @@ CORE_zgetrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t ...@@ -52,7 +52,7 @@ CORE_zgetrf_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zgetrf(const MORSE_option_t *options, void MORSE_TASK_zgetrf(const MORSE_option_t *options,
int m, int n, int nb, int m, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
int *IPIV, int *IPIV,
MORSE_bool check_info, int iinfo) MORSE_bool check_info, int iinfo)
{ {
......
...@@ -110,8 +110,8 @@ CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_conte ...@@ -110,8 +110,8 @@ CORE_zgetrf_incpiv_parsec(dague_execution_unit_t *context, dague_execution_conte
void MORSE_TASK_zgetrf_incpiv(const MORSE_option_t *options, void MORSE_TASK_zgetrf_incpiv(const MORSE_option_t *options,
int m, int n, int ib, int nb, int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *L, int Lm, int Ln, int ldl, const MORSE_desc_t *L, int Lm, int Ln, int ldl,
int *IPIV, int *IPIV,
MORSE_bool check_info, int iinfo) MORSE_bool check_info, int iinfo)
{ {
......
...@@ -97,7 +97,7 @@ CORE_zgetrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex ...@@ -97,7 +97,7 @@ CORE_zgetrf_nopiv_parsec(dague_execution_unit_t *context, dague_execution_contex
void MORSE_TASK_zgetrf_nopiv(const MORSE_option_t *options, void MORSE_TASK_zgetrf_nopiv(const MORSE_option_t *options,
int m, int n, int ib, int nb, int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
int iinfo) int iinfo)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -70,9 +70,9 @@ CORE_zhemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th ...@@ -70,9 +70,9 @@ CORE_zhemm_parsec(dague_execution_unit_t *context, dague_execution_context_t *th
void MORSE_TASK_zhemm(const MORSE_option_t *options, void MORSE_TASK_zhemm(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo, MORSE_enum side, MORSE_enum uplo,
int m, int n, int nb, int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda, MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb, const MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc) MORSE_Complex64_t beta, const MORSE_desc_t *C, int Cm, int Cn, int ldc)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -70,9 +70,9 @@ CORE_zher2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t ...@@ -70,9 +70,9 @@ CORE_zher2k_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zher2k(const MORSE_option_t *options, void MORSE_TASK_zher2k(const MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans, MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb, int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda, MORSE_Complex64_t alpha, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb, const MORSE_desc_t *B, int Bm, int Bn, int ldb,
double beta, MORSE_desc_t *C, int Cm, int Cn, int ldc) double beta, const MORSE_desc_t *C, int Cm, int Cn, int ldc)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -66,8 +66,8 @@ CORE_zherk_parsec(dague_execution_unit_t *context, dague_execution_context_t * t ...@@ -66,8 +66,8 @@ CORE_zherk_parsec(dague_execution_unit_t *context, dague_execution_context_t * t
void MORSE_TASK_zherk(const MORSE_option_t *options, void MORSE_TASK_zherk(const MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans, MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb, int n, int k, int nb,
double alpha, MORSE_desc_t *A, int Am, int An, int lda, double alpha, const MORSE_desc_t *A, int Am, int An, int lda,
double beta, MORSE_desc_t *C, int Cm, int Cn, int ldc) double beta, const MORSE_desc_t *C, int Cm, int Cn, int ldc)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -46,8 +46,8 @@ CORE_zhessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t ...@@ -46,8 +46,8 @@ CORE_zhessq_parsec(dague_execution_unit_t *context, dague_execution_context_t *t
void MORSE_TASK_zhessq( const MORSE_option_t *options, void MORSE_TASK_zhessq( const MORSE_option_t *options,
MORSE_enum uplo, int n, MORSE_enum uplo, int n,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn ) const MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn )
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
...@@ -56,8 +56,8 @@ CORE_zlacpy_parsec(dague_execution_unit_t *context, dague_execution_context_t * ...@@ -56,8 +56,8 @@ CORE_zlacpy_parsec(dague_execution_unit_t *context, dague_execution_context_t *
void MORSE_TASK_zlacpy(const MORSE_option_t *options, void MORSE_TASK_zlacpy(const MORSE_option_t *options,
MORSE_enum uplo, int m, int n, int nb, MORSE_enum uplo, int m, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda, const MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb) const MORSE_desc_t *B, int Bm, int Bn, int ldb)
{ {
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt); dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
......
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