diff options
| author | danielk1977 <danielk1977@noemail.net> | 2004-06-12 09:25:12 +0000 |
|---|---|---|
| committer | danielk1977 <danielk1977@noemail.net> | 2004-06-12 09:25:12 +0000 |
| commit | d8123366c4c3a933225eb34e58256098791bda9c (patch) | |
| tree | 08c75e5e458d993a99da423a54bb5e03fbc07820 /src/tclsqlite.c | |
| parent | 3cde3bb0da88b91aa66d02607e663e44ee091bbb (diff) | |
| download | sqlite-d8123366c4c3a933225eb34e58256098791bda9c.tar.gz sqlite-d8123366c4c3a933225eb34e58256098791bda9c.zip | |
(1) Modifications to the user-function interface and (2) Internal changes
to automatically created indices. (CVS 1575)
FossilOrigin-Name: 5903f53828b5d282b33e27813417e4317c9ecf0b
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index c0b751a60..03edc162a 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.84 2004/06/12 01:43:27 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.85 2004/06/12 09:25:22 danielk1977 Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -277,7 +277,8 @@ static void tclSqlFunc(sqlite3_context *context, int argc, sqlite3_value **argv) if( rc ){ sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); }else{ - sqlite3_result_text(context, Tcl_GetStringResult(p->interp), -1, 1); + sqlite3_result_text(context, Tcl_GetStringResult(p->interp), -1, + SQLITE_TRANSIENT); } } #ifndef SQLITE_OMIT_AUTHORIZATION @@ -784,7 +785,8 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ pFunc->pNext = pDb->pFunc; pFunc->zScript = (char*)&pFunc[1]; strcpy(pFunc->zScript, zScript); - sqlite3_create_function(pDb->db, zName, -1, 0, 0, pFunc, tclSqlFunc, 0, 0); + sqlite3_create_function(pDb->db, zName, -1, SQLITE_UTF8, 0, + pFunc, tclSqlFunc, 0, 0); break; } |