diff options
| author | danielk1977 <danielk1977@noemail.net> | 2004-05-26 06:18:37 +0000 |
|---|---|---|
| committer | danielk1977 <danielk1977@noemail.net> | 2004-05-26 06:18:37 +0000 |
| commit | 6590493d53af17750a99cd9483e210be1684d252 (patch) | |
| tree | d5c582c6af835fd44d10661e91e945dd85dc7aad /src/tclsqlite.c | |
| parent | fc57d7bf72f183c946f0a168b1a178d7bce3f827 (diff) | |
| download | sqlite-6590493d53af17750a99cd9483e210be1684d252.tar.gz sqlite-6590493d53af17750a99cd9483e210be1684d252.zip | |
Use the new form of the sqlite3_create_function() API. (CVS 1460)
FossilOrigin-Name: 0317bef4b0c219ca2888c90553201e53230fb360
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 0b9437dda..877ee1056 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.70 2004/05/26 02:04:57 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.71 2004/05/26 06:18:38 danielk1977 Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -863,7 +863,7 @@ 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, tclSqlFunc, pFunc); + sqlite3_create_function(pDb->db, zName, -1, 0, 0, pFunc, tclSqlFunc, 0, 0); sqlite3_function_type(pDb->db, zName, SQLITE_NUMERIC); break; } |