aboutsummaryrefslogtreecommitdiff
path: root/src/tclsqlite.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/tclsqlite.c')
-rw-r--r--src/tclsqlite.c11
1 files changed, 9 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 906f429ab..51049b4d2 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -369,12 +369,19 @@ static int SQLITE_TCLAPI incrblobOutput(
return nWrite;
}
+/* The datatype of Tcl_DriverWideSeekProc changes between tcl8.6 and tcl9.0 */
+#if TCL_MAJOR_VERSION==9
+# define WideSeekProcType long lone
+#else
+# define WideSeekProcType Tcl_WideInt
+#endif
+
/*
** Seek an incremental blob channel.
*/
-static long long SQLITE_TCLAPI incrblobWideSeek(
+static WideSeekProcType SQLITE_TCLAPI incrblobWideSeek(
ClientData instanceData,
- long long offset,
+ WideSeekProcType offset,
int seekMode,
int *errorCodePtr
){