diff options
author | davygrvy <davygrvy@pobox.com> | 2004-05-06 01:17:41 (GMT) |
---|---|---|
committer | davygrvy <davygrvy@pobox.com> | 2004-05-06 01:17:41 (GMT) |
commit | 9a3c3e8445833511f3c80ed1f393351cca80785c (patch) | |
tree | b6f09cc0fde6e415c82eb98dd2c2bdd0edfd9828 /generic/tclEvent.c | |
parent | 916b703585b13fa4e406ef6443eedb05b7247cd1 (diff) | |
download | tcl-9a3c3e8445833511f3c80ed1f393351cca80785c.zip tcl-9a3c3e8445833511f3c80ed1f393351cca80785c.tar.gz tcl-9a3c3e8445833511f3c80ed1f393351cca80785c.tar.bz2 |
(TclSetLibraryPath): Suppress a warning [from DKF]
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); } /* |