From 29dd8a2e6c38e3a1a3f16a2ba6a2a6a7fd1eb0e7 Mon Sep 17 00:00:00 2001
From: Raphael Boucherie <raphael.boucherie@inria.fr>
Date: Tue, 23 May 2017 11:18:54 +0200
Subject: [PATCH] fixed issue with malloc of tiles
---
compute/pzgelqf_param.c | 4 ++--
compute/pzunglq_param.c | 1 +
compute/pzunmlq_param.c | 4 ++--
3 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/compute/pzgelqf_param.c b/compute/pzgelqf_param.c
index c0843b666..476ce30d4 100644
--- a/compute/pzgelqf_param.c
+++ b/compute/pzgelqf_param.c
@@ -87,8 +87,8 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_de
/* Initialisation of tiles */
- tiles = (int*)malloc((qrtree->nt)*sizeof(int));
- memset( tiles, 0, (qrtree->nt)*sizeof(int) );
+ tiles = (int*)malloc((qrtree->mt)*sizeof(int));
+ memset( tiles, 0, (qrtree->mt)*sizeof(int) );
ws_worker *= sizeof(MORSE_Complex64_t);
ws_host *= sizeof(MORSE_Complex64_t);
diff --git a/compute/pzunglq_param.c b/compute/pzunglq_param.c
index 9d265cf44..b9e2a4e7f 100644
--- a/compute/pzunglq_param.c
+++ b/compute/pzunglq_param.c
@@ -137,6 +137,7 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
else {
for (m = k; m < Q->mt; m++) {
tempmm = m == Q->mt-1 ? Q->m-m*Q->mb : Q->mb;
+ ldqm = BLKLDD(Q, m);
MORSE_TASK_zttmlq(
&options,
MorseRight, MorseNoTrans,
diff --git a/compute/pzunmlq_param.c b/compute/pzunmlq_param.c
index cb49ede28..49c481060 100644
--- a/compute/pzunmlq_param.c
+++ b/compute/pzunmlq_param.c
@@ -81,8 +81,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
#endif
/* Initialisation of tiles */
- tiles = (int*)malloc((qrtree->nt)*sizeof(int));
- memset( tiles, 0, (qrtree->nt)*sizeof(int) );
+ tiles = (int*)malloc((qrtree->mt)*sizeof(int));
+ memset( tiles, 0, (qrtree->mt)*sizeof(int) );
ws_worker *= sizeof(MORSE_Complex64_t);
ws_host *= sizeof(MORSE_Complex64_t);
--
GitLab