diff options
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 |