diff options
| author | danielk1977 <danielk1977@noemail.net> | 2004-06-14 11:43:46 +0000 |
|---|---|---|
| committer | danielk1977 <danielk1977@noemail.net> | 2004-06-14 11:43:46 +0000 |
| commit | f3ce83f5f6452ea9e7ca67891e901d858e72efe1 (patch) | |
| tree | 56443bd097bbcaea198afa661b4ac1ce8143e3f3 /src/tclsqlite.c | |
| parent | 66b978a415e1eea1d4ac0ac4d6031264083fd5f7 (diff) | |
| download | sqlite-f3ce83f5f6452ea9e7ca67891e901d858e72efe1.tar.gz sqlite-f3ce83f5f6452ea9e7ca67891e901d858e72efe1.zip | |
Have the TCL 'errorcode' interface call sqlite3_errcode(). (CVS 1589)
FossilOrigin-Name: f4b4df6514c19b0c23b399142749a7e4a20d0f70
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 03edc162a..866c80586 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.85 2004/06/12 09:25:22 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.86 2004/06/14 11:43:46 danielk1977 Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -659,7 +659,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ ** call to sqlite3_exec(). */ case DB_ERRORCODE: { - Tcl_SetObjResult(interp, Tcl_NewIntObj(pDb->rc)); + Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_errcode(pDb->db))); break; } |