diff options
| author | danielk1977 <danielk1977@noemail.net> | 2004-05-25 11:47:24 +0000 |
|---|---|---|
| committer | danielk1977 <danielk1977@noemail.net> | 2004-05-25 11:47:24 +0000 |
| commit | 7e18c259fed73572745907c1b9c63fe098ee0515 (patch) | |
| tree | caecb6ec0c538dd995773fea4de7c85616c1df51 /src/tclsqlite.c | |
| parent | 88208050b6db804785ac32386e0370c9729cd785 (diff) | |
| download | sqlite-7e18c259fed73572745907c1b9c63fe098ee0515.tar.gz sqlite-7e18c259fed73572745907c1b9c63fe098ee0515.zip | |
Use the new API for returning values and errors from user functions. (CVS 1453)
FossilOrigin-Name: 4eccae03b4a7f37804fea30416579787c3584bb2
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 cf60288cf..a2b4983bd 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.67 2004/05/24 12:39:02 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.68 2004/05/25 11:47:26 danielk1977 Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -396,9 +396,9 @@ static void tclSqlFunc(sqlite_func *context, int argc, sqlite3_value **argv){ } rc = Tcl_Eval(p->interp, Tcl_DStringValue(&cmd)); if( rc ){ - sqlite3_set_result_error(context, Tcl_GetStringResult(p->interp), -1); + sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); }else{ - sqlite3_set_result_string(context, Tcl_GetStringResult(p->interp), -1); + sqlite3_result_text(context, Tcl_GetStringResult(p->interp), -1, 1); } } #ifndef SQLITE_OMIT_AUTHORIZATION |