diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-13 12:37:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-13 12:37:35 (GMT) |
| commit | 037f0d4f7e7b70aaa44f11a934ed52c0fabca0b3 (patch) | |
| tree | f031bc4a5f2e633284d7bc7f933f8171d41722c2 /generic/tclCmdIL.c | |
| parent | a3eea6dc3f9b7ffcbcff6b1ee933f9ef1189df3f (diff) | |
| download | tcl-037f0d4f7e7b70aaa44f11a934ed52c0fabca0b3.zip tcl-037f0d4f7e7b70aaa44f11a934ed52c0fabca0b3.tar.gz tcl-037f0d4f7e7b70aaa44f11a934ed52c0fabca0b3.tar.bz2 | |
Make List->elements a TCLFLEXARRAY. Improve documentation (backported from 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 f32fd98..1197b92 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2901,7 +2901,7 @@ Tcl_LrepeatObjCmd( List *listRepPtr = ListRepPtr(listPtr); listRepPtr->elemCount = elementCount*objc; - dataArray = &listRepPtr->elements; + dataArray = listRepPtr->elements; } /* @@ -3088,7 +3088,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]; @@ -4414,7 +4414,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; |