diff options
author | danielk1977 <danielk1977@noemail.net> | 2007-10-23 08:17:48 +0000 |
---|---|---|
committer | danielk1977 <danielk1977@noemail.net> | 2007-10-23 08:17:48 +0000 |
commit | 191fadcf237e14721740e9ebf532aceff3497a3c (patch) | |
tree | e4ed97709156162568d01fc19ac1ed3440ccb3ef /src | |
parent | 1c1764ae6641a8b9ae7343944b11587f4238133d (diff) | |
download | sqlite-191fadcf237e14721740e9ebf532aceff3497a3c.tar.gz sqlite-191fadcf237e14721740e9ebf532aceff3497a3c.zip |
Fix an error message in the tcl interface. (CVS 4503)
FossilOrigin-Name: 2449e08069ef830f119203c4a3737d6756e73c63
Diffstat (limited to 'src')
-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 e81846e6b..2c32ca5ed 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.203 2007/09/14 16:20:01 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.204 2007/10/23 08:17:48 danielk1977 Exp $ */ #include "tcl.h" #include <errno.h> @@ -1073,7 +1073,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ } }else{ Tcl_AppendResult( interp, "bad option \"", - Tcl_GetStringFromObj(objv[0],0), "\": must be flush or size", 0); + Tcl_GetStringFromObj(objv[2],0), "\": must be flush or size", 0); return TCL_ERROR; } break; |