diff options
author | griffin <briang42@easystreet.net> | 2023-08-10 17:48:37 (GMT) |
---|---|---|
committer | griffin <briang42@easystreet.net> | 2023-08-10 17:48:37 (GMT) |
commit | 45a4664dc23302120e0f70efc82413b2c6a15a20 (patch) | |
tree | 113b7e7ffd9cba03d77f0b662f35c97b951cc293 /generic/tclArithSeries.c | |
parent | 5b6a975221d0976507e6af812c7755143a269ab6 (diff) | |
parent | 946847b4b9f3b9b7aa252d830921d41033d5175b (diff) | |
download | tcl-45a4664dc23302120e0f70efc82413b2c6a15a20.zip tcl-45a4664dc23302120e0f70efc82413b2c6a15a20.tar.gz tcl-45a4664dc23302120e0f70efc82413b2c6a15a20.tar.bz2 |
Revert DupolicatePureObj back to DuplicateObj.
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 ef1101a..a074a43 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 const *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); |