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 | 34e09fc657aec886bd9de4a6ae9716faca4d7212 (patch) | |
| tree | b6f09cc0fde6e415c82eb98dd2c2bdd0edfd9828 | |
| parent | 6b122c571bfed83a90a1eb24ae1be59a815ea5bb (diff) | |
| download | tcl-34e09fc657aec886bd9de4a6ae9716faca4d7212.zip tcl-34e09fc657aec886bd9de4a6ae9716faca4d7212.tar.gz tcl-34e09fc657aec886bd9de4a6ae9716faca4d7212.tar.bz2 | |
(TclSetLibraryPath): Suppress a warning [from DKF]
| -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); } /* |