diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-01 15:46:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-01 15:46:33 (GMT) |
| commit | 5da91af3376beec4cfdf88412efab3e82381b50d (patch) | |
| tree | a44dafd88ab5c07643eb911eb450971221e39197 | |
| parent | 32835dc33efb795e24ddbb2f2411337ee0d5a5e9 (diff) | |
| parent | 20bb6aaf3f3857becbb9dd9b1e682164b018b93c (diff) | |
| download | tcl-5da91af3376beec4cfdf88412efab3e82381b50d.zip tcl-5da91af3376beec4cfdf88412efab3e82381b50d.tar.gz tcl-5da91af3376beec4cfdf88412efab3e82381b50d.tar.bz2 | |
Merge 8.7
| -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 649565a..a182f14 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( void *\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 |