diff options
| author | davygrvy@pobox.com <davygrvy> | 2004-05-06 01:17:41 (GMT) |
|---|---|---|
| committer | davygrvy@pobox.com <davygrvy> | 2004-05-06 01:17:41 (GMT) |
| commit | 9751df3e62d91ebdc58649841daf764cb4d7083c (patch) | |
| tree | b6f09cc0fde6e415c82eb98dd2c2bdd0edfd9828 | |
| parent | 60c0211eb57217c253cb357f11807ebc6f897b45 (diff) | |
| download | tcl-9751df3e62d91ebdc58649841daf764cb4d7083c.zip tcl-9751df3e62d91ebdc58649841daf764cb4d7083c.tar.gz tcl-9751df3e62d91ebdc58649841daf764cb4d7083c.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); } /* |