diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2002-05-27 10:14:21 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2002-05-27 10:14:21 (GMT) |
| commit | 35a21d3c687e7f7883d393c30df87820c1879e51 (patch) | |
| tree | 7d7c17d8e654bdce47d465b5cfa89196682af8c5 /win | |
| parent | eff506b0846210f74d3905c974729e4e832f0fe0 (diff) | |
| download | tcl-35a21d3c687e7f7883d393c30df87820c1879e51.zip tcl-35a21d3c687e7f7883d393c30df87820c1879e51.tar.gz tcl-35a21d3c687e7f7883d393c30df87820c1879e51.tar.bz2 | |
Better handling of EOVERFLOW on Win32 systems (as EFBIG or EINVAL.)
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinError.c | 4 | ||||
| -rw-r--r-- | win/tclWinPort.h | 12 |
2 files changed, 9 insertions, 7 deletions
diff --git a/win/tclWinError.c b/win/tclWinError.c index 1bc66cd..e70e1c2 100644 --- a/win/tclWinError.c +++ b/win/tclWinError.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinError.c,v 1.4 2000/09/06 22:37:24 hobbs Exp $ + * RCS: @(#) $Id: tclWinError.c,v 1.5 2002/05/27 10:14:21 dkf Exp $ */ #include "tclWinInt.h" @@ -151,7 +151,7 @@ static char errorTable[] = { ECHILD, /* ERROR_WAIT_NO_CHILDREN 128 */ ECHILD, /* ERROR_CHILD_NOT_COMPLETE 129 */ EBADF, /* ERROR_DIRECT_ACCESS_HANDLE 130 */ - EINVAL, /* 131 */ + EINVAL, /* ERROR_NEGATIVE_SEEK 131 */ ESPIPE, /* ERROR_SEEK_ON_DEVICE 132 */ EINVAL, /* 133 */ EINVAL, /* 134 */ diff --git a/win/tclWinPort.h b/win/tclWinPort.h index 9f7a7c4..baf38fb 100644 --- a/win/tclWinPort.h +++ b/win/tclWinPort.h @@ -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: tclWinPort.h,v 1.28 2002/05/24 21:19:09 dkf Exp $ + * RCS: @(#) $Id: tclWinPort.h,v 1.29 2002/05/27 10:14:21 dkf Exp $ */ #ifndef _TCLWINPORT @@ -199,11 +199,13 @@ #ifndef EREMOTE #define EREMOTE 66 /* The object is remote */ #endif -/* - * Note that EOVERFLOW is really just a specialist ERANGE... - */ #ifndef EOVERFLOW -#define EOVERFLOW ERANGE /* The object couldn't fit in the datatype */ +#ifdef +#define EOVERFLOW EFBIG /* The object couldn't fit in the datatype */ +#else +#define EOVERFLOW EINVAL /* Better than nothing! */ +#endif +#endif #endif /* |