diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-07 15:20:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-07 15:20:49 (GMT) |
| commit | 14b5289e4aa4945dd080d1d3d2dad7f54537eec8 (patch) | |
| tree | 8f683aa0cbf8062ba81931b49f3731abbccd0a8f /generic/tclLink.c | |
| parent | bb09dba8c07eb42beccc0249f53dc2ca25bb01ed (diff) | |
| parent | 49a7184962b241204447d10cb9546f514237c344 (diff) | |
| download | tcl-14b5289e4aa4945dd080d1d3d2dad7f54537eec8.zip tcl-14b5289e4aa4945dd080d1d3d2dad7f54537eec8.tar.gz tcl-14b5289e4aa4945dd080d1d3d2dad7f54537eec8.tar.bz2 | |
Merge 8.7
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 8bd29e1..cce838d 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -261,6 +261,14 @@ Tcl_LinkArray( linkPtr = (Link *)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; |