diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-13 14:35:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-13 14:35:09 (GMT) |
| commit | 40a7c31d995177d34bc9f75f0076d73854b999c5 (patch) | |
| tree | 217501ee9ab0c9e59fbdbd7bdb09e1c781248719 /generic/tclStubLib.c | |
| parent | f24fd2c1c20cc0118cc10bfa5971e4b33328a4e2 (diff) | |
| parent | 7aa1b0046802cb099488ba3bd88ac5cd2bd84d7d (diff) | |
| download | tcl-40a7c31d995177d34bc9f75f0076d73854b999c5.zip tcl-40a7c31d995177d34bc9f75f0076d73854b999c5.tar.gz tcl-40a7c31d995177d34bc9f75f0076d73854b999c5.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclStubLib.c')
| -rw-r--r-- | generic/tclStubLib.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index 35886b6..dbc9d40 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.c @@ -67,7 +67,7 @@ Tcl_InitStubs( * times. [Bug 615304] */ - if (!stubsPtr || (stubsPtr->magic != (((exact&0xff00) >= 0x900) ? magic : TCL_STUB_MAGIC))) { + if (!stubsPtr || (stubsPtr->magic != (((exact&0xFF00) >= 0x900) ? magic : TCL_STUB_MAGIC))) { iPtr->legacyResult = "interpreter uses an incompatible stubs mechanism"; iPtr->legacyFreeProc = 0; /* TCL_STATIC */ return NULL; @@ -103,7 +103,7 @@ Tcl_InitStubs( } } } - if (((exact&0xff00) < 0x900)) { + if (((exact&0xFF00) < 0x900)) { /* We are running Tcl 8.x */ stubsPtr = (TclStubs *)pkgData; } |