diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-09 11:49:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-09 11:49:10 (GMT) |
| commit | a037934e2165dc52888a2daa656c9e5d5ddc980e (patch) | |
| tree | 4db6d54f597ef9d005bf14ce9d1381f7edda6372 | |
| parent | 56e7df256a6fc22cd478e4be02a8dca93634e942 (diff) | |
| download | tcl-a037934e2165dc52888a2daa656c9e5d5ddc980e.zip tcl-a037934e2165dc52888a2daa656c9e5d5ddc980e.tar.gz tcl-a037934e2165dc52888a2daa656c9e5d5ddc980e.tar.bz2 | |
Get rid of Tcl_DStringTrunc et al, as described in the TIP (Thanks, Don!).
| -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 80c8dcb..54c6b73 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -997,7 +997,7 @@ typedef struct Tcl_DString { #define Tcl_DStringLength(dsPtr) ((dsPtr)->length) #define Tcl_DStringValue(dsPtr) ((dsPtr)->string) -#ifndef TCL_NO_DEPRECATED +#if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 # define Tcl_DStringTrunc Tcl_DStringSetLength #endif /* !TCL_NO_DEPRECATED */ @@ -2615,7 +2615,7 @@ EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); * Deprecated Tcl functions: */ -#ifndef TCL_NO_DEPRECATED +#if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 /* * These function have been renamed. The old names are deprecated, but we * define these macros for backwards compatibilty. |