diff options
| author | davygrvy <davygrvy@noemail.net> | 2004-05-06 01:17:40 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@noemail.net> | 2004-05-06 01:17:40 (GMT) |
| commit | 13f18769faa3ceb935f72ad7a8e7025a2f0dce15 (patch) | |
| tree | b6f09cc0fde6e415c82eb98dd2c2bdd0edfd9828 /generic/tclEvent.c | |
| parent | 652c1790ea68528cd57c6ce83d2e386497122b6f (diff) | |
| download | tcl-13f18769faa3ceb935f72ad7a8e7025a2f0dce15.zip tcl-13f18769faa3ceb935f72ad7a8e7025a2f0dce15.tar.gz tcl-13f18769faa3ceb935f72ad7a8e7025a2f0dce15.tar.bz2 | |
(TclSetLibraryPath): Suppress a warning [from DKF]
FossilOrigin-Name: e30138b038dfb327b52ed45e2157216661ea5714
Diffstat (limited to 'generic/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index fb40447..eacf41b 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEvent.c,v 1.28.2.2 2004/05/06 01:02:18 davygrvy Exp $ + * RCS: @(#) $Id: tclEvent.c,v 1.28.2.3 2004/05/06 01:17:41 davygrvy Exp $ */ #include "tclInt.h" @@ -613,8 +613,8 @@ TclSetLibraryPath(pathPtr) ckfree(tclLibraryPathStr); } toDupe = Tcl_GetStringFromObj(pathPtr, &size); - tclLibraryPathStr = ckalloc(size+1); - strcpy(tclLibraryPathStr, toDupe); + tclLibraryPathStr = ckalloc((unsigned)size+1); + memcpy(tclLibraryPathStr, toDupe, (unsigned)size+1); } /* |