diff options
| author | drh <drh@noemail.net> | 2006-03-03 20:32:18 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2006-03-03 20:32:18 +0000 |
| commit | 27ed1d90f6fa3030087f9d82439d2d781acfb5aa (patch) | |
| tree | df7bf39c5504a3cbc65c99d18aece425845c0c20 /src/tclsqlite.c | |
| parent | 57bacb2282f9fc3f1a76fd148554b9f3428359d2 (diff) | |
| download | sqlite-27ed1d90f6fa3030087f9d82439d2d781acfb5aa.tar.gz sqlite-27ed1d90f6fa3030087f9d82439d2d781acfb5aa.zip | |
Fix tclsqlite.c to better support Mingw. Ticket #1687. (CVS 3119)
FossilOrigin-Name: da0e843c05fc708d48e396aaab00fb6247180b51
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 914af2105..ed6123be1 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.151 2006/02/10 02:27:43 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.152 2006/03/03 20:32:19 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -23,15 +23,6 @@ #include <assert.h> #include <ctype.h> -/* - * Windows needs to know which symbols to export. Unix does not. - * BUILD_sqlite should be undefined for Unix. - */ - -#ifdef BUILD_sqlite -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif /* BUILD_sqlite */ #define NUM_PREPARED_STMTS 10 #define MAX_PREPARED_STMTS 100 @@ -2078,6 +2069,9 @@ 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. */ +#ifndef EXTERN +# define EXTERN extern +#endif EXTERN int Sqlite3_Init(Tcl_Interp *interp){ Tcl_InitStubs(interp, "8.4", 0); Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); |