database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-08 14:02:16 +03:00
Code Activity

A couple of test cases and fixes for blob literals. (CVS 1474)

Browse Source 
FossilOrigin-Name: 6d552af67cf6fa6935373ba39de5c47ebf613eb9
This commit is contained in:
danielk1977
2004-05-27 13:35:19 +00:00
parent 30ccda1006
commit 3fd0a736bf
8 changed files with 48 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/tclsqlite.c
View File

@@ -11,7 +11,7 @@
*************************************************************************
** A TCL Interface to SQLite
**
** $Id: tclsqlite.c,v 1.74 2004/05/27 12:11:32 danielk1977 Exp $
** $Id: tclsqlite.c,v 1.75 2004/05/27 13:35:20 danielk1977 Exp $
*/
#ifndef NO_TCL /* Omit this whole file if TCL is unavailable */
@@ -815,10 +815,8 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
if( SQLITE3_BLOB!=sqlite3_column_type(pStmt, i) ){
pVal = Tcl_NewStringObj(sqlite3_column_text(pStmt, i), -1);
}else{
pVal = Tcl_NewByteArrayObj(
sqlite3_column_blob(pStmt, i),
sqlite3_column_bytes(pStmt, i)
);
int bytes = sqlite3_column_bytes(pStmt, i);
pVal = Tcl_NewByteArrayObj(sqlite3_column_blob(pStmt, i), bytes);
}
if( objc==5 ){