diff options
| author | danielk1977 <danielk1977@noemail.net> | 2004-06-29 13:41:21 +0000 |
|---|---|---|
| committer | danielk1977 <danielk1977@noemail.net> | 2004-06-29 13:41:21 +0000 |
| commit | c8c1158be296670768683878da118241d6d86f07 (patch) | |
| tree | fadca078d017dc19f6d2d6137f2d10f96facf5bf /src/tclsqlite.c | |
| parent | 312d6b36e389a7dbf6022c4eb1df28cda42cea51 (diff) | |
| download | sqlite-c8c1158be296670768683878da118241d6d86f07.tar.gz sqlite-c8c1158be296670768683878da118241d6d86f07.zip | |
Ensure the tcl interface returns an error when sqlite3_create_function()
fails. (CVS 1764)
FossilOrigin-Name: 357a82cd224e33e11870ad7c2f934c27af682881
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index a73a88050..a1c0bb3cb 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.92 2004/06/29 12:39:08 drh Exp $ +** $Id: tclsqlite.c,v 1.93 2004/06/29 13:41:21 danielk1977 Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -813,8 +813,9 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ pFunc->zScript = (char*)&pFunc[1]; pDb->pFunc = pFunc; strcpy(pFunc->zScript, zScript); - sqlite3_create_function(pDb->db, zName, -1, SQLITE_UTF8, + rc = sqlite3_create_function(pDb->db, zName, -1, SQLITE_UTF8, pFunc, tclSqlFunc, 0, 0); + if( rc!=SQLITE_OK ) rc = TCL_ERROR; break; } |