summaryrefslogtreecommitdiffstats
path: root/generic/tclDictObj.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-11-08 13:47:07 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-11-08 13:47:07 (GMT)
commitd3c98cb4ac5b38b9fadbe00e5b9161c19d4d4ea7 (patch)
treecc93cb1911ea79684d6cc07b4bc9e9dcd9fca528 /generic/tclDictObj.c
parentbcc3af0abdf3eaf53e455eff2df0907274932a85 (diff)
downloadtcl-d3c98cb4ac5b38b9fadbe00e5b9161c19d4d4ea7.zip
tcl-d3c98cb4ac5b38b9fadbe00e5b9161c19d4d4ea7.tar.gz
tcl-d3c98cb4ac5b38b9fadbe00e5b9161c19d4d4ea7.tar.bz2
Minor simplification of memcpy usage
Diffstat (limited to 'generic/tclDictObj.c')
-rw-r--r--generic/tclDictObj.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c
index de469f9..e04d956 100644
--- a/generic/tclDictObj.c
+++ b/generic/tclDictObj.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclDictObj.c,v 1.43 2006/11/02 15:58:08 dgp Exp $
+ * RCS: @(#) $Id: tclDictObj.c,v 1.44 2006/11/08 13:47:07 dkf Exp $
*/
#include "tclInt.h"
@@ -467,7 +467,7 @@ SetDictFromAny(
s = ckalloc((unsigned) elemSize + 1);
if (hasBrace) {
- memcpy((void *) s, (void *) elemStart, (size_t) elemSize);
+ memcpy(s, elemStart, (size_t) elemSize);
s[elemSize] = 0;
} else {
elemSize = TclCopyAndCollapse(elemSize, elemStart, s);