Index: generic/tclIO.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIO.c,v
retrieving revision 1.56
diff -u -r1.56 tclIO.c
--- generic/tclIO.c 24 May 2002 21:19:05 -0000 1.56
+++ generic/tclIO.c 31 May 2002 22:38:53 -0000
@@ -5453,7 +5453,16 @@
offset, mode, &result);
} else if (offset < Tcl_LongAsWide(LONG_MIN) ||
offset > Tcl_LongAsWide(LONG_MAX)) {
+ /* logic below adapted from tclIOtil.c */
+#ifdef EFBIG
+ Tcl_SetErrno(EFBIG);
+#else
+# ifdef EOVERFLOW
Tcl_SetErrno(EOVERFLOW);
+# else
+# error "What status should be returned for file size out of range?"
+# endif
+#endif
curPos = Tcl_LongAsWide(-1);
} else {
curPos = Tcl_LongAsWide((chanPtr->typePtr->seekProc) (
Index: generic/tclIOGT.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIOGT.c,v
retrieving revision 1.7
diff -u -r1.7 tclIOGT.c
--- generic/tclIOGT.c 24 May 2002 21:19:06 -0000 1.7
+++ generic/tclIOGT.c 31 May 2002 22:38:54 -0000
@@ -979,7 +979,16 @@
* happens when trying to go out of the representable range.
*/
if (offset<Tcl_LongAsWide(LONG_MIN) || offset>Tcl_LongAsWide(LONG_MAX)) {
+ /* logic below adapted from tclIOtil.c */
+#ifdef EFBIG
+ *errorCodePtr = EFBIG;
+#else
+# ifdef EOVERFLOW
*errorCodePtr = EOVERFLOW;
+# else
+# error "What status should be returned for file size out of range?"
+# endif
+#endif
return Tcl_LongAsWide(-1);
}
return Tcl_LongAsWide((*parentSeekProc) (parentData,
Index: unix/tclUnixChan.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixChan.c,v
retrieving revision 1.35
diff -u -r1.35 tclUnixChan.c
--- unix/tclUnixChan.c 24 May 2002 21:19:08 -0000 1.35
+++ unix/tclUnixChan.c 31 May 2002 22:38:55 -0000
@@ -617,7 +617,16 @@
* Check for expressability in our return type, and roll-back otherwise.
*/
if (newLoc > Tcl_LongAsWide(INT_MAX)) {
+ /* logic below adapted from tclIOtil.c */
+#ifdef EFBIG
+ *errorCodePtr = EFBIG;
+#else
+# ifdef EOVERFLOW
*errorCodePtr = EOVERFLOW;
+# else
+# error "What status should be returned for file size out of range?"
+# endif
+#endif
Tcl_PlatformSeek(fsPtr->fd, (Tcl_SeekOffset) oldLoc, SEEK_SET);
return -1;
} else {
