diff options
| author | drh <drh@noemail.net> | 2010-08-26 16:46:57 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2010-08-26 16:46:57 +0000 |
| commit | b652f43205d28969e7d46568a15f422d475d5084 (patch) | |
| tree | d2906881b00678f511f0eb3341e409887db0bfb9 /src/tclsqlite.c | |
| parent | 897230eb7ae8307fa51bada2f5d76b74e3227771 (diff) | |
| download | sqlite-b652f43205d28969e7d46568a15f422d475d5084.tar.gz sqlite-b652f43205d28969e7d46568a15f422d475d5084.zip | |
Add EXTERN macros before entry points in tclsqlite.c. This undoes the
change [b4d3e0d528c7d17fa3d05] on [2006-03-06 23:30:52].
FossilOrigin-Name: 8b2cf9d492901a65942d0e0b87c568d1539deece
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 2872896a7..141e68e55 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -3014,8 +3014,10 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ ** if the extension only supplies one new name!) The "sqlite" command is ** used to open a new SQLite database. See the DbMain() routine above ** for additional information. +** +** The EXTERN macros are required by TCL in order to work on windows. */ -int Sqlite3_Init(Tcl_Interp *interp){ +EXTERN int Sqlite3_Init(Tcl_Interp *interp){ Tcl_InitStubs(interp, "8.4", 0); Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); Tcl_PkgProvide(interp, "sqlite3", PACKAGE_VERSION); @@ -3030,13 +3032,13 @@ int Sqlite3_Init(Tcl_Interp *interp){ return TCL_OK; } -int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } -int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } -int Tclsqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } -int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } -int Tclsqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } -int Sqlite3_SafeUnload(Tcl_Interp *interp, int flags){ return TCL_OK; } -int Tclsqlite3_SafeUnload(Tcl_Interp *interp, int flags){ 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;} #ifndef SQLITE_3_SUFFIX_ONLY |