1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
--- a/webcache/pagepool.cc
+++ b/webcache/pagepool.cc
@@ -658,7 +658,7 @@
for (he = Tcl_FirstHashEntry(namemap_, &hs);
he != NULL;
he = Tcl_NextHashEntry(&hs)) {
- char* retVal = Tcl_GetHashKey(namemap_, he);
+ char* retVal = (char *)Tcl_GetHashKey(namemap_, he);
// Convert name to a PageID
PageID t1;
ClientPage::split_name (retVal, t1);
--- a/pushback/ident-tree.h
+++ b/pushback/ident-tree.h
@@ -83,7 +83,7 @@
Tcl_HashSearch searchPtr;
Tcl_HashEntry * he = Tcl_FirstHashEntry(hashTable_, &searchPtr);
while (he != NULL) {
- char * key = Tcl_GetHashKey(hashTable_, he);
+ char * key = (char *)Tcl_GetHashKey(hashTable_, he);
long value = (long)Tcl_GetHashValue(he);
printf("%s = %ld\n", key, value);
he = Tcl_NextHashEntry(&searchPtr);
--- a/configure
+++ b/configure
@@ -7623,6 +7623,7 @@
fi
+V_CCOPT="$V_CCOPT -DUSE_INTERP_RESULT"
PERL_OPTIONAL=true
--- a/configure.in
+++ b/configure.in
@@ -29,6 +29,9 @@
default_classinstvar=yes
builtin(include, ./conf/configure.in.debugopts)
+dnl Hack for Tcl 8.6
+V_CCOPT="$V_CCOPT -DUSE_INTERP_RESULT"
+
PERL_OPTIONAL=true
builtin(include, ./conf/configure.in.perl)
if test "x$PERL" = x
|
