diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-25 11:54:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-25 11:54:10 (GMT) |
| commit | d044132580d82d2fe3b6c6fa7ddcfee6627d718f (patch) | |
| tree | 935cab44c0fb73ed0bd0d42ff92f08e4e7149793 /generic/tclEvent.c | |
| parent | a8c5eb74e5eb8bdda197b8cae56cc0f79403fc6a (diff) | |
| download | tcl-d044132580d82d2fe3b6c6fa7ddcfee6627d718f.zip tcl-d044132580d82d2fe3b6c6fa7ddcfee6627d718f.tar.gz tcl-d044132580d82d2fe3b6c6fa7ddcfee6627d718f.tar.bz2 | |
Fix build with -DTCL_NO_DEPRECATED cflag
Diffstat (limited to 'generic/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index ce48210..604bb78 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -14,6 +14,7 @@ */ #include "tclInt.h" +#include "tclUuid.h" /* * The data structure below is used to report background errors. One such @@ -1071,6 +1072,12 @@ Tcl_InitSubsystems(void) TclpInitUnlock(); } TclInitNotifier(); + +#ifndef STRINGIFY +# define STRINGIFY(x) STRINGIFY1(x) +# define STRINGIFY1(x) #x +#endif + return TCL_PATCH_LEVEL "+" STRINGIFY(TCL_VERSION_UUID) #if defined(__clang__) && defined(__clang_major__) ".clang-" STRINGIFY(__clang_major__) |