diff options
| author | drh <drh@noemail.net> | 2012-03-20 15:10:42 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2012-03-20 15:10:42 +0000 |
| commit | d878cab51a7563e11ae82ea824fc5941b7cdf2dc (patch) | |
| tree | 04419b8f9fed746d08fb41b2ecffe6748d1cf282 /src/tclsqlite.c | |
| parent | 7b7c359fe6802552af23cb5eb9a60666c37e878b (diff) | |
| download | sqlite-d878cab51a7563e11ae82ea824fc5941b7cdf2dc.tar.gz sqlite-d878cab51a7563e11ae82ea824fc5941b7cdf2dc.zip | |
Remove the _SafeInit() entry points from the TCL interface. They have long
been no-ops. Removing them completely avoids confusion as to why they
don't work.
FossilOrigin-Name: 0fb26c7bfa7a4bb1503f90fd6f5b9c70f444665b
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 967b1a004..9161088e0 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -3108,23 +3108,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 |