diff options
author | drh <drh@noemail.net> | 2005-03-31 18:26:20 +0000 |
---|---|---|
committer | drh <drh@noemail.net> | 2005-03-31 18:26:20 +0000 |
commit | 3ced14a61635c23f222432dde1cf5e1d7c298945 (patch) | |
tree | 25d69cf643c6b583bd8626d1cd15361cd025abb2 /src/tclsqlite.c | |
parent | 3eb8db90ba47b2b89f14e9edd5dbc84f586a1b51 (diff) | |
download | sqlite-3ced14a61635c23f222432dde1cf5e1d7c298945.tar.gz sqlite-3ced14a61635c23f222432dde1cf5e1d7c298945.zip |
Fix a memory leak in the TCL bindings. (CVS 2435)
FossilOrigin-Name: c31ea6332f53d361be864554b83662d3fc0d52f7
Diffstat (limited to 'src/tclsqlite.c')
-rw-r--r-- | src/tclsqlite.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 3196793e7..5b5edfe6d 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.119 2005/02/26 17:31:27 drh Exp $ +** $Id: tclsqlite.c,v 1.120 2005/03/31 18:26:21 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -938,11 +938,14 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ */ if( pArray ){ Tcl_Obj *pColList = Tcl_NewObj(); + Tcl_Obj *pStar = Tcl_NewStringObj("*", -1); Tcl_IncrRefCount(pColList); for(i=0; i<nCol; i++){ Tcl_ListObjAppendElement(interp, pColList, apColName[i]); } - Tcl_ObjSetVar2(interp, pArray, Tcl_NewStringObj("*",-1), pColList,0); + Tcl_ObjSetVar2(interp, pArray, pStar, pColList,0); + Tcl_DecrRefCount(pColList); + Tcl_DecrRefCount(pStar); } /* Execute the SQL |