diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-13 14:24:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-13 14:24:31 (GMT) |
| commit | 7aa1b0046802cb099488ba3bd88ac5cd2bd84d7d (patch) | |
| tree | d85d614ea42f3e1c227fe0f2810ccfe78233c5ec /generic/tclCompExpr.c | |
| parent | 91c115082e00fb94377ca5651198dc520cbc57f0 (diff) | |
| parent | acfbbfa01955b1e6807428aef20496d83af43d17 (diff) | |
| download | tcl-7aa1b0046802cb099488ba3bd88ac5cd2bd84d7d.zip tcl-7aa1b0046802cb099488ba3bd88ac5cd2bd84d7d.tar.gz tcl-7aa1b0046802cb099488ba3bd88ac5cd2bd84d7d.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 60ccccb..b37faef 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]; |