diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-02-04 20:24:55 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-02-04 20:24:55 (GMT) |
| commit | 86c00842e8ddeea24e022240e03480551bc3966d (patch) | |
| tree | f3df38ecc06f858351e85ba2621320328e631bba /generic/tclExecute.c | |
| parent | 8de616ebaa9b5992be55b8d4c3af38f1b88b6faa (diff) | |
| download | tcl-86c00842e8ddeea24e022240e03480551bc3966d.zip tcl-86c00842e8ddeea24e022240e03480551bc3966d.tar.gz tcl-86c00842e8ddeea24e022240e03480551bc3966d.tar.bz2 | |
fix comments in INST_CONCAT
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 9 |
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); |