diff options
| author | drh <drh@noemail.net> | 2016-07-28 18:55:57 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2016-07-28 18:55:57 +0000 |
| commit | 3a22fdab9a40e54065b36b48daadf00fcffd4565 (patch) | |
| tree | 162ae7a09a5698549f3d14e0ad7d87390ca5a4ef /src/test_init.c | |
| parent | a8914faaaa981c87f193eb62477e7ba7d0affeed (diff) | |
| parent | c0bebc1dcfe7711b80d3a3333d35c991849785ed (diff) | |
| download | sqlite-3a22fdab9a40e54065b36b48daadf00fcffd4565.tar.gz sqlite-3a22fdab9a40e54065b36b48daadf00fcffd4565.zip | |
Decorate all interfaces with calling convention macros.
FossilOrigin-Name: fd784887e125bf95f4799ad09cbcba6795173487
Diffstat (limited to 'src/test_init.c')
| -rw-r--r-- | src/test_init.c | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/test_init.c b/src/test_init.c index 502d95c05..58465785d 100644 --- a/src/test_init.c +++ b/src/test_init.c @@ -27,7 +27,11 @@ #include "sqliteInt.h" #include <string.h> -#include <tcl.h> +#if defined(INCLUDE_SQLITE_TCL_H) +# include "sqlite_tcl.h" +#else +# include "tcl.h" +#endif static struct Wrapped { sqlite3_pcache_methods2 pcache; @@ -184,7 +188,7 @@ static void installInitWrappers(void){ sqlite3_config(SQLITE_CONFIG_PCACHE2, &pcachemethods); } -static int init_wrapper_install( +static int SQLITE_TCLAPI init_wrapper_install( ClientData clientData, /* Unused */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ @@ -208,7 +212,7 @@ static int init_wrapper_install( return TCL_OK; } -static int init_wrapper_uninstall( +static int SQLITE_TCLAPI init_wrapper_uninstall( ClientData clientData, /* Unused */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ @@ -226,7 +230,7 @@ static int init_wrapper_uninstall( return TCL_OK; } -static int init_wrapper_clear( +static int SQLITE_TCLAPI init_wrapper_clear( ClientData clientData, /* Unused */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ @@ -243,7 +247,7 @@ static int init_wrapper_clear( return TCL_OK; } -static int init_wrapper_query( +static int SQLITE_TCLAPI init_wrapper_query( ClientData clientData, /* Unused */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ |