From f69a86b7146ddfe59ba45c2ef1741d9d25121a6e Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Wed, 18 Aug 2021 14:31:55 +0000 Subject: Fix use of TCL_THREADS macro: In Tcl 8.7, this is always defined, but can have value '1' or '0' --- generic/tclAsync.c | 2 +- macosx/tclMacOSXNotify.c | 4 ++-- unix/tclEpollNotfy.c | 2 +- unix/tclKqueueNotfy.c | 2 +- unix/tclSelectNotfy.c | 2 +- 5 files changed, 6 insertions(+), 6 deletions(-) diff --git a/generic/tclAsync.c b/generic/tclAsync.c index bce984d..c790822 100644 --- a/generic/tclAsync.c +++ b/generic/tclAsync.c @@ -227,7 +227,7 @@ Tcl_AsyncMarkFromSignal( Tcl_AsyncHandler async, /* Token for handler. */ int sigNumber) /* Signal number. */ { -#ifdef TCL_THREADS +#if TCL_THREADS AsyncHandler *token = (AsyncHandler *) async; return TclAsyncNotifier(sigNumber, token->originThrdId, diff --git a/macosx/tclMacOSXNotify.c b/macosx/tclMacOSXNotify.c index e80d6f9..35e6ae8 100644 --- a/macosx/tclMacOSXNotify.c +++ b/macosx/tclMacOSXNotify.c @@ -461,7 +461,7 @@ static int notifierThreadRunning; * The following static flag indicates that async handlers are pending. */ -#ifdef TCL_THREADS +#if TCL_THREADS static int asyncPending = 0; #endif @@ -1912,7 +1912,7 @@ TclAsyncNotifier( int *flagPtr, /* Flag to mark. */ int value) /* Value of mark. */ { -#ifdef TCL_THREADS +#if TCL_THREADS /* * WARNING: * This code most likely runs in a signal handler. Thus, diff --git a/unix/tclEpollNotfy.c b/unix/tclEpollNotfy.c index ce7d6b1..bab02ee 100644 --- a/unix/tclEpollNotfy.c +++ b/unix/tclEpollNotfy.c @@ -795,7 +795,7 @@ TclAsyncNotifier( int *flagPtr, /* Flag to mark. */ int value) /* Value of mark. */ { -#ifdef TCL_THREADS +#if TCL_THREADS /* * WARNING: * This code most likely runs in a signal handler. Thus, diff --git a/unix/tclKqueueNotfy.c b/unix/tclKqueueNotfy.c index 872f71c..bc79ddf 100644 --- a/unix/tclKqueueNotfy.c +++ b/unix/tclKqueueNotfy.c @@ -791,7 +791,7 @@ TclAsyncNotifier( int *flagPtr, /* Flag to mark. */ int value) /* Value of mark. */ { -#ifdef TCL_THREADS +#if TCL_THREADS /* * WARNING: * This code most likely runs in a signal handler. Thus, diff --git a/unix/tclSelectNotfy.c b/unix/tclSelectNotfy.c index e69ffd8..f7e61c9 100644 --- a/unix/tclSelectNotfy.c +++ b/unix/tclSelectNotfy.c @@ -921,7 +921,7 @@ TclAsyncNotifier( int *flagPtr, /* Flag to mark. */ int value) /* Value of mark. */ { -#ifdef TCL_THREADS +#if TCL_THREADS /* * WARNING: * This code most likely runs in a signal handler. Thus, -- cgit v0.12