diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-07 09:24:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-07 09:24:19 (GMT) |
| commit | d92cffaa0cf757cfcd982b7b82199eb6149f2ad4 (patch) | |
| tree | 0279cc9b80ed6e1e08685f9d31e99ef4605d35b3 /generic/tclLink.c | |
| parent | 0bf39185fba6f3e398fb5ace84b415b6f83ef826 (diff) | |
| download | tcl-d92cffaa0cf757cfcd982b7b82199eb6149f2ad4.zip tcl-d92cffaa0cf757cfcd982b7b82199eb6149f2ad4.tar.gz tcl-d92cffaa0cf757cfcd982b7b82199eb6149f2ad4.tar.bz2 | |
Remove type-casts in many Tcl_LinkVar() calls, which is no longer necessary since 8.7.
Small missing piece in Tcl_LinkArray() implementation, handling (unsigned) longs on 64-bit platforms.
Diffstat (limited to 'generic/tclLink.c')
| -rw-r--r-- | generic/tclLink.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index 8fbe540..ecb7aa5 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -261,6 +261,14 @@ Tcl_LinkArray( linkPtr = ckalloc(sizeof(Link)); linkPtr->type = type & ~TCL_LINK_READ_ONLY; +#if !defined(TCL_NO_DEPRECATED) && (defined(TCL_WIDE_INT_IS_LONG) \ + || defined(_WIN32) || defined(__CYGWIN__)) + if (linkPtr->type == 11 /* legacy TCL_LINK_LONG */) { + linkPtr->type = TCL_LINK_LONG; + } else if (linkPtr->type == 12 /* legacy TCL_LINK_ULONG */) { + linkPtr->type = TCL_LINK_ULONG; + } +#endif linkPtr->numElems = size; if (type & TCL_LINK_READ_ONLY) { linkPtr->flags = LINK_READ_ONLY; |