diff options
| author | drh <drh@noemail.net> | 2007-08-30 14:58:20 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2007-08-30 14:58:20 +0000 |
| commit | f81fe71c2a8ce4a05541fb18abad544d771f9a3c (patch) | |
| tree | 898a5a6e66790d7a9329f1625ab86391647f773d /src/tclsqlite.c | |
| parent | c16d463085d7aa5078f41906d6f27ef789fb02f9 (diff) | |
| download | sqlite-f81fe71c2a8ce4a05541fb18abad544d771f9a3c.tar.gz sqlite-f81fe71c2a8ce4a05541fb18abad544d771f9a3c.zip | |
Fix a ref-count problem in the TCL bindings. Ticket #2597. (CVS 4338)
FossilOrigin-Name: 18a5babb72102f9a82cb24757612a8b683a3f995
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 5a65ebe50..52ffc88c6 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.198 2007/08/22 20:18:22 drh Exp $ +** $Id: tclsqlite.c,v 1.199 2007/08/30 14:58:20 drh Exp $ */ #include "tcl.h" #include <errno.h> @@ -1648,7 +1648,6 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ } Tcl_ObjSetVar2(interp, pArray, pStar, pColList,0); Tcl_DecrRefCount(pColList); - Tcl_DecrRefCount(pStar); } /* Execute the SQL |