diff options
| author | drh <drh@noemail.net> | 2004-07-26 12:24:22 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2004-07-26 12:24:22 +0000 |
| commit | 1211de3709ba86d03c6cc8f3f561e7492aef3b35 (patch) | |
| tree | b975897e6f411a32e247bba1f7303b9dd5f5e15e /src/tclsqlite.c | |
| parent | be5c89acd0f8b20215199d2337d6f1b1a4a3e5eb (diff) | |
| download | sqlite-1211de3709ba86d03c6cc8f3f561e7492aef3b35.tar.gz sqlite-1211de3709ba86d03c6cc8f3f561e7492aef3b35.zip | |
Fix problems for 64-bit machines and when SQLITE_OMIT_AUTHORIZATION is defined. (CVS 1868)
FossilOrigin-Name: e3cad1ab6226089265b4d15c6fc67cc33a31425f
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 6e92f404e..ab6821e6f 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.97 2004/07/23 00:01:39 drh Exp $ +** $Id: tclsqlite.c,v 1.98 2004/07/26 12:24:23 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -437,6 +437,10 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ ** callback string is returned. */ case DB_AUTHORIZER: { +#ifdef SQLITE_OMIT_AUTHORIZATION + Tcl_AppendResult(interp, "authorization not available in this build", 0); + return TCL_ERROR; +#else if( objc>3 ){ Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); return TCL_ERROR; @@ -457,15 +461,14 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ }else{ pDb->zAuth = 0; } -#ifndef SQLITE_OMIT_AUTHORIZATION if( pDb->zAuth ){ pDb->interp = interp; sqlite3_set_authorizer(pDb->db, auth_callback, pDb); }else{ sqlite3_set_authorizer(pDb->db, 0, 0); } -#endif } +#endif break; } |