Index: third_party/sqlite/src/src/test9.c |
diff --git a/third_party/sqlite/src/src/test9.c b/third_party/sqlite/src/src/test9.c |
index e5993e8ff78f61c2435b6f97a3b463e227c767ac..5b139e8a56fc831773c1eee10b7b4433d092a22e 100644 |
--- a/third_party/sqlite/src/src/test9.c |
+++ b/third_party/sqlite/src/src/test9.c |
@@ -15,14 +15,18 @@ |
** as there is not much point in binding to Tcl. |
*/ |
#include "sqliteInt.h" |
-#include "tcl.h" |
+#if defined(INCLUDE_SQLITE_TCL_H) |
+# include "sqlite_tcl.h" |
+#else |
+# include "tcl.h" |
+#endif |
#include <stdlib.h> |
#include <string.h> |
/* |
** c_collation_test |
*/ |
-static int c_collation_test( |
+static int SQLITE_TCLAPI c_collation_test( |
ClientData clientData, /* Pointer to sqlite3_enable_XXX function */ |
Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ |
int objc, /* Number of arguments */ |
@@ -63,7 +67,7 @@ error_out: |
/* |
** c_realloc_test |
*/ |
-static int c_realloc_test( |
+static int SQLITE_TCLAPI c_realloc_test( |
ClientData clientData, /* Pointer to sqlite3_enable_XXX function */ |
Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ |
int objc, /* Number of arguments */ |
@@ -104,7 +108,7 @@ error_out: |
/* |
** c_misuse_test |
*/ |
-static int c_misuse_test( |
+static int SQLITE_TCLAPI c_misuse_test( |
ClientData clientData, /* Pointer to sqlite3_enable_XXX function */ |
Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ |
int objc, /* Number of arguments */ |