diff options
| author | dgp <dgp@users.sourceforge.net> | 2010-10-13 17:10:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2010-10-13 17:10:57 (GMT) |
| commit | 0d28a913fcbe639c039cdbfc69d2cc0c0f802810 (patch) | |
| tree | d073c3a4f9eb1481d292967d9c1807337e5b03bf /generic/tclCompile.c | |
| parent | 40fe734e338c7f76d3d8e58dc9ba49618ed78922 (diff) | |
| download | tcl-0d28a913fcbe639c039cdbfc69d2cc0c0f802810.zip tcl-0d28a913fcbe639c039cdbfc69d2cc0c0f802810.tar.gz tcl-0d28a913fcbe639c039cdbfc69d2cc0c0f802810.tar.bz2 | |
remove outdated comment
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 5547071..dd92f27 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.c,v 1.190 2010/10/13 16:41:27 dgp Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.191 2010/10/13 17:10:57 dgp Exp $ */ #include "tclInt.h" @@ -1854,12 +1854,6 @@ TclCompileScript( /* * If the source script yielded no instructions (e.g., if it was empty), * push an empty string as the command's result. - * - * WARNING: push an unshared object! If the script being compiled is a - * shared empty string, it will otherwise be self-referential and cause - * difficulties with literal management [Bugs 467523, 983660]. We used to - * have special code in TclReleaseLiteral to handle this particular - * self-reference, but now opt for avoiding its creation altogether. */ if (envPtr->codeNext == entryCodeNext) { |