plugins/tcl/tcl_signals.c

changeset 10519
80801a34a246
parent 10504
eae130eefbfe
child 10597
41d2db9fefd5
--- a/plugins/tcl/tcl_signals.c	Sat Jan 15 16:53:55 2005 +0000
+++ b/plugins/tcl/tcl_signals.c	Mon Jan 17 00:33:30 2005 +0000
@@ -43,12 +43,17 @@
 
 void tcl_signal_handler_free(struct tcl_signal_handler *handler)
 {
+	int i;
+
 	if (handler == NULL)
 		return;
 
 	g_free(handler->signal);
-        if (handler->argnames != NULL)
+    if (handler->argnames != NULL) {
+		for (i = 0; i < handler->nnames; i++)
+			g_free(handler->argnames[i]);
 		g_free(handler->argnames);
+	}
 	Tcl_DecrRefCount(handler->proc);
 	g_free(handler);
 }

mercurial