Index: third_party/sqlite/src/src/test_intarray.c |
diff --git a/third_party/sqlite/src/src/test_intarray.c b/third_party/sqlite/src/src/test_intarray.c |
index 70e34db3e191a3d1a31376208e104257bbd416eb..ddfb13fe20b025195438c7af2dd9d4103795ba7b 100644 |
--- a/third_party/sqlite/src/src/test_intarray.c |
+++ b/third_party/sqlite/src/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 */ |