diff options
| author | dgp@users.sourceforge.net <dgp> | 2005-10-21 17:05:43 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2005-10-21 17:05:43 (GMT) |
| commit | f37646e26347a81c07c1688bdfa54dd158f04c51 (patch) | |
| tree | 0b2bb261a340aff070eb92261af1cdb70db30322 | |
| parent | 7183cdd8092efeef91c0d093ccbad25d3c7cc859 (diff) | |
| download | tcl-f37646e26347a81c07c1688bdfa54dd158f04c51.zip tcl-f37646e26347a81c07c1688bdfa54dd158f04c51.tar.gz tcl-f37646e26347a81c07c1688bdfa54dd158f04c51.tar.bz2 | |
Revised code to build in situations where strchr(.,.) is a macro.
| -rw-r--r-- | unix/tclUnixChan.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index 5162d00..111d9f3 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixChan.c,v 1.61 2005/10/21 15:25:41 dkf Exp $ + * RCS: @(#) $Id: tclUnixChan.c,v 1.62 2005/10/21 17:05:43 dgp Exp $ */ #include "tclInt.h" /* Internal definitions for Tcl. */ @@ -1624,13 +1624,11 @@ TtyParseMode( * sure to allow for the case where strchr is a macro. [Bug: 5089] */ - if (strchr( #if defined(PAREXT) || defined(USE_TERMIO) - "noems", + if (strchr("noems", parity) == NULL) { #else - "noe", + if (strchr("noe", parity) == NULL) { #endif /* PAREXT|USE_TERMIO */ - parity) == NULL) { if (interp != NULL) { Tcl_AppendResult(interp, bad, " parity: should be ", #if defined(PAREXT) || defined(USE_TERMIO) |