diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-28 22:49:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-28 22:49:59 (GMT) |
| commit | d1a1ae51945536e507e81359e7614cbe2b46b637 (patch) | |
| tree | 434e9b63f193d57379ed03e1be8b36e00007d021 /generic/tclUtil.c | |
| parent | 388ed8fba7742f409a647c0a636e8376c587927c (diff) | |
| parent | 0817b5a4ef4f44daedf4a1c82e5f63c0641be1c3 (diff) | |
| download | tcl-d1a1ae51945536e507e81359e7614cbe2b46b637.zip tcl-d1a1ae51945536e507e81359e7614cbe2b46b637.tar.gz tcl-d1a1ae51945536e507e81359e7614cbe2b46b637.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index e432560..f4b1ab1 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -2186,6 +2186,7 @@ Tcl_ConcatObj( return resPtr; } +#if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 /* *---------------------------------------------------------------------- * @@ -2204,6 +2205,7 @@ Tcl_ConcatObj( *---------------------------------------------------------------------- */ +#undef Tcl_StringMatch int Tcl_StringMatch( const char *str, /* String. */ @@ -2212,7 +2214,7 @@ Tcl_StringMatch( { return Tcl_StringCaseMatch(str, pattern, 0); } - +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- * |