database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-08 14:02:16 +03:00
Code Activity

Fix a ref-count problem in the TCL bindings. Ticket #2597. (CVS 4338)

Browse Source 
FossilOrigin-Name: 18a5babb72102f9a82cb24757612a8b683a3f995
This commit is contained in:
drh
2007-08-30 14:58:20 +00:00
parent c16d463085
commit f81fe71c2a
3 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/tclsqlite.c
View File

@@ -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