diff options
| author | drh <drh@noemail.net> | 2006-12-19 18:57:11 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2006-12-19 18:57:11 +0000 |
| commit | f533acc0a7331f4236c6b0938561c9a6d6b0077c (patch) | |
| tree | b31d6136628e01890b2500bb260613f183834402 /src/tclsqlite.c | |
| parent | cf68ae91eac8ba0310cc9425c55a19fe1b672848 (diff) | |
| download | sqlite-f533acc0a7331f4236c6b0938561c9a6d6b0077c.tar.gz sqlite-f533acc0a7331f4236c6b0938561c9a6d6b0077c.zip | |
Build without warnings and pass all tests with SQLITE_OMIT_LOAD_EXTENSION.
Ticket #2113. (CVS 3534)
FossilOrigin-Name: c3d118b40811b201e4a98b62549c5439d7d5098d
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index ee13a9481..cd48cf5d4 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.174 2006/12/19 18:46:09 drh Exp $ +** $Id: tclsqlite.c,v 1.175 2006/12/19 18:57:11 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -1173,6 +1173,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ ** default. */ case DB_ENABLE_LOAD_EXTENSION: { +#ifndef SQLITE_OMIT_LOAD_EXTENSION int onoff; if( objc!=3 ){ Tcl_WrongNumArgs(interp, 2, objv, "BOOLEAN"); @@ -1183,6 +1184,11 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ } sqlite3_enable_load_extension(pDb->db, onoff); break; +#else + Tcl_AppendResult(interp, "extension loading is turned off at compile-time", + 0); + return TCL_ERROR; +#endif } /* |