diff options
| author | drh <drh@noemail.net> | 2004-08-24 15:23:34 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2004-08-24 15:23:34 +0000 |
| commit | 9d74b4c51674d388cfcf60f77d725c757f4a1f9b (patch) | |
| tree | ea98d02cc16608f404fa07ebc5c9e3de5e97d8c7 /src/tclsqlite.c | |
| parent | fdb38064b02ee1cbd0520952e15431f0ff501c90 (diff) | |
| download | sqlite-9d74b4c51674d388cfcf60f77d725c757f4a1f9b.tar.gz sqlite-9d74b4c51674d388cfcf60f77d725c757f4a1f9b.zip | |
Fix a bug in the parsing of wildcards that begin with '$'. (CVS 1901)
FossilOrigin-Name: 054dd8901dbfe64a8f61e7b99e23512057bad99a
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 9fc5d6cef..8d52ac319 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.100 2004/08/20 18:34:20 drh Exp $ +** $Id: tclsqlite.c,v 1.101 2004/08/24 15:23:34 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -693,9 +693,9 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ ** that have the same name as the fields extracted by the query. */ case DB_EVAL: { - char const *zSql; - char const *zLeft; - sqlite3_stmt *pStmt; + char const *zSql; /* Next SQL statement to execute */ + char const *zLeft; /* What is left after first stmt in zSql */ + sqlite3_stmt *pStmt; /* Compiled SQL statment */ Tcl_Obj *pArray; /* Name of array into which results are written */ Tcl_Obj *pScript; /* Script to run for each result set */ |