diff options
| author | drh <> | 2025-01-30 16:00:28 +0000 |
|---|---|---|
| committer | drh <> | 2025-01-30 16:00:28 +0000 |
| commit | 000e39e9a891e2559c8194c2d2f0a30d99782f70 (patch) | |
| tree | 6897f8ed507bd9e6f77e4c444398b814c0ab5c10 /src/tclsqlite.c | |
| parent | 8dacf71043d9ed61f32a5a643b89cea8460254a3 (diff) | |
| download | sqlite-000e39e9a891e2559c8194c2d2f0a30d99782f70.tar.gz sqlite-000e39e9a891e2559c8194c2d2f0a30d99782f70.zip | |
Improvements to the TCL interface for Tcl9 as suggested by Jan Nijtmans.
FossilOrigin-Name: d76c5db866de2732b68401a4c3e39acddc7a99bed965160c1796477c062b478a
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 76c9ef75c..2f12f7f67 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -4021,7 +4021,9 @@ EXTERN int Tclsqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } EXTERN int Sqlite_SafeInit(Tcl_Interp *interp){ return TCL_ERROR; } EXTERN int Sqlite_SafeUnload(Tcl_Interp *interp, int flags){return TCL_ERROR;} -/* Also variants with a lowercase "s" */ +/* Also variants with a lowercase "s". I'm told that these are +** deprecated in Tcl9, but they continue to be included for backwards +** compatibility. */ EXTERN int sqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp);} EXTERN int sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp);} |