diff options
| author | drh <drh@noemail.net> | 2005-02-26 17:31:26 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2005-02-26 17:31:26 +0000 |
| commit | ccae6026e6b817121bee172fd9e29a6aa67ca8d6 (patch) | |
| tree | 240216cff1844d6779b6f7f31936ee1440444bcc /src/tclsqlite.c | |
| parent | 75308731329019295e4230dd179af84f307cfb1d (diff) | |
| download | sqlite-ccae6026e6b817121bee172fd9e29a6aa67ca8d6.tar.gz sqlite-ccae6026e6b817121bee172fd9e29a6aa67ca8d6.zip | |
Fix an assertion fault that can occur while autovacuuming a corrupt database
file. Add the SQLITE_OMIT_COMPLETE compile-time parameter. (CVS 2361)
FossilOrigin-Name: bb0e7e3857a06347b08d93553ac603e737322262
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 a5ef6106c..3196793e7 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.118 2005/01/25 04:27:55 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.119 2005/02/26 17:31:27 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -729,6 +729,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ ** built-in "info complete" command of Tcl. */ case DB_COMPLETE: { +#ifndef SQLITE_OMIT_COMPLETE Tcl_Obj *pResult; int isComplete; if( objc!=3 ){ @@ -738,6 +739,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ isComplete = sqlite3_complete( Tcl_GetStringFromObj(objv[2], 0) ); pResult = Tcl_GetObjResult(interp); Tcl_SetBooleanObj(pResult, isComplete); +#endif break; } |