diff options
| author | ericm <ericm> | 2000-03-27 18:34:31 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-03-27 18:34:31 (GMT) |
| commit | f360434e70a3068aab3513ecb8bc4da680c12c38 (patch) | |
| tree | fd07bd01d8beb7c201b0db3a8265a317fdee71f5 /unix/tclLoadAout.c | |
| parent | 0cfa63e93a87df5a81ad82ec44fbf54c523e73c7 (diff) | |
| download | tcl-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].
Diffstat (limited to 'unix/tclLoadAout.c')
| -rw-r--r-- | unix/tclLoadAout.c | 8 |
1 files changed, 4 insertions, 4 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; |