From ca1ddd549de8eb4bdf8c813af370c549b291cd4e Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Tue, 3 Nov 2015 14:22:40 +0000
Subject: [PATCH] Fix Quark compilation
---
runtime/quark/codelets/codelet_zgeadd.c | 36 ++++++++++++------------
runtime/quark/codelets/codelet_ztradd.c | 37 ++++++++++++-------------
2 files changed, 35 insertions(+), 38 deletions(-)
diff --git a/runtime/quark/codelets/codelet_zgeadd.c b/runtime/quark/codelets/codelet_zgeadd.c
index 3fecba248..ae704ac4a 100644
--- a/runtime/quark/codelets/codelet_zgeadd.c
+++ b/runtime/quark/codelets/codelet_zgeadd.c
@@ -28,6 +28,23 @@
**/
#include "runtime/quark/include/morse_quark.h"
+void CORE_zgeadd_quark(Quark *quark)
+{
+ MORSE_enum trans;
+ int M;
+ int N;
+ MORSE_Complex64_t alpha;
+ MORSE_Complex64_t *A;
+ int LDA;
+ MORSE_Complex64_t beta;
+ MORSE_Complex64_t *B;
+ int LDB;
+
+ quark_unpack_args_9(quark, trans, M, N, alpha, A, LDA, beta, B, LDB);
+ CORE_zgeadd(trans, M, N, alpha, A, LDA, beta, B, LDB);
+ return;
+}
+
/**
******************************************************************************
*
@@ -101,22 +118,3 @@ void MORSE_TASK_zgeadd(MORSE_option_t *options,
sizeof(int), &ldb, VALUE,
0);
}
-
-
-void CORE_zgeadd_quark(Quark *quark)
-{
- MORSE_enum trans;
- int M;
- int N;
- MORSE_Complex64_t alpha;
- MORSE_Complex64_t *A;
- int LDA;
- MORSE_Complex64_t beta;
- MORSE_Complex64_t *B;
- int LDB;
-
- quark_unpack_args_9(quark, trans, M, N, alpha, A, LDA, beta, B, LDB);
- CORE_zgeadd(trans, M, N, alpha, A, LDA, beta, B, LDB);
- return;
-}
-
diff --git a/runtime/quark/codelets/codelet_ztradd.c b/runtime/quark/codelets/codelet_ztradd.c
index 8694811ae..b645f08a7 100644
--- a/runtime/quark/codelets/codelet_ztradd.c
+++ b/runtime/quark/codelets/codelet_ztradd.c
@@ -26,6 +26,24 @@
**/
#include "runtime/quark/include/morse_quark.h"
+void CORE_ztradd_quark(Quark *quark)
+{
+ MORSE_enum uplo;
+ MORSE_enum trans;
+ int M;
+ int N;
+ MORSE_Complex64_t alpha;
+ MORSE_Complex64_t *A;
+ int LDA;
+ MORSE_Complex64_t beta;
+ MORSE_Complex64_t *B;
+ int LDB;
+
+ quark_unpack_args_10(quark, uplo, trans, M, N, alpha, A, LDA, beta, B, LDB);
+ CORE_ztradd(uplo, trans, M, N, alpha, A, LDA, beta, B, LDB);
+ return;
+}
+
/**
******************************************************************************
*
@@ -107,22 +125,3 @@ void MORSE_TASK_ztradd(MORSE_option_t *options,
0);
}
-
-void CORE_ztradd_quark(Quark *quark)
-{
- MORSE_enum uplo;
- MORSE_enum trans;
- int M;
- int N;
- MORSE_Complex64_t alpha;
- MORSE_Complex64_t *A;
- int LDA;
- MORSE_Complex64_t beta;
- MORSE_Complex64_t *B;
- int LDB;
-
- quark_unpack_args_9(quark, uplo, trans, M, N, alpha, A, LDA, beta, B, LDB);
- CORE_ztradd(uplo, trans, M, N, alpha, A, LDA, beta, B, LDB);
- return;
-}
-
--
GitLab