Index: third_party/sqlite/src/src/test_async.c |
diff --git a/third_party/sqlite/src/src/test_async.c b/third_party/sqlite/src/src/test_async.c |
index b0b943185bfc23c17fd08f55768cac12a9f56951..c32c74c6608142d36e6a7d323b56877983eff301 100644 |
--- a/third_party/sqlite/src/src/test_async.c |
+++ b/third_party/sqlite/src/src/test_async.c |
@@ -15,7 +15,14 @@ |
*/ |
#define TCL_THREADS |
-#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 |
#ifdef SQLITE_ENABLE_ASYNCIO |
@@ -36,7 +43,7 @@ TCL_DECLARE_MUTEX(testasync_g_writerMutex); |
/* |
** sqlite3async_initialize PARENT-VFS ISDEFAULT |
*/ |
-static int testAsyncInit( |
+static int SQLITE_TCLAPI testAsyncInit( |
void * clientData, |
Tcl_Interp *interp, |
int objc, |
@@ -69,7 +76,7 @@ static int testAsyncInit( |
/* |
** sqlite3async_shutdown |
*/ |
-static int testAsyncShutdown( |
+static int SQLITE_TCLAPI testAsyncShutdown( |
void * clientData, |
Tcl_Interp *interp, |
int objc, |
@@ -93,7 +100,7 @@ static Tcl_ThreadCreateType tclWriterThread(ClientData pIsStarted){ |
** |
** Start a new writer thread. |
*/ |
-static int testAsyncStart( |
+static int SQLITE_TCLAPI testAsyncStart( |
void * clientData, |
Tcl_Interp *interp, |
int objc, |
@@ -125,7 +132,7 @@ static int testAsyncStart( |
** If the current writer thread is set to run forever then this |
** command would block forever. To prevent that, an error is returned. |
*/ |
-static int testAsyncWait( |
+static int SQLITE_TCLAPI testAsyncWait( |
void * clientData, |
Tcl_Interp *interp, |
int objc, |
@@ -151,7 +158,7 @@ static int testAsyncWait( |
/* |
** sqlite3async_control OPTION ?VALUE? |
*/ |
-static int testAsyncControl( |
+static int SQLITE_TCLAPI testAsyncControl( |
void * clientData, |
Tcl_Interp *interp, |
int objc, |