diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-21 20:58:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-21 20:58:38 (GMT) |
| commit | a473fe9d1fe0713bc90dcfc061819c51d2493d2d (patch) | |
| tree | f70e7a267bf1025cac8d59b848b99bb550f40b7b /generic/tcl.h | |
| parent | f097ea1cc35059980b47cc4e6a450cde46c15307 (diff) | |
| parent | d295976bddcd0f6bd9f0e9e9ecd74de94f35d27f (diff) | |
| download | tcl-a473fe9d1fe0713bc90dcfc061819c51d2493d2d.zip tcl-a473fe9d1fe0713bc90dcfc061819c51d2493d2d.tar.gz tcl-a473fe9d1fe0713bc90dcfc061819c51d2493d2d.tar.bz2 | |
TIP #692: Revise Tcl_GetAliasObj, remove Tcl_GetAlias()
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 6053a7e..d339b8f 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2337,8 +2337,8 @@ void * TclStubCall(void *arg); TCL_STUB_MAGIC) #else # define Tcl_InitStubs(interp, version, exact) \ - (Tcl_InitStubs)(interp, TCL_PATCH_LEVEL, \ - 1|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16), \ + (Tcl_InitStubs)(interp, (((exact)&1) ? (version) : "9.0b2"), \ + (exact)|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16), \ TCL_STUB_MAGIC) #endif #else |