diff options
| author | drh <drh@noemail.net> | 2012-03-30 17:30:33 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2012-03-30 17:30:33 +0000 |
| commit | 108606837ebccbf9a5c4cf2c4ac60d29d04b9df6 (patch) | |
| tree | 24e9ca4d1cc5723e0f9a757c6deebb24731ffd6f /src/tclsqlite.c | |
| parent | 6d972c1b982c4b128a4db93a0c2debf194ca76d1 (diff) | |
| parent | 00fa55d7da3ff31b5c354884b8e507f50339b756 (diff) | |
| download | sqlite-108606837ebccbf9a5c4cf2c4ac60d29d04b9df6.tar.gz sqlite-108606837ebccbf9a5c4cf2c4ac60d29d04b9df6.zip | |
Merge all recent trunk changes into the sessions branch.
FossilOrigin-Name: fb9b9987de965e194fef56bca563ee65c49f0950
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index f2a517c8f..cc928ff6e 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -3254,23 +3254,19 @@ EXTERN int Sqlite3_Init(Tcl_Interp *interp){ return TCL_OK; } EXTERN int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } -EXTERN int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } -EXTERN int Tclsqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } EXTERN int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } EXTERN int Tclsqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } -EXTERN int Sqlite3_SafeUnload(Tcl_Interp *interp, int flags){ return TCL_OK; } -EXTERN int Tclsqlite3_SafeUnload(Tcl_Interp *interp, int flags){ return TCL_OK;} +/* Because it accesses the file-system and uses persistent state, SQLite +** is not considered appropriate for safe interpreters. Hence, we deliberately +** omit the _SafeInit() interfaces. +*/ #ifndef SQLITE_3_SUFFIX_ONLY int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } int Tclsqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } -int Sqlite_SafeInit(Tcl_Interp *interp){ return TCL_OK; } -int Tclsqlite_SafeInit(Tcl_Interp *interp){ return TCL_OK; } int Sqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } int Tclsqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } -int Sqlite_SafeUnload(Tcl_Interp *interp, int flags){ return TCL_OK; } -int Tclsqlite_SafeUnload(Tcl_Interp *interp, int flags){ return TCL_OK;} #endif #ifdef TCLSH |