diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2002-05-27 10:14:21 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2002-05-27 10:14:21 (GMT) |
| commit | 34d1213738e54f6071e10913af00c09082a598cc (patch) | |
| tree | 7d7c17d8e654bdce47d465b5cfa89196682af8c5 /generic | |
| parent | a3b5093ec21067c31f2d97c2dd4be581c797aa74 (diff) | |
| download | tcl-34d1213738e54f6071e10913af00c09082a598cc.zip tcl-34d1213738e54f6071e10913af00c09082a598cc.tar.gz tcl-34d1213738e54f6071e10913af00c09082a598cc.tar.bz2 | |
Better handling of EOVERFLOW on Win32 systems (as EFBIG or EINVAL.)
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclPosixStr.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclPosixStr.c b/generic/tclPosixStr.c index 2dbe357..cc2a546 100644 --- a/generic/tclPosixStr.c +++ b/generic/tclPosixStr.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPosixStr.c,v 1.8 2002/02/15 23:42:12 kennykb Exp $ + * RCS: @(#) $Id: tclPosixStr.c,v 1.9 2002/05/27 10:14:21 dkf Exp $ */ #include "tclInt.h" @@ -339,7 +339,7 @@ Tcl_ErrnoId() #if defined(EOPNOTSUPP) && (!defined(ENOTSUP) || (ENOTSUP != EOPNOTSUPP)) case EOPNOTSUPP: return "EOPNOTSUPP"; #endif -#if defined(EOVERFLOW) && ( !defined(EFBIG) || (EOVERFLOW != EFBIG) ) +#if defined(EOVERFLOW) && ( !defined(EFBIG) || (EOVERFLOW != EFBIG) ) && ( !defined(EINVAL) || (EOVERFLOW != EINVAL) ) case EOVERFLOW: return "EOVERFLOW"; #endif #ifdef EPERM @@ -789,7 +789,7 @@ Tcl_ErrnoMsg(err) #if defined(EOPNOTSUPP) && (!defined(ENOTSUP) || (ENOTSUP != EOPNOTSUPP)) case EOPNOTSUPP: return "operation not supported on socket"; #endif -#if defined(EOVERFLOW) && ( !defined(EFBIG) || (EOVERFLOW != EFBIG) ) +#if defined(EOVERFLOW) && ( !defined(EFBIG) || (EOVERFLOW != EFBIG) ) && ( !defined(EINVAL) || (EOVERFLOW != EINVAL) ) case EOVERFLOW: return "file too big"; #endif #ifdef EPERM |