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/tclExecute.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/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index ca8afbe..6809d3c 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -3493,7 +3493,7 @@ TEBCresume( case INST_INCR_SCALAR_STK_IMM: case INST_INCR_STK_IMM: increment = TclGetInt1AtPtr(pc+1); - incrPtr = Tcl_NewIntObj(increment); + TclNewIntObj(incrPtr, increment); Tcl_IncrRefCount(incrPtr); pcAdjustment = 2; @@ -3528,7 +3528,7 @@ TEBCresume( case INST_INCR_ARRAY1_IMM: opnd = TclGetUInt1AtPtr(pc+1); increment = TclGetInt1AtPtr(pc+2); - incrPtr = Tcl_NewIntObj(increment); + TclNewIntObj(incrPtr, increment); Tcl_IncrRefCount(incrPtr); pcAdjustment = 3; @@ -6649,7 +6649,7 @@ TEBCresume( if (valuePtr == NULL) { Tcl_DictObjPut(NULL, dictPtr, OBJ_AT_TOS,Tcl_NewIntObj(opnd)); } else { - value2Ptr = Tcl_NewIntObj(opnd); + TclNewIntObj(value2Ptr, opnd); Tcl_IncrRefCount(value2Ptr); if (Tcl_IsShared(valuePtr)) { valuePtr = Tcl_DuplicateObj(valuePtr); |