From 43ad8683b629a136e16af5ca8fc86c30291b1780 Mon Sep 17 00:00:00 2001
From: SYLVAND Guillaume <guillaume.sylvand@airbus.com>
Date: Wed, 21 Apr 2021 12:13:08 +0200
Subject: [PATCH] Fix hmat_set_worker_index_function function prototype by
adding a wrapper
---
src/testHCHAMELEON.c | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/src/testHCHAMELEON.c b/src/testHCHAMELEON.c
index 2244ba7..cfc81db 100644
--- a/src/testHCHAMELEON.c
+++ b/src/testHCHAMELEON.c
@@ -1,6 +1,16 @@
#include "main.h"
#include <fenv.h>
+#if defined(HAVE_CHAMELEON) && defined(CHAMELEON_USE_HMAT)
+#include <chameleon/runtime.h>
+
+int get_worker_id( void )
+{
+ return RUNTIME_thread_rank( NULL );
+}
+
+#endif
+
/*! \brief Runs the test of H-chameleon matrices : gemv, solve
*/
int testHCHAMELEON(void) {
@@ -13,7 +23,7 @@ int testHCHAMELEON(void) {
Mpf_printf(MPI_COMM_WORLD,"<PERFTESTS> HRecompressionAccuracy = %.4e \n", mpf_hmat_settings.epsilon);
//feenableexcept (FE_INVALID|FE_DIVBYZERO|FE_OVERFLOW) ;
- hmat_set_worker_index_function((int (*)(void))RUNTIME_thread_rank);
+ hmat_set_worker_index_function( get_worker_id );
ierr = MPI_Comm_rank(MPI_COMM_WORLD, &rank); CHKERRQ(ierr);
--
GitLab