diff options
Diffstat (limited to 'generic/tclListObj.c')
| -rw-r--r-- | generic/tclListObj.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 3329dae..9f15cd2 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclListObj.c,v 1.33 2006/08/10 12:15:31 dkf Exp $ + * RCS: @(#) $Id: tclListObj.c,v 1.34 2006/11/08 13:47:07 dkf Exp $ */ #include "tclInt.h" @@ -859,8 +859,7 @@ Tcl_ListObjReplace( */ if (first > 0) { - memcpy((VOID *) elemPtrs, (VOID *) oldPtrs, - (size_t) (first * sizeof(Tcl_Obj *))); + memcpy(elemPtrs, oldPtrs, (size_t) first * sizeof(Tcl_Obj *)); } /* @@ -880,9 +879,8 @@ Tcl_ListObjReplace( start = (first + count); numAfterLast = (numElems - start); if (numAfterLast > 0) { - memcpy((VOID *) &(elemPtrs[first + objc]), - (VOID *) &(oldPtrs[start]), - (size_t) (numAfterLast * sizeof(Tcl_Obj *))); + memcpy(elemPtrs + first + objc, oldPtrs + start, + (size_t) numAfterLast * sizeof(Tcl_Obj *)); } ckfree((char *) oldListRepPtr); @@ -1563,7 +1561,7 @@ SetListFromAny( 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); |