diff --git a/compute/pzgelqfrh.c b/compute/pzgelqfrh.c index 0560903e64587c4f5d8eae41bf0a7f75978555c2..0fee71961a000b184ea3723471914f464e085546 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 2dbe8f83a54c4606c9d68150422a6bae95785f66..0bca71880c0936abb5a394b729a802e10af7017f 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 899e89b41a34550562ff3f8f0465aa9eb11280f6..32ab51de1ac869a407870f20bf1888c26a51365e 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 92a9003244d61ee99a5ca9b46b4d5051f4192bb2..8838be440eafaf5f6f5aed7efa04f26b4f119152 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 8d7e7ead6a895fc59359872c10154e47d2cc64ba..cb5d4f59c2a547407afbe186613c4dbf01fbbb34 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();