From 9c66f2efe92c41679bdae68387c64dd1b6400be4 Mon Sep 17 00:00:00 2001 From: das Date: Fri, 12 May 2006 18:12:07 +0000 Subject: * generic/tclEvent.c (HandleBgErrors): fix leak. [Coverity issue 86] --- ChangeLog | 34 +++++++++++++++++++--------------- generic/tclEvent.c | 3 ++- 2 files changed, 21 insertions(+), 16 deletions(-) diff --git a/ChangeLog b/ChangeLog index 64c44f3..e0a91a3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,25 +1,29 @@ +2006-05-13 Daniel Steffen + + * generic/tclEvent.c (HandleBgErrors): fix leak. [Coverity issue 86] + 2006-05-05 Don Porter - * generic/tclMain.c (Tcl_Main): Corrected flaw that required - * tests/main.test: (Tcl_Main-4.5): processing of one interactive - command before passing control to the loop routine registered with - Tcl_SetMainLoop() [Bug 1481986]. + * generic/tclMain.c (Tcl_Main): Corrected flaw that required + * tests/main.test: (Tcl_Main-4.5): processing of one interactive + command before passing control to the loop routine registered with + Tcl_SetMainLoop() [Bug 1481986]. 2006-05-04 Don Porter - * README: Bump version number to 8.5a5 - * generic/tcl.h: - * tools/tcl.wse.in: - * unix/configure.in: - * unix/tcl.spec: - * win/README.binary: - * win/configure.in: + * README: Bump version number to 8.5a5 + * generic/tcl.h: + * tools/tcl.wse.in: + * unix/configure.in: + * unix/tcl.spec: + * win/README.binary: + * win/configure.in: - * unix/configure: autoconf-2.59 - * win/configure: + * unix/configure: autoconf-2.59 + * win/configure: - * generic/tclBasic.c (ExprSrandFunc): Restore acceptance of wide/big - * doc/mathfunc.n: integer values by srand() [Bug 1480509]. + * generic/tclBasic.c (ExprSrandFunc): Restore acceptance of wide/big + * doc/mathfunc.n: integer values by srand() [Bug 1480509]. 2006-04-26 Don Porter diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 4541309..907ce15 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEvent.c,v 1.66 2006/03/10 17:31:29 vasiljevic Exp $ + * RCS: @(#) $Id: tclEvent.c,v 1.67 2006/05/12 18:12:07 das Exp $ */ #include "tclInt.h" @@ -221,6 +221,7 @@ HandleBgErrors( Tcl_DecrRefCount(errPtr->returnOpts); assocPtr->firstBgPtr = errPtr->nextPtr; ckfree((char *) errPtr); + ckfree((char *) tempObjv); if (code == TCL_BREAK) { /* -- cgit v0.12