diff options
| author | drh <drh@noemail.net> | 2016-02-13 18:54:10 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2016-02-13 18:54:10 +0000 |
| commit | e75a9eb9bbf2e2934e292b475088f447191f9cf4 (patch) | |
| tree | c48baed2c8b2c54783bcc17ef1fefd2e0e7bb909 /src/tclsqlite.c | |
| parent | 53ff9c2972aed305e67f3a28375c35977bb17534 (diff) | |
| download | sqlite-e75a9eb9bbf2e2934e292b475088f447191f9cf4.tar.gz sqlite-e75a9eb9bbf2e2934e292b475088f447191f9cf4.zip | |
Provide Sqlite3_SafeInit() and Sqlite3_SafeUnload() entry points on the TCL
interface, but have the always return TCL_ERROR, because the non-standard
TCL builds on Macs require this.
FossilOrigin-Name: 37ec3015ec95035d31e3672f520908a0d36c9d67
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index aa913ca7c..77da6eef5 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -3151,9 +3151,13 @@ EXTERN int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } EXTERN int Tclsqlite3_Unload(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. +** is not considered appropriate for safe interpreters. Hence, we cause +** the _SafeInit() interfaces return TCL_ERROR. */ +EXTERN int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_ERROR; } +EXTERN int Sqlite3_SafeUnload(Tcl_Interp *interp, int flags){return TCL_ERROR;} + + #ifndef SQLITE_3_SUFFIX_ONLY int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } |