From 86c00842e8ddeea24e022240e03480551bc3966d Mon Sep 17 00:00:00 2001 From: Miguel Sofer Date: Mon, 4 Feb 2008 20:24:55 +0000 Subject: fix comments in INST_CONCAT --- generic/tclExecute.c | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 3439fc8..6840574 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.362 2008/02/04 19:54:34 msofer Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.363 2008/02/04 20:24:55 msofer Exp $ */ #include "tclInt.h" @@ -2050,10 +2050,9 @@ TclExecuteByteCode( * If the first object is shared, we need a new obj for the result; * otherwise, we can reuse the first object. In any case, make sure it * has enough room to accomodate all the concatenated bytes. Note that - * if it is unshared its bytes are already copied by - * Tcl_SetObjectLength, so that we set the loop parameters to avoid - * copying them again: p points to the end of the already copied - * bytes, currPtr to the second object. + * if it is unshared its bytes are copied by ckrealloc, so that we set + * the loop parameters to avoid copying them again: p points to the + * end of the already copied bytes, currPtr to the second object. */ objResultPtr = OBJ_AT_DEPTH(opnd-1); -- cgit v0.12