aboutsummaryrefslogtreecommitdiff
path: root/src/tclsqlite.c
diff options
context:
space:
mode:
authordrh <drh@noemail.net>2005-03-31 18:26:20 +0000
committerdrh <drh@noemail.net>2005-03-31 18:26:20 +0000
commit3ced14a61635c23f222432dde1cf5e1d7c298945 (patch)
tree25d69cf643c6b583bd8626d1cd15361cd025abb2 /src/tclsqlite.c
parent3eb8db90ba47b2b89f14e9edd5dbc84f586a1b51 (diff)
downloadsqlite-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.c7
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