diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-01 15:46:03 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-01 15:46:03 (GMT) |
commit | 20bb6aaf3f3857becbb9dd9b1e682164b018b93c (patch) | |
tree | a40832392a7b06c50a2dc2334a5a0549aaf1a91c | |
parent | e1d37a6c49a751970baba2aed8e4b824744b7e8f (diff) | |
parent | 2ad836a4e03d557997264f6e8647abcb34cdaa64 (diff) | |
download | tcl-20bb6aaf3f3857becbb9dd9b1e682164b018b93c.zip tcl-20bb6aaf3f3857becbb9dd9b1e682164b018b93c.tar.gz tcl-20bb6aaf3f3857becbb9dd9b1e682164b018b93c.tar.bz2 |
Merge 8.6
-rw-r--r-- | doc/TraceVar.3 | 4 | ||||
-rw-r--r-- | tests-perf/listPerf.tcl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/doc/TraceVar.3 b/doc/TraceVar.3 index 7751cf7..5de6a44 100644 --- a/doc/TraceVar.3 +++ b/doc/TraceVar.3 @@ -126,8 +126,8 @@ It should have arguments and result that match the type typedef char *\fBTcl_VarTraceProc\fR( ClientData \fIclientData\fR, Tcl_Interp *\fIinterp\fR, - char *\fIname1\fR, - char *\fIname2\fR, + const char *\fIname1\fR, + const char *\fIname2\fR, int \fIflags\fR); .CE .PP diff --git a/tests-perf/listPerf.tcl b/tests-perf/listPerf.tcl index 4472810..17f22e9 100644 --- a/tests-perf/listPerf.tcl +++ b/tests-perf/listPerf.tcl @@ -903,7 +903,7 @@ namespace eval perf::list { comment Insertions same as deletions from shared list perf measure [lreplace_describe shared $len $first $last 2] { - lreplace $L $first $last X Y + lreplace $L $first $last X Y } [list len $len first $first last $last] comment Insertions fewer than deletions from shared list @@ -947,7 +947,7 @@ namespace eval perf::list { comment Insertions same as deletions from shared-span list perf measure [lreplace_describe shared-span $len $first $last 2] { - lreplace $Lspan $first $last X Y + lreplace $Lspan $first $last X Y } [list len $len first $first last $last] comment Insertions fewer than deletions from shared-span list |