Index: third_party/sqlite/src/src/test_demovfs.c |
diff --git a/third_party/sqlite/src/src/test_demovfs.c b/third_party/sqlite/src/src/test_demovfs.c |
index 9410a309a6ef180a22953482ea0658841f3bddb2..ba7af863cde9de3a47b0240833b836b2365b145a 100644 |
--- a/third_party/sqlite/src/src/test_demovfs.c |
+++ b/third_party/sqlite/src/src/test_demovfs.c |
@@ -641,10 +641,17 @@ sqlite3_vfs *sqlite3_demovfs(void){ |
#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 |
#if SQLITE_OS_UNIX |
-static int register_demovfs( |
+static int SQLITE_TCLAPI register_demovfs( |
ClientData clientData, /* Pointer to sqlite3_enable_XXX function */ |
Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ |
int objc, /* Number of arguments */ |
@@ -653,7 +660,7 @@ static int register_demovfs( |
sqlite3_vfs_register(sqlite3_demovfs(), 1); |
return TCL_OK; |
} |
-static int unregister_demovfs( |
+static int SQLITE_TCLAPI unregister_demovfs( |
ClientData clientData, /* Pointer to sqlite3_enable_XXX function */ |
Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ |
int objc, /* Number of arguments */ |