diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-02-05 16:34:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-02-05 16:34:28 (GMT) |
| commit | ca5e7c5b63ce1355c653763e82f8e75f7a38d333 (patch) | |
| tree | e5558e6ba229e38fdba5468a0bd49f9211a1bbab /generic/tclExecute.c | |
| parent | 836fa11775ae940ca572c7c330afbae5a7632d5b (diff) | |
| download | tcl-ca5e7c5b63ce1355c653763e82f8e75f7a38d333.zip tcl-ca5e7c5b63ce1355c653763e82f8e75f7a38d333.tar.gz tcl-ca5e7c5b63ce1355c653763e82f8e75f7a38d333.tar.bz2 | |
Revise the TclStringCat() interface to follow a common pattern.
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 f2cda0c..a30ec89 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2682,9 +2682,9 @@ TEBCresume( case INST_STR_CONCAT1: opnd = TclGetUInt1AtPtr(pc+1); - - if (TCL_OK != TclStringCatObjv(interp, /* inPlace */ 1, - opnd, &OBJ_AT_DEPTH(opnd-1), &objResultPtr)) { + objResultPtr = TclStringCat(interp, opnd, &OBJ_AT_DEPTH(opnd-1), + TCL_STRING_IN_PLACE); + if (objResultPtr == NULL) { TRACE_ERROR(interp); goto gotError; } |