diff options
| author | drh <drh@noemail.net> | 2007-11-12 17:56:42 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2007-11-12 17:56:42 +0000 |
| commit | 1c96cac1cc0845967e7017276236db06e4d4668e (patch) | |
| tree | 7312ef49647f3cbc839b757b866c971807d6fe81 /src/tclsqlite.c | |
| parent | 0318d4414d0ec069a4e4fcdfc0af777f98d8229c (diff) | |
| download | sqlite-1c96cac1cc0845967e7017276236db06e4d4668e.tar.gz sqlite-1c96cac1cc0845967e7017276236db06e4d4668e.zip | |
Another attempt at fixing a memory leak in the TCL interface.
See check-in (4338) for the first attempt. Ticket #2597. (CVS 4540)
FossilOrigin-Name: 68a43c99f1b02b8a93bfdcd5c8426b2b4199d68f
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 2c32ca5ed..df7f440bd 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -12,7 +12,7 @@ ** A TCL Interface to SQLite. Append this file to sqlite3.c and ** compile the whole thing to build a TCL-enabled version of SQLite. ** -** $Id: tclsqlite.c,v 1.204 2007/10/23 08:17:48 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.205 2007/11/12 17:56:43 drh Exp $ */ #include "tcl.h" #include <errno.h> @@ -1646,8 +1646,10 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ for(i=0; i<nCol; i++){ Tcl_ListObjAppendElement(interp, pColList, apColName[i]); } + Tcl_IncrRefCount(pStar); Tcl_ObjSetVar2(interp, pArray, pStar, pColList,0); Tcl_DecrRefCount(pColList); + Tcl_DecrRefCount(pStar); } /* Execute the SQL |