diff options
| author | drh <drh@noemail.net> | 2002-07-06 16:32:14 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2002-07-06 16:32:14 +0000 |
| commit | 0de8c11292fab66f5426cd42e882517fff498cc5 (patch) | |
| tree | f4a3450a49e40969a181392a70bd661a6eef6cbc /src/tclsqlite.c | |
| parent | 8e298f92f61c161ce128c0d2b520ddb17dbd9748 (diff) | |
| download | sqlite-0de8c11292fab66f5426cd42e882517fff498cc5.tar.gz sqlite-0de8c11292fab66f5426cd42e882517fff498cc5.zip | |
Prepare for the 2.5.5 release. (CVS 661)
FossilOrigin-Name: 00f83c2576f4a9689720d344788f66219c1f6827
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 8e6bc9717..652b2cd2e 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.34 2002/06/26 20:06:06 drh Exp $ +** $Id: tclsqlite.c,v 1.35 2002/07/06 16:32:15 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -267,7 +267,7 @@ static int DbBusyHandler(void *cd, const char *zTable, int nTries){ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ SqliteDb *pDb = (SqliteDb*)cd; int choice; - static char *DB_strs[] = { + static const char *DB_strs[] = { "busy", "changes", "close", "complete", "eval", "last_insert_rowid", "open_aux_file", "timeout", 0 @@ -703,7 +703,7 @@ int TCLSH_MAIN(int argc, char **argv){ TCL_GLOBAL_ONLY | TCL_LIST_ELEMENT | TCL_APPEND_VALUE); } if( Tcl_EvalFile(interp, argv[1])!=TCL_OK ){ - char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); + const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); if( zInfo==0 ) zInfo = interp->result; fprintf(stderr,"%s: %s\n", *argv, zInfo); return 1; |