From d52bbacf5ca12f172af3e17f62abf515ca281c46 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Wed, 14 Jun 2017 16:38:22 +0200
Subject: [PATCH] Free tiles
---
compute/pzgelqfrh.c | 4 ++--
compute/pzunglq_param.c | 2 ++
compute/pzungqr_param.c | 2 ++
compute/pzunmlq_param.c | 3 +++
compute/pzunmqr_param.c | 2 ++
5 files changed, 11 insertions(+), 2 deletions(-)
diff --git a/compute/pzgelqfrh.c b/compute/pzgelqfrh.c
index 0560903e6..0fee71961 100644
--- a/compute/pzgelqfrh.c
+++ b/compute/pzgelqfrh.c
@@ -30,8 +30,8 @@
**/
#include "control/common.h"
-#define A(m,n) A, (m), (n)
-#define T(m,n) T, (m), (n)
+#define A(m,n) A, (m), (n)
+#define T(m,n) T, (m), (n)
#define T2(m,n) T, (m), (n)+A->nt
#if defined(CHAMELEON_COPY_DIAG)
#define DIAG(m,n) DIAG, ((n)/BS), 0
diff --git a/compute/pzunglq_param.c b/compute/pzunglq_param.c
index 2dbe8f83a..0bca71880 100644
--- a/compute/pzunglq_param.c
+++ b/compute/pzunglq_param.c
@@ -168,6 +168,8 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
}
RUNTIME_iteration_pop(morse);
}
+
+ free(tiles);
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_dataflush_all();
diff --git a/compute/pzungqr_param.c b/compute/pzungqr_param.c
index 899e89b41..32ab51de1 100644
--- a/compute/pzungqr_param.c
+++ b/compute/pzungqr_param.c
@@ -174,6 +174,8 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
}
RUNTIME_iteration_pop(morse);
}
+
+ free(tiles);
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_dataflush_all();
diff --git a/compute/pzunmlq_param.c b/compute/pzunmlq_param.c
index 92a900324..8838be440 100644
--- a/compute/pzunmlq_param.c
+++ b/compute/pzunmlq_param.c
@@ -431,8 +431,11 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
}
}
}
+
+ free(tiles);
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_dataflush_all();
+
(void)D;
}
diff --git a/compute/pzunmqr_param.c b/compute/pzunmqr_param.c
index 8d7e7ead6..cb5d4f59c 100644
--- a/compute/pzunmqr_param.c
+++ b/compute/pzunmqr_param.c
@@ -430,6 +430,8 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
}
}
}
+
+ free(tiles);
RUNTIME_options_ws_free(&options);
RUNTIME_options_finalize(&options, morse);
MORSE_TASK_dataflush_all();
--
GitLab