diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-08 13:47:07 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-08 13:47:07 (GMT) |
commit | d3c98cb4ac5b38b9fadbe00e5b9161c19d4d4ea7 (patch) | |
tree | cc93cb1911ea79684d6cc07b4bc9e9dcd9fca528 /generic/tclDictObj.c | |
parent | bcc3af0abdf3eaf53e455eff2df0907274932a85 (diff) | |
download | tcl-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.c | 4 |
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); |