summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-11-06 21:47:36 (GMT)
committernijtmans <nijtmans>2008-11-06 21:47:36 (GMT)
commite2049a58b3ae85b4fdd0e585a75194984bbf6232 (patch)
treedd5eb1c1e95b7ae605ae2dd7c86214a6b966d2d3 /generic/tclIO.c
parentdf2152c1d6f0dc3b0e0aa8de8c0e1cd2730ea6d5 (diff)
downloadtcl-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.c6
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;