Index: third_party/sqlite/src/src/test_superlock.c |
diff --git a/third_party/sqlite/src/src/test_superlock.c b/third_party/sqlite/src/src/test_superlock.c |
index cac789842d328f30a647dd571aadeba41fb5fe45..45d0d623a03b4cbf19ada28e754267b0b483e810 100644 |
--- a/third_party/sqlite/src/src/test_superlock.c |
+++ b/third_party/sqlite/src/src/test_superlock.c |
@@ -256,7 +256,14 @@ int sqlite3demo_superlock( |
#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 |
struct InterpAndScript { |
Tcl_Interp *interp; |
@@ -264,11 +271,11 @@ struct InterpAndScript { |
}; |
typedef struct InterpAndScript InterpAndScript; |
-static void superunlock_del(ClientData cd){ |
+static void SQLITE_TCLAPI superunlock_del(ClientData cd){ |
sqlite3demo_superunlock((void *)cd); |
} |
-static int superunlock_cmd( |
+static int SQLITE_TCLAPI superunlock_cmd( |
ClientData cd, |
Tcl_Interp *interp, |
int objc, |
@@ -300,7 +307,7 @@ static int superlock_busy(void *pCtx, int nBusy){ |
/* |
** Tclcmd: sqlite3demo_superlock CMDNAME PATH VFS BUSY-HANDLER-SCRIPT |
*/ |
-static int superlock_cmd( |
+static int SQLITE_TCLAPI superlock_cmd( |
ClientData cd, |
Tcl_Interp *interp, |
int objc, |