summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-02-04 20:24:55 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-02-04 20:24:55 (GMT)
commit86c00842e8ddeea24e022240e03480551bc3966d (patch)
treef3df38ecc06f858351e85ba2621320328e631bba
parent8de616ebaa9b5992be55b8d4c3af38f1b88b6faa (diff)
downloadtcl-86c00842e8ddeea24e022240e03480551bc3966d.zip
tcl-86c00842e8ddeea24e022240e03480551bc3966d.tar.gz
tcl-86c00842e8ddeea24e022240e03480551bc3966d.tar.bz2
fix comments in INST_CONCAT
-rw-r--r--generic/tclExecute.c9
1 files 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);