diff options
author | kennykb <kennykb@noemail.net> | 2005-12-13 22:43:14 (GMT) |
---|---|---|
committer | kennykb <kennykb@noemail.net> | 2005-12-13 22:43:14 (GMT) |
commit | 2fb0f9b403a0f8dcda8418af57a20ad41c50f9a0 (patch) | |
tree | f5971ca2525b7271645c996adc428790015b1fe6 /generic/tclIORChan.c | |
parent | 0b08bede7ebf6353c81ae29a55c8b567e7a7b655 (diff) | |
download | tcl-2fb0f9b403a0f8dcda8418af57a20ad41c50f9a0.zip tcl-2fb0f9b403a0f8dcda8418af57a20ad41c50f9a0.tar.gz tcl-2fb0f9b403a0f8dcda8418af57a20ad41c50f9a0.tar.bz2 |
Export stubs for libtommath; fix mingw compiler warnings
FossilOrigin-Name: 3842b9c46803a8677c011078725b04cff7adff2d
Diffstat (limited to 'generic/tclIORChan.c')
-rw-r--r-- | generic/tclIORChan.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 2e4b192..faaaca1 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIORChan.c,v 1.11 2005/10/19 21:26:19 dkf Exp $ + * RCS: @(#) $Id: tclIORChan.c,v 1.12 2005/12/13 22:43:17 kennykb Exp $ */ #include <tclInt.h> @@ -1116,7 +1116,7 @@ ReflectInput( *errorCodePtr = EOK; if (bytec > 0) { - memcpy(buf, bytev, bytec); + memcpy(buf, bytev, (size_t)bytec); } Tcl_DecrRefCount(resObj); /* Remove reference held from invoke */ @@ -2248,7 +2248,7 @@ ForwardProc( paramPtr->input.toRead = -1; } else { if (bytec > 0) { - memcpy(paramPtr->input.buf, bytev, bytec); + memcpy(paramPtr->input.buf, bytev, (size_t)bytec); } paramPtr->input.toRead = bytec; } |