diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-22 15:48:05 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-22 15:48:05 (GMT) |
commit | 1819debd34708f6a25e289c73de183e7a56cdb89 (patch) | |
tree | 4f7069f821a16cbac500630c65def18a2b52626c /generic/tclCmdIL.c | |
parent | b8db45bc4bcd386c3b8ec45e6f2b25b3eae088b8 (diff) | |
parent | daf1875e0170f7414a01a4c2e77cbab54f1349c9 (diff) | |
download | tcl-1819debd34708f6a25e289c73de183e7a56cdb89.zip tcl-1819debd34708f6a25e289c73de183e7a56cdb89.tar.gz tcl-1819debd34708f6a25e289c73de183e7a56cdb89.tar.bz2 |
Merge 9.0
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r-- | generic/tclCmdIL.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 4d6419f..904996e 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2904,7 +2904,7 @@ Tcl_LrepeatObjCmd( List *listRepPtr = ListRepPtr(listPtr); listRepPtr->elemCount = elementCount*objc; - dataArray = &listRepPtr->elements; + dataArray = listRepPtr->elements; } /* @@ -3091,7 +3091,7 @@ Tcl_LreverseObjCmd( resultObj = Tcl_NewListObj(elemc, NULL); listRepPtr = ListRepPtr(resultObj); listRepPtr->elemCount = elemc; - dataArray = &listRepPtr->elements; + dataArray = listRepPtr->elements; for (i=0,j=elemc-1 ; i<elemc ; i++,j--) { dataArray[j] = elemv[i]; @@ -4424,7 +4424,7 @@ Tcl_LsortObjCmd( resultPtr = Tcl_NewListObj(sortInfo.numElements * groupSize, NULL); listRepPtr = ListRepPtr(resultPtr); - newArray = &listRepPtr->elements; + newArray = listRepPtr->elements; if (group) { for (i=0; elementPtr!=NULL ; elementPtr=elementPtr->nextPtr) { idx = elementPtr->payload.index; |