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

Reset TCL results when onecolumn or eval methods have no reply.

Browse Source 
Ticket #1887. (CVS 3331)

FossilOrigin-Name: 9c6090c609afa9906029ed4ba22375f5bee058c4
This commit is contained in:
drh
2006-07-12 00:18:40 +00:00
parent 76fe8032c1
commit 050be3294a
3 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/tclsqlite.c
View File

@@ -11,7 +11,7 @@
*************************************************************************
** A TCL Interface to SQLite
**
** $Id: tclsqlite.c,v 1.163 2006/07/10 21:15:52 drh Exp $
** $Id: tclsqlite.c,v 1.164 2006/07/12 00:18:41 drh Exp $
*/
#ifndef NO_TCL /* Omit this whole file if TCL is unavailable */
@@ -1568,6 +1568,8 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
Tcl_SetObjResult(interp, pRet);
}
Tcl_DecrRefCount(pRet);
}else if( rc==TCL_OK ){
Tcl_ResetResult(interp);
}
break;
}