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_intarray.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_intarray.c')
| -rw-r--r-- | src/test_intarray.c | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/test_intarray.c b/src/test_intarray.c index 70e34db3e..ddfb13fe2 100644 --- a/src/test_intarray.c +++ b/src/test_intarray.c @@ -270,7 +270,14 @@ SQLITE_API int sqlite3_intarray_bind( ** Everything below is interface for testing this module. */ #ifdef SQLITE_TEST -#include <tcl.h> +#if defined(INCLUDE_SQLITE_TCL_H) +# include "sqlite_tcl.h" +#else +# include "tcl.h" +# ifndef SQLITE_TCLAPI +# define SQLITE_TCLAPI +# endif +#endif /* ** Routines to encode and decode pointers @@ -286,7 +293,7 @@ extern const char *sqlite3ErrName(int); ** Invoke the sqlite3_intarray_create interface. A string that becomes ** the first parameter to sqlite3_intarray_bind. */ -static int test_intarray_create( +static int SQLITE_TCLAPI test_intarray_create( ClientData clientData, /* Not used */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ @@ -322,7 +329,7 @@ static int test_intarray_create( ** ** Invoke the sqlite3_intarray_bind interface on the given array of integers. */ -static int test_intarray_bind( +static int SQLITE_TCLAPI test_intarray_bind( ClientData clientData, /* Not used */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ |