diff options
| author | nijtmans <nijtmans> | 2008-11-06 21:47:36 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-11-06 21:47:36 (GMT) |
| commit | e2049a58b3ae85b4fdd0e585a75194984bbf6232 (patch) | |
| tree | dd5eb1c1e95b7ae605ae2dd7c86214a6b966d2d3 /generic/tclIO.c | |
| parent | df2152c1d6f0dc3b0e0aa8de8c0e1cd2730ea6d5 (diff) | |
| download | tcl-e2049a58b3ae85b4fdd0e585a75194984bbf6232.zip tcl-e2049a58b3ae85b4fdd0e585a75194984bbf6232.tar.gz tcl-e2049a58b3ae85b4fdd0e585a75194984bbf6232.tar.bz2 | |
add "-Wno-implicit-int" for gcc, as on UNIX
eliminate an 'array index out of bounds' warning on HP-UX'
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index d7524fe..d2017e8 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.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: tclIO.c,v 1.146 2008/10/26 18:34:04 dkf Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.147 2008/11/06 21:47:36 nijtmans Exp $ */ #include "tclInt.h" @@ -4730,7 +4730,7 @@ FilterInputBytes( statePtr->inQueueTail = nextPtr; } extra = rawLen - gsPtr->rawRead; - memcpy(nextPtr->buf + BUFFER_PADDING - extra, + memcpy(nextPtr->buf + (BUFFER_PADDING - extra), raw + gsPtr->rawRead, (size_t) extra); nextPtr->nextRemoved -= extra; bufPtr->nextAdded -= extra; @@ -4879,7 +4879,7 @@ CommonGetsCleanup( extra = SpaceLeft(bufPtr); if (extra > 0) { memcpy(InsertPoint(bufPtr), - nextPtr->buf + BUFFER_PADDING - extra, + nextPtr->buf + (BUFFER_PADDING - extra), (size_t) extra); bufPtr->nextAdded += extra; nextPtr->nextRemoved = BUFFER_PADDING; |