From 67f6655b861051e368882a07d4bc9d713747bf29 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Tue, 26 Mar 2002 09:25:46 +0000
Subject: Correction d'un core dump du � une non d�allocation de l'entr�e d'un
 label format dans la table de hash en cas d'erreur.

---
 generic/Attrs.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'generic')

diff --git a/generic/Attrs.c b/generic/Attrs.c
index c3e48ad..175a0ee 100644
--- a/generic/Attrs.c
+++ b/generic/Attrs.c
@@ -325,6 +325,7 @@ LabelFormatCreate(Tcl_Interp	*interp,
       Tcl_AppendResult(interp, "invalid label format specification \"",
 		       ptr, "\"", NULL);
     lf_error:
+      Tcl_DeleteHashEntry(entry);
       ZnListFree(fields);
       return NULL;
     }
-- 
cgit v1.1