1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
--- generic/bltInit.c.orig 2013-11-19 09:31:51.000000000 +0100
+++ generic/bltInit.c 2013-11-19 09:31:51.000000000 +0100
@@ -510,7 +510,6 @@
Tcl_Interp *interp; /* Interpreter to add extra commands */
{
int flags;
- int dostub = 0;
flags = (int)Tcl_GetAssocData(interp, BLT_THREAD_KEY, NULL);
if ((flags & BLT_TCL_CMDS) == 0) {
@@ -562,11 +561,11 @@
Blt_RegisterArrayObj(interp);
bltNaN = MakeNaN();
#ifdef USE_BLT_STUBS
- if (Tcl_PkgProvideEx(interp, "BLT", BLT_PATCH_LEVEL, &bltStubs) != TCL_OK) {
+ if (Tcl_PkgProvideEx(interp, "BLT", BLT_VERSION, &bltStubs) != TCL_OK) {
return TCL_ERROR;
}
#else
- if (Tcl_PkgProvideEx(interp, "BLT", BLT_PATCH_LEVEL, NULL) != TCL_OK) {
+ if (Tcl_PkgProvideEx(interp, "BLT", BLT_VERSION, NULL) != TCL_OK) {
return TCL_ERROR;
}
#endif
|
