diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-08-10 14:09:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-08-10 14:09:55 (GMT) |
| commit | 946847b4b9f3b9b7aa252d830921d41033d5175b (patch) | |
| tree | 33d71b539d909e85e13d482e30fe823bf984a6c5 /generic/tclArithSeries.c | |
| parent | 96b27040f7f5dc5f76c087b23a9427802cbfb428 (diff) | |
| download | tcl-946847b4b9f3b9b7aa252d830921d41033d5175b.zip tcl-946847b4b9f3b9b7aa252d830921d41033d5175b.tar.gz tcl-946847b4b9f3b9b7aa252d830921d41033d5175b.tar.bz2 | |
silence compiler warning
Diffstat (limited to 'generic/tclArithSeries.c')
| -rwxr-xr-x | generic/tclArithSeries.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c index 1de508c..583b03e 100755 --- a/generic/tclArithSeries.c +++ b/generic/tclArithSeries.c @@ -1157,7 +1157,7 @@ ArithSeriesInOperation( Tcl_Obj *elemObj; elen = 0; TclArithSeriesObjIndex(interp, arithSeriesObjPtr, (index+incr), &elemObj); - char *estr = elemObj ? Tcl_GetStringFromObj(elemObj, &elen) : ""; + const char *estr = elemObj ? Tcl_GetStringFromObj(elemObj, &elen) : ""; /* "in" operation defined as a string compare */ test = (elen == vlen) ? (memcmp(estr, vstr, elen) == 0) : 0; Tcl_BumpObj(elemObj); |