diff options
| author | drh <drh@noemail.net> | 2008-04-16 00:28:13 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2008-04-16 00:28:13 +0000 |
| commit | b08c2a72ea08ee59190c871da81ac69dabe3a2ce (patch) | |
| tree | 8d37cb9f7d5c68f4ec3e0db4e72d9099a7891646 /src/tclsqlite.c | |
| parent | d190be853978155ca7c8442058a87d59bed16c41 (diff) | |
| download | sqlite-b08c2a72ea08ee59190c871da81ac69dabe3a2ce.tar.gz sqlite-b08c2a72ea08ee59190c871da81ac69dabe3a2ce.zip | |
Back out the zero-terminator optimization introduced in check-in (4915).
Ticket #3056. (CVS 5015)
FossilOrigin-Name: cce8deae2d556916e2817e0cb9748dceb162085d
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 d9a3fa44c..4818d898f 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.215 2008/04/10 14:51:01 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.216 2008/04/16 00:28:14 drh Exp $ */ #include "tcl.h" #include <errno.h> @@ -1670,7 +1670,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ sqlite3_bind_int64(pStmt, i, v); }else{ data = (unsigned char *)Tcl_GetStringFromObj(pVar, &n); - sqlite3_bind_text(pStmt, i, (char *)data, n+1, SQLITE_STATIC); + sqlite3_bind_text(pStmt, i, (char *)data, n, SQLITE_STATIC); Tcl_IncrRefCount(pVar); apParm[nParm++] = pVar; } |