From 7642d336d14e4dedde7fe4dd5562551309981318 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 31 Mar 2021 01:52:43 +0200
Subject: [PATCH] Fixed memory leak

---
 src/qmckl_context.org | 1 +
 src/qmckl_memory.org  | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/qmckl_context.org b/src/qmckl_context.org
index fa0aea0..c2d660e 100644
--- a/src/qmckl_context.org
+++ b/src/qmckl_context.org
@@ -203,6 +203,7 @@ qmckl_context qmckl_context_create() {
     const size_t size = 128L;
     qmckl_memory_info_struct * new_array = calloc(size, sizeof(qmckl_memory_info_struct));
     if (new_array == NULL) {
+      free(ctx);
       return QMCKL_NULL_CONTEXT; 
     }
     memset( &(new_array[0]), 0, size * sizeof(qmckl_memory_info_struct) );
diff --git a/src/qmckl_memory.org b/src/qmckl_memory.org
index 240b28b..d9a4657 100644
--- a/src/qmckl_memory.org
+++ b/src/qmckl_memory.org
@@ -126,6 +126,7 @@ void* qmckl_malloc(qmckl_context context, const qmckl_memory_info_struct info) {
                                                           sizeof(qmckl_memory_info_struct));
       if (new_array == NULL) {
         qmckl_unlock(context);
+        free(pointer);
         return NULL;
       }