diff options
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 15f6b54..452d915 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -39,6 +39,19 @@ # endif #endif +#ifndef JOIN +# define JOIN(a,b) JOIN1(a,b) +# define JOIN1(a,b) a##b +#endif + +#if defined(__cplusplus) +# define TCL_UNUSED(T) T +#elif defined(__GNUC__) && (__GNUC__ > 2) +# define TCL_UNUSED(T) T JOIN(dummy, __LINE__) __attribute__((unused)) +#else +# define TCL_UNUSED(T) T JOIN(dummy, __LINE__) +#endif + /* * Common include files needed by most of the Tcl source files are included * here, so that system-dependent personalizations for the include files only |