summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
Diffstat (limited to 'unix')
-rw-r--r--unix/tclLoadAout.c8
-rw-r--r--unix/tclUnixChan.c4
-rw-r--r--unix/tclUnixPipe.c6
3 files changed, 9 insertions, 9 deletions
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);
}