diff options
| author | drh <drh@noemail.net> | 2004-05-26 23:25:30 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2004-05-26 23:25:30 +0000 |
| commit | 4f26d6c42911f7d6ee6daea5332bac4a128e7861 (patch) | |
| tree | f1bba5c42940c0e97cf8a5fcd73cac46b65c5429 /src/tclsqlite.c | |
| parent | f9b596ebc05ff3365bed6b8dafb02d251c652889 (diff) | |
| download | sqlite-4f26d6c42911f7d6ee6daea5332bac4a128e7861.tar.gz sqlite-4f26d6c42911f7d6ee6daea5332bac4a128e7861.zip | |
Refactoring of the vdbe Mem functions and the APIs that deal with them.
The code will not compile in its current state. (CVS 1465)
FossilOrigin-Name: bba6684d502ba1ecd9614d2470ec94296e3c07c2
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 a1a1a44c9..33355ba2b 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.72 2004/05/26 16:54:46 drh Exp $ +** $Id: tclsqlite.c,v 1.73 2004/05/26 23:25:31 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -391,7 +391,7 @@ static void tclSqlFunc(sqlite3_context *context, int argc, sqlite3_value **argv) if( SQLITE3_NULL==sqlite3_value_type(argv[i]) ){ Tcl_DStringAppendElement(&cmd, ""); }else{ - Tcl_DStringAppendElement(&cmd, sqlite3_value_data(argv[i])); + Tcl_DStringAppendElement(&cmd, sqlite3_value_text(argv[i])); } } rc = Tcl_Eval(p->interp, Tcl_DStringValue(&cmd)); |