diff options
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 ebb8c0f7c..4f1a6c928 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.208 2008/02/13 18:25:27 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.209 2008/02/18 22:24:58 drh Exp $ */ #include "tcl.h" #include <errno.h> @@ -1702,9 +1702,9 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ switch( sqlite3_column_type(pStmt, i) ){ case SQLITE_BLOB: { int bytes = sqlite3_column_bytes(pStmt, i); - char *zBlob = sqlite3_column_blob(pStmt, i); + const char *zBlob = sqlite3_column_blob(pStmt, i); if( !zBlob ) bytes = 0; - pVal = Tcl_NewByteArrayObj(zBlob, bytes); + pVal = Tcl_NewByteArrayObj((u8*)zBlob, bytes); break; } case SQLITE_INTEGER: { |