Mentions légales du service

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

Replace insert_task_generic_fptr by dague_insert_task

parent 1accf0e8
No related branches found
No related tags found
1 merge request!2Update Parsec directory such that it compiles
Showing
with 27 additions and 28 deletions
......@@ -58,7 +58,7 @@ void MORSE_TASK_zlange(const MORSE_option_t *options,
int szeW = max( M, N );
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zlange_parsec, "lange",
dague_insert_task(DAGUE_dtd_handle, CORE_zlange_parsec, "lange",
sizeof(MORSE_enum), &norm, VALUE,
sizeof(int), &M, VALUE,
sizeof(int), &N, VALUE,
......@@ -94,7 +94,7 @@ void MORSE_TASK_zlange_max(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zlange_max_parsec, "lange_max",
dague_insert_task(DAGUE_dtd_handle, CORE_zlange_max_parsec, "lange_max",
PASSED_BY_REF, RTBLKADDR( A, double, Am, An ), INPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | REGION_FULL,
0);
......
......@@ -57,7 +57,7 @@ void MORSE_TASK_zlanhe(const MORSE_option_t *options,
int szeW = max( 1, N );
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zlanhe_parsec, "LANHE",
dague_insert_task(DAGUE_dtd_handle, CORE_zlanhe_parsec, "LANHE",
sizeof(MORSE_enum), &norm, VALUE,
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &N, VALUE,
......
......@@ -58,7 +58,7 @@ void MORSE_TASK_zlansy(const MORSE_option_t *options,
int szeW = max( 1, N );
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zlansy_parsec, "lansy",
dague_insert_task(DAGUE_dtd_handle, CORE_zlansy_parsec, "lansy",
sizeof(MORSE_enum), &norm, VALUE,
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &N, VALUE,
......
......@@ -60,7 +60,7 @@ void MORSE_TASK_zlantr(const MORSE_option_t *options,
int szeW = max( 1, N );
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zlantr_parsec, "lantr",
dague_insert_task(DAGUE_dtd_handle, CORE_zlantr_parsec, "lantr",
sizeof(MORSE_enum), &norm, VALUE,
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(MORSE_enum), &diag, VALUE,
......
......@@ -29,7 +29,7 @@
*
**/
#include "runtime/quark/include/morse_parsec.h"
#include "runtime/parsec/include/morse_parsec.h"
/***************************************************************************//**
*
......@@ -55,7 +55,7 @@ CORE_zlascal_parsec(dague_execution_unit_t *context,
UNPACK_DATA, &A,
UNPACK_VALUE, &LDA);
CORE_zlascal(uplo, M, N, alpha, A, LDA);
CORE_zlascal(*uplo, *M, *N, *alpha, A, *LDA);
}
void MORSE_TASK_zlascal(const MORSE_option_t *options,
......@@ -66,7 +66,7 @@ void MORSE_TASK_zlascal(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(
dague_insert_task(
DAGUE_dtd_handle, CORE_zlascal_parsec, "lascal",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &m, VALUE,
......
......@@ -92,7 +92,7 @@ void MORSE_TASK_zlaset(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zlaset_parsec, "laset",
dague_insert_task(DAGUE_dtd_handle, CORE_zlaset_parsec, "laset",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &M, VALUE,
sizeof(int), &N, VALUE,
......
......@@ -85,7 +85,7 @@ void MORSE_TASK_zlaset2(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zlaset2_parsec, "laset2",
dague_insert_task(DAGUE_dtd_handle, CORE_zlaset2_parsec, "laset2",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &M, VALUE,
sizeof(int), &N, VALUE,
......
......@@ -23,8 +23,7 @@
**/
#include "runtime/parsec/include/morse_parsec.h"
static int
static inline int
CORE_zlatro_parsec(dague_execution_unit_t *context,
dague_execution_context_t *this_task)
{
......@@ -47,8 +46,8 @@ CORE_zlatro_parsec(dague_execution_unit_t *context,
UNPACK_DATA, &B,
UNPACK_VALUE, &LDB);
CORE_zlatro(uplo, trans, M, N,
A, LDA, B, LDB);
CORE_zlatro(*uplo, *trans, *M, *N,
A, *LDA, B, *LDB);
}
/***************************************************************************//**
......@@ -62,7 +61,7 @@ void MORSE_TASK_zlatro(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(
dague_insert_task(
DAGUE_dtd_handle, CORE_zlatro_parsec, "latro",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(MORSE_enum), &trans, VALUE,
......
......@@ -54,7 +54,7 @@ void MORSE_TASK_zlauum(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zlauum_parsec, "lauum",
dague_insert_task(DAGUE_dtd_handle, CORE_zlauum_parsec, "lauum",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
......
......@@ -219,7 +219,7 @@ MORSE_TASK_zpamm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zpamm_parsec, "pamm",
dague_insert_task(DAGUE_dtd_handle, CORE_zpamm_parsec, "pamm",
sizeof(int), &op, VALUE,
sizeof(MORSE_enum), &side, VALUE,
sizeof(MORSE_enum), &storev, VALUE,
......
......@@ -59,7 +59,7 @@ void MORSE_TASK_zplghe( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zplghe_parsec, "zplghe",
dague_insert_task(DAGUE_dtd_handle, CORE_zplghe_parsec, "zplghe",
sizeof(double), &bump, VALUE,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
......
......@@ -58,7 +58,7 @@ void MORSE_TASK_zplgsy( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zplgsy_parsec, "zplgsy",
dague_insert_task(DAGUE_dtd_handle, CORE_zplgsy_parsec, "zplgsy",
sizeof(MORSE_Complex64_t), &bump, VALUE,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
......
......@@ -57,7 +57,7 @@ void MORSE_TASK_zplrnt( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zplrnt_parsec, "zplrnt",
dague_insert_task(DAGUE_dtd_handle, CORE_zplrnt_parsec, "zplrnt",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), OUTPUT | REGION_FULL,
......
......@@ -81,7 +81,7 @@ void MORSE_TASK_zplssq( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zplssq_parsec, "plssq",
dague_insert_task(DAGUE_dtd_handle, CORE_zplssq_parsec, "plssq",
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INPUT | REGION_FULL,
PASSED_BY_REF, RTBLKADDR( SCLSSQ, double, SCLSSQm, SCLSSQn ), INOUT | REGION_FULL,
0);
......@@ -107,7 +107,7 @@ void MORSE_TASK_zplssq2( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zplssq2_parsec, "plssq2",
dague_insert_task(DAGUE_dtd_handle, CORE_zplssq2_parsec, "plssq2",
PASSED_BY_REF, RTBLKADDR( RESULT, double, RESULTm, RESULTn ), INOUT | REGION_FULL,
0);
}
......@@ -55,7 +55,7 @@ void MORSE_TASK_zpotrf(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zpotrf_parsec, "potrf",
dague_insert_task(DAGUE_dtd_handle, CORE_zpotrf_parsec, "potrf",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT | REGION_FULL,
......
......@@ -75,7 +75,7 @@ void MORSE_TASK_zssssm(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zssssm_parsec, "ssssm",
dague_insert_task(DAGUE_dtd_handle, CORE_zssssm_parsec, "ssssm",
sizeof(int), &m1, VALUE,
sizeof(int), &n1, VALUE,
sizeof(int), &m2, VALUE,
......
......@@ -73,7 +73,7 @@ void MORSE_TASK_zsymm(const MORSE_option_t *options,
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zsymm_parsec, "symm",
dague_insert_task(DAGUE_dtd_handle, CORE_zsymm_parsec, "symm",
sizeof(MORSE_enum), &side, VALUE,
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &m, VALUE,
......
......@@ -71,7 +71,7 @@ void MORSE_TASK_zsyr2k(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zsyr2k_parsec, "syr2k",
dague_insert_task(DAGUE_dtd_handle, CORE_zsyr2k_parsec, "syr2k",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(MORSE_enum), &trans, VALUE,
sizeof(int), &n, VALUE,
......
......@@ -65,7 +65,7 @@ void MORSE_TASK_zsyrk(const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zsyrk_parsec, "syrk",
dague_insert_task(DAGUE_dtd_handle, CORE_zsyrk_parsec, "syrk",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(MORSE_enum), &trans, VALUE,
sizeof(int), &n, VALUE,
......
......@@ -52,7 +52,7 @@ void MORSE_TASK_zsyssq( const MORSE_option_t *options,
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_zsyssq_parsec, "syssq",
dague_insert_task(DAGUE_dtd_handle, CORE_zsyssq_parsec, "syssq",
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
......
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