summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorericm <ericm>2000-03-27 18:34:31 (GMT)
committerericm <ericm>2000-03-27 18:34:31 (GMT)
commitf360434e70a3068aab3513ecb8bc4da680c12c38 (patch)
treefd07bd01d8beb7c201b0db3a8265a317fdee71f5
parent0cfa63e93a87df5a81ad82ec44fbf54c523e73c7 (diff)
downloadtcl-f360434e70a3068aab3513ecb8bc4da680c12c38.zip
tcl-f360434e70a3068aab3513ecb8bc4da680c12c38.tar.gz
tcl-f360434e70a3068aab3513ecb8bc4da680c12c38.tar.bz2
* unix/tclUnixChan.c: Added (off_t) type casts in lseek() call
[Bug: 4409]. * unix/tclLoadAout.c: * unix/tclUnixPipe.c: Added (off_t) type casts in lseek() calls [Bug: 4410].
-rw-r--r--ChangeLog9
-rw-r--r--unix/tclLoadAout.c8
-rw-r--r--unix/tclUnixChan.c4
-rw-r--r--unix/tclUnixPipe.c6
4 files changed, 18 insertions, 9 deletions
diff --git a/ChangeLog b/ChangeLog
index 2430acb..4158686 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2000-03-27 Eric Melski <ericm@scriptics.com>
+
+ * unix/tclUnixChan.c: Added (off_t) type casts in lseek() call
+ [Bug: 4409].
+
+ * unix/tclLoadAout.c:
+ * unix/tclUnixPipe.c: Added (off_t) type casts in lseek() calls
+ [Bug: 4410].
+
2000-03-22 Sandeep Tamhankar <sandeep@scriptics.com>
* library/http2.1/http.tcl: Fixed a bug where string query data
diff --git a/unix/tclLoadAout.c b/unix/tclLoadAout.c
index 8b6da69..da85d16 100644
--- a/unix/tclLoadAout.c
+++ b/unix/tclLoadAout.c
@@ -14,7 +14,7 @@
* and Design Engineering (MADE) Initiative through ARPA contract
* F33615-94-C-4400.
*
- * RCS: @(#) $Id: tclLoadAout.c,v 1.3 1999/04/16 00:48:04 stanton Exp $
+ * RCS: @(#) $Id: tclLoadAout.c,v 1.4 2000/03/27 18:34:32 ericm Exp $
*/
#include "tclInt.h"
@@ -262,10 +262,10 @@ TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr)
#if defined(__mips) || defined(mips)
status = lseek (relocatedFd,
- N_TXTOFF (relocatedHead.ex_f, relocatedHead.ex_o),
- SEEK_SET);
+ (off_t) N_TXTOFF (relocatedHead.ex_f, relocatedHead.ex_o),
+ SEEK_SET);
#else
- status = lseek (relocatedFd, N_TXTOFF (relocatedHead), SEEK_SET);
+ status = lseek (relocatedFd, (off_t) N_TXTOFF (relocatedHead), SEEK_SET);
#endif
if (status < 0) {
goto ioError;
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index 06a8a42..31204cb 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.13 2000/01/26 03:38:00 hobbs Exp $
+ * RCS: @(#) $Id: tclUnixChan.c,v 1.14 2000/03/27 18:34:32 ericm Exp $
*/
#include "tclInt.h" /* Internal definitions for Tcl. */
@@ -502,7 +502,7 @@ FileSeekProc(instanceData, offset, mode, errorCodePtr)
FileState *fsPtr = (FileState *) instanceData;
int newLoc;
- newLoc = lseek(fsPtr->fd, offset, mode);
+ newLoc = lseek(fsPtr->fd, (off_t) offset, mode);
*errorCodePtr = (newLoc == -1) ? errno : 0;
return newLoc;
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c
index 0e26414..91c497d 100644
--- a/unix/tclUnixPipe.c
+++ b/unix/tclUnixPipe.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: tclUnixPipe.c,v 1.7 1999/12/12 02:27:20 hobbs Exp $
+ * RCS: @(#) $Id: tclUnixPipe.c,v 1.8 2000/03/27 18:34:32 ericm Exp $
*/
#include "tclInt.h"
@@ -147,7 +147,7 @@ TclpOpenFile(fname, mode)
*/
if (mode & O_WRONLY) {
- lseek(fd, 0, SEEK_END);
+ lseek(fd, (off_t) 0, SEEK_END);
}
/*
@@ -198,7 +198,7 @@ TclpCreateTempFile(contents)
close(fd);
return NULL;
}
- lseek(fd, 0, SEEK_SET);
+ lseek(fd, (off_t) 0, SEEK_SET);
}
return MakeFile(fd);
}