Commit 165fe037 authored by Mathieu Faverge's avatar Mathieu Faverge

Fix compilation with quark and parsec

parent 403748f0
......@@ -29,7 +29,7 @@ CORE_zgetrf_parsec( parsec_execution_stream_t *context,
CHAMELEON_Complex64_t *A;
int lda;
int *IPIV;
CHAMELEON_bool *check_info;
cham_bool_t *check_info;
int iinfo;
int info;
......@@ -46,7 +46,7 @@ void INSERT_TASK_zgetrf(const RUNTIME_option_t *options,
int m, int n, int nb,
const CHAM_desc_t *A, int Am, int An, int lda,
int *IPIV,
CHAMELEON_bool check_info, int iinfo)
cham_bool_t check_info, int iinfo)
{
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
......@@ -57,7 +57,7 @@ void INSERT_TASK_zgetrf(const RUNTIME_option_t *options,
PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
sizeof(CHAMELEON_bool), &check_info, VALUE,
sizeof(cham_bool_t), &check_info, VALUE,
sizeof(int), &iinfo, VALUE,
PARSEC_DTD_ARG_END );
}
......@@ -84,7 +84,7 @@ CORE_zgetrf_incpiv_parsec( parsec_execution_stream_t *context,
CHAMELEON_Complex64_t *A;
int lda;
int *IPIV;
CHAMELEON_bool *check_info;
cham_bool_t *check_info;
int iinfo;
int info;
......@@ -103,7 +103,7 @@ void INSERT_TASK_zgetrf_incpiv( const RUNTIME_option_t *options,
const CHAM_desc_t *A, int Am, int An, int lda,
const CHAM_desc_t *L, int Lm, int Ln, int ldl,
int *IPIV,
CHAMELEON_bool check_info, int iinfo )
cham_bool_t check_info, int iinfo )
{
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
......
......@@ -37,7 +37,7 @@ CORE_ztstrf_parsec( parsec_execution_stream_t *context,
int *IPIV;
CHAMELEON_Complex64_t *WORK;
int ldwork;
CHAMELEON_bool *check_info;
cham_bool_t *check_info;
int iinfo;
int info;
......@@ -57,7 +57,7 @@ void INSERT_TASK_ztstrf(const RUNTIME_option_t *options,
const CHAM_desc_t *A, int Am, int An, int lda,
const CHAM_desc_t *L, int Lm, int Ln, int ldl,
int *IPIV,
CHAMELEON_bool check_info, int iinfo)
cham_bool_t check_info, int iinfo)
{
parsec_taskpool_t* PARSEC_dtd_taskpool = (parsec_taskpool_t *)(options->sequence->schedopt);
......
......@@ -29,7 +29,6 @@ void RUNTIME_options_init( RUNTIME_option_t *options, CHAM_context_t *morse,
options->profiling = CHAMELEON_PROFILING == CHAMELEON_TRUE;
options->parallel = CHAMELEON_PARALLEL == CHAMELEON_TRUE;
options->priority = RUNTIME_PRIORITY_MIN;
options->nb = CHAMELEON_NB;
options->ws_wsize = 0;
options->ws_hsize = 0;
options->ws_worker = NULL;
......
......@@ -34,7 +34,7 @@ void CORE_zgetrf_quark(Quark *quark)
int *IPIV;
RUNTIME_sequence_t *sequence;
RUNTIME_request_t *request;
CHAMELEON_bool check_info;
cham_bool_t check_info;
int iinfo;
int info;
......@@ -49,7 +49,7 @@ void INSERT_TASK_zgetrf(const RUNTIME_option_t *options,
int m, int n, int nb,
const CHAM_desc_t *A, int Am, int An, int lda,
int *IPIV,
CHAMELEON_bool check_info, int iinfo)
cham_bool_t check_info, int iinfo)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_GETRF;
......@@ -61,7 +61,7 @@ void INSERT_TASK_zgetrf(const RUNTIME_option_t *options,
sizeof(int)*nb, IPIV, OUTPUT,
sizeof(RUNTIME_sequence_t*), &(options->sequence), VALUE,
sizeof(RUNTIME_request_t*), &(options->request), VALUE,
sizeof(CHAMELEON_bool), &check_info, VALUE,
sizeof(cham_bool_t), &check_info, VALUE,
sizeof(int), &iinfo, VALUE,
0);
}
......@@ -37,7 +37,7 @@ void CORE_zgetrf_incpiv_quark(Quark *quark)
int *IPIV;
RUNTIME_sequence_t *sequence;
RUNTIME_request_t *request;
CHAMELEON_bool check_info;
cham_bool_t check_info;
int iinfo;
int info;
......@@ -108,7 +108,7 @@ void INSERT_TASK_zgetrf_incpiv(const RUNTIME_option_t *options,
const CHAM_desc_t *A, int Am, int An, int lda,
const CHAM_desc_t *L, int Lm, int Ln, int ldl,
int *IPIV,
CHAMELEON_bool check_info, int iinfo)
cham_bool_t check_info, int iinfo)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_GETRF;
......@@ -121,7 +121,7 @@ void INSERT_TASK_zgetrf_incpiv(const RUNTIME_option_t *options,
sizeof(int)*nb, IPIV, OUTPUT,
sizeof(RUNTIME_sequence_t*), &(options->sequence), VALUE,
sizeof(RUNTIME_request_t*), &(options->request), VALUE,
sizeof(CHAMELEON_bool), &check_info, VALUE,
sizeof(cham_bool_t), &check_info, VALUE,
sizeof(int), &iinfo, VALUE,
0);
......
......@@ -44,7 +44,7 @@ void INSERT_TASK_ztrasm(const RUNTIME_option_t *options,
const CHAM_desc_t *B, int Bm, int Bn)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
int szeW = uplo == ChamRowwise ? M : N ;
int szeW = storev == ChamRowwise ? M : N ;
QUARK_Insert_Task(opt->quark, CORE_ztrasm_quark, (Quark_Task_Flags*)opt,
sizeof(int), &storev, VALUE,
sizeof(int), &uplo, VALUE,
......
......@@ -46,7 +46,7 @@ void CORE_ztstrf_quark(Quark *quark)
int ldwork;
RUNTIME_sequence_t *sequence;
RUNTIME_request_t *request;
CHAMELEON_bool check_info;
cham_bool_t check_info;
int iinfo;
int info;
......@@ -130,7 +130,7 @@ void INSERT_TASK_ztstrf(const RUNTIME_option_t *options,
const CHAM_desc_t *A, int Am, int An, int lda,
const CHAM_desc_t *L, int Lm, int Ln, int ldl,
int *IPIV,
CHAMELEON_bool check_info, int iinfo)
cham_bool_t check_info, int iinfo)
{
quark_option_t *opt = (quark_option_t*)(options->schedopt);
DAG_CORE_TSTRF;
......@@ -150,7 +150,7 @@ void INSERT_TASK_ztstrf(const RUNTIME_option_t *options,
sizeof(int), &nb, VALUE,
sizeof(RUNTIME_sequence_t*), &(options->sequence), VALUE,
sizeof(RUNTIME_request_t*), &(options->request), VALUE,
sizeof(CHAMELEON_bool), &check_info, VALUE,
sizeof(cham_bool_t), &check_info, VALUE,
sizeof(int), &iinfo, VALUE,
0);
}
......@@ -40,8 +40,6 @@ void RUNTIME_options_init( RUNTIME_option_t *options, CHAM_context_t *morse,
options->parallel = CHAMELEON_PARALLEL == CHAMELEON_TRUE;
options->priority = RUNTIME_PRIORITY_MIN;
options->nb = CHAMELEON_NB;
options->ws_wsize = 0;
options->ws_hsize = 0;
options->ws_worker = NULL;
......
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