Changes to allow libsqlite3.a and libsqlite.a to be both linked into the

same program at the same time. (CVS 1621)

FossilOrigin-Name: 2590fffcaa92adc619f7a927d2b5169d8dfef50a

1 files changed, 7 insertions, 7 deletions

diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 866c80586..869e8c0e3 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -11,7 +11,7 @@
 *************************************************************************
 ** A TCL Interface to SQLite
 **
-** $Id: tclsqlite.c,v 1.86 2004/06/14 11:43:46 danielk1977 Exp $
+** $Id: tclsqlite.c,v 1.87 2004/06/18 17:10:17 drh Exp $
 */
 #ifndef NO_TCL     /* Omit this whole file if TCL is unavailable */
 
@@ -1109,22 +1109,22 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
 ** used to open a new SQLite database.  See the DbMain() routine above
 ** for additional information.
 */
-int Sqlite_Init(Tcl_Interp *interp){
+int Sqlite3_Init(Tcl_Interp *interp){
   Tcl_InitStubs(interp, "8.0", 0);
   Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0);
   Tcl_PkgProvide(interp, "sqlite", "2.0");
   return TCL_OK;
 }
-int Tclsqlite_Init(Tcl_Interp *interp){
+int Tclsqlite3_Init(Tcl_Interp *interp){
   Tcl_InitStubs(interp, "8.0", 0);
   Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0);
   Tcl_PkgProvide(interp, "sqlite", "2.0");
   return TCL_OK;
 }
-int Sqlite_SafeInit(Tcl_Interp *interp){
+int Sqlite3_SafeInit(Tcl_Interp *interp){
   return TCL_OK;
 }
-int Tclsqlite_SafeInit(Tcl_Interp *interp){
+int Tclsqlite3_SafeInit(Tcl_Interp *interp){
   return TCL_OK;
 }
 
@@ -1134,7 +1134,7 @@ int Tclsqlite_SafeInit(Tcl_Interp *interp){
 ** everything.
 */
 int Et_AppInit(Tcl_Interp *interp){
-  return Sqlite_Init(interp);
+  return Sqlite3_Init(interp);
 }
 #endif
 
@@ -1171,7 +1171,7 @@ int TCLSH_MAIN(int argc, char **argv){
   Tcl_Interp *interp;
   Tcl_FindExecutable(argv[0]);
   interp = Tcl_CreateInterp();
-  Sqlite_Init(interp);
+  Sqlite3_Init(interp);
 #ifdef SQLITE_TEST
   {
     extern int Sqlitetest1_Init(Tcl_Interp*);