-
Notifications
You must be signed in to change notification settings - Fork 9
/
tcl86_vectcl.patch
78 lines (76 loc) · 2.38 KB
/
tcl86_vectcl.patch
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
diff -ru tcl8.6.4_orig/generic/tclInt.h tcl8.6/generic/tclInt.h
--- tcl8.6.4_orig/generic/tclInt.h 2015-07-22 11:12:05.678022931 +0200
+++ tcl8.6/generic/tclInt.h 2015-07-22 11:12:42.662206326 +0200
@@ -2686,7 +2686,7 @@
MODULE_SCOPE const Tcl_ObjType tclDoubleType;
MODULE_SCOPE const Tcl_ObjType tclEndOffsetType;
MODULE_SCOPE const Tcl_ObjType tclIntType;
-MODULE_SCOPE const Tcl_ObjType tclListType;
+MODULE_SCOPE Tcl_ObjType tclListType;
MODULE_SCOPE const Tcl_ObjType tclDictType;
MODULE_SCOPE const Tcl_ObjType tclProcBodyType;
MODULE_SCOPE const Tcl_ObjType tclStringType;
diff -ru tcl8.6.4_orig/generic/tclListObj.c tcl8.6/generic/tclListObj.c
--- tcl8.6.4_orig/generic/tclListObj.c 2015-07-22 11:12:05.694023011 +0200
+++ tcl8.6/generic/tclListObj.c 2015-07-22 11:12:42.674206386 +0200
@@ -38,7 +38,7 @@
* storage to avoid an auxiliary stack.
*/
-const Tcl_ObjType tclListType = {
+Tcl_ObjType tclListType = {
"list", /* name */
FreeListInternalRep, /* freeIntRepProc */
DupListInternalRep, /* dupIntRepProc */
@@ -470,7 +470,7 @@
*objvPtr = NULL;
return TCL_OK;
}
- result = SetListFromAny(interp, listPtr);
+ result = Tcl_ConvertToType(interp, listPtr, &tclListType);
if (result != TCL_OK) {
return result;
}
@@ -579,7 +579,7 @@
Tcl_SetListObj(listPtr, 1, &objPtr);
return TCL_OK;
}
- result = SetListFromAny(interp, listPtr);
+ result = Tcl_ConvertToType(interp, listPtr, &tclListType);
if (result != TCL_OK) {
return result;
}
@@ -743,7 +743,7 @@
*objPtrPtr = NULL;
return TCL_OK;
}
- result = SetListFromAny(interp, listPtr);
+ result = Tcl_ConvertToType(interp, listPtr, &tclListType);
if (result != TCL_OK) {
return result;
}
@@ -796,7 +796,7 @@
*intPtr = 0;
return TCL_OK;
}
- result = SetListFromAny(interp, listPtr);
+ result = Tcl_ConvertToType(interp, listPtr, &tclListType);
if (result != TCL_OK) {
return result;
}
@@ -869,7 +869,7 @@
}
Tcl_SetListObj(listPtr, objc, NULL);
} else {
- int result = SetListFromAny(interp, listPtr);
+ int result = Tcl_ConvertToType(interp, listPtr, &tclListType);
if (result != TCL_OK) {
return result;
@@ -1627,7 +1627,7 @@
}
return TCL_ERROR;
}
- result = SetListFromAny(interp, listPtr);
+ result = Tcl_ConvertToType(interp, listPtr, &tclListType);
if (result != TCL_OK) {
return result;
}