fix double free error in delAllRegexpsFromDictionary

1 files changed, 4 insertions, 2 deletions

diff --git a/src/ivy.c b/src/ivy.c
index 2dd3a90..d2ba229 100644
--- a/src/ivy.c
+++ b/src/ivy.c
@@ -1481,8 +1481,6 @@ static void delAllRegexpsFromDictionary ()
   for (msgSendDict=messSndByRegexp; msgSendDict ; msgSendDict=msgSendDict->hh.next) {
     /* on efface le binding */
     IvyBindingFree (msgSendDict->binding);
-    /* on efface la clef (regexp source) */
-    free (msgSendDict->regexp_src);
     /* pour chaque client abonne a cette regexp */
     IVY_LIST_EACH ( msgSendDict->clientList, client) { 
       freeClient (client);
@@ -1491,6 +1489,10 @@ static void delAllRegexpsFromDictionary ()
     IVY_LIST_EMPTY(msgSendDict->clientList);
     /* on enleve le couple regexp -> valeur */
     HASH_DEL(messSndByRegexp, msgSendDict);
+    /* on efface la clef (regexp source) */
+    free (msgSendDict->regexp_src);
+    /* on libčre la structure */
+    //    free (msgSendDict);
   }
 
 #ifdef OPENMP