This is the mail archive of the
xconq7@sourceware.cygnus.com
mailing list for the Xconq project.
tclPosixStr.c in CVS broken for Linux
- To: xconq7 at sourceware dot cygnus dot com
- Subject: tclPosixStr.c in CVS broken for Linux
- From: Roland Roberts <roberts at panix dot com>
- Date: 15 Jun 2000 14:52:49 -0400
- References: <3947C270.D2616705@shebs.cnchost.com>
- Reply-To: roberts at panix dot com
I recently pulled down the xconq source from CVS and found a
long-standing problem with tcl/generic/tclPosixStr.c (long-standing in
that this has been a problem for all programs which use Tcl 8.0 on
Linux for a while, even the tclplugin!).
gcc -c -g -I./../generic -I. -DHAVE_GETCWD=1 -DHAVE_OPENDIR=1 -DHAVE_STRSTR=1 -DHAVE_STRTOL=1 -DHAVE_TMPNAM=1 -DHAVE_WAITPID=1 -DHAVE_UNISTD_H=1 -DUSE_TERMIOS=1 -DHAVE_SYS_TIME_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_TM_ZONE=1 -DHAVE_TM_GMTOFF=1 -DHAVE_TIMEZONE_VAR=1 -DHAVE_TIMEZONE_DECL=1 -DHAVE_ST_BLKSIZE=1 -DSTDC_HEADERS=1 -DNEED_MATHERR=1 -DHAVE_SIGNED_CHAR=1 -DHAVE_SYS_IOCTL_H=1 -DTCL_SHLIB_EXT=\".so\" ./../generic/tclPosixStr.c
./../generic/tclPosixStr.c: In function `Tcl_ErrnoId':
./../generic/tclPosixStr.c:340: duplicate case value
./../generic/tclPosixStr.c:328: this is the first entry for that value
./../generic/tclPosixStr.c: In function `Tcl_ErrnoMsg':
./../generic/tclPosixStr.c:787: duplicate case value
./../generic/tclPosixStr.c:775: this is the first entry for that value
make[2]: *** [tclPosixStr.o] Error 1
Patch below.
--
PGP Key ID: 66 BC 3B CD
Roland B. Roberts, PhD Unix Software Solutions
roberts@panix.com 76-15 113th Street, Apt 3B
rbroberts@acm.org Forest Hills, NY 11375
Index: tclPosixStr.c
===================================================================
RCS file: /cvs/xconq/xconq/tcl/generic/tclPosixStr.c,v
retrieving revision 1.1
diff -u -c -r1.1 tclPosixStr.c
cvs server: conflicting specifications of output style
*** tclPosixStr.c 1999/04/28 19:50:43 1.1
--- tclPosixStr.c 2000/06/15 18:51:57
***************
*** 1,4 ****
! /*
* tclPosixStr.c --
*
* This file contains procedures that generate strings
--- 1,4 ----
! /*
* tclPosixStr.c --
*
* This file contains procedures that generate strings
***************
*** 337,344 ****
--- 337,346 ----
case ENXIO: return "ENXIO";
#endif
#ifdef EOPNOTSUPP
+ #if EOPNOTSUPP != ENOTSUP
case EOPNOTSUPP: return "EOPNOTSUPP";
#endif
+ #endif
#ifdef EPERM
case EPERM: return "EPERM";
#endif
***************
*** 784,790 ****
--- 786,794 ----
case ENXIO: return "no such device or address";
#endif
#ifdef EOPNOTSUPP
+ #if EOPNOTSUPP != ENOTSUP
case EOPNOTSUPP: return "operation not supported on socket";
+ #endif
#endif
#ifdef EPERM
case EPERM: return "not owner";