diff options
| author | kjnash <k.j.nash@usa.net> | 2020-08-28 01:53:33 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-08-28 01:53:33 (GMT) |
| commit | bba42d0251c44fb8d13efa3b72c1b443dab6063f (patch) | |
| tree | 9533368b31032b1588674dc02ba2ce4c08217f20 /generic/tclCompExpr.c | |
| parent | 17058912aa60f6a98953579de27b7876ce1ec4dd (diff) | |
| parent | 1f7a1beab25bccf98fa6643e73672de5fb5b5fd1 (diff) | |
| download | tcl-bba42d0251c44fb8d13efa3b72c1b443dab6063f.zip tcl-bba42d0251c44fb8d13efa3b72c1b443dab6063f.tar.gz tcl-bba42d0251c44fb8d13efa3b72c1b443dab6063f.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclCompExpr.c')
| -rw-r--r-- | generic/tclCompExpr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 4fb41fc..74610c7 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -2725,7 +2725,7 @@ TclVariadicOpCmd( Tcl_Obj *const *litObjPtrPtr = litObjv; if (lexeme == EXPON) { - litObjv[1] = Tcl_NewIntObj(occdPtr->i.identity); + TclNewIntObj(litObjv[1], occdPtr->i.identity); Tcl_IncrRefCount(litObjv[1]); decrMe = 1; litObjv[0] = objv[1]; @@ -2741,7 +2741,7 @@ TclVariadicOpCmd( if (lexeme == DIVIDE) { litObjv[0] = Tcl_NewDoubleObj(1.0); } else { - litObjv[0] = Tcl_NewIntObj(occdPtr->i.identity); + TclNewIntObj(litObjv[0], occdPtr->i.identity); } Tcl_IncrRefCount(litObjv[0]); litObjv[1] = objv[1]; |