summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-07-23 13:38:21 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-07-23 13:38:21 (GMT)
commit16253514a3a86502bec2e5b592f4c0789641535d (patch)
tree24a17ca53effea9d26a45f921a8f92b2753bca84
parenta4c31dcffa6781cf45a97ec8ea576c9b0b914c04 (diff)
downloadtcl-16253514a3a86502bec2e5b592f4c0789641535d.zip
tcl-16253514a3a86502bec2e5b592f4c0789641535d.tar.gz
tcl-16253514a3a86502bec2e5b592f4c0789641535d.tar.bz2
* generic/tclBasic.c (GetCommandSource): added comment with
explanation and warning for waintainers.
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclBasic.c10
2 files changed, 14 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 22704ce..a5a8a89 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-23 Miguel Sofer <msofer@users.sf.net>
+
+ * generic/tclBasic.c (GetCommandSource): added comment with
+ explanation and warning for waintainers.
+
2008-07-22 Andreas Kupries <andreask@activestate.com>
* generic/tclCompile.c: Made the new TclEnterCmdWordIndex
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 0e77315..1730097 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.328 2008/07/22 22:46:46 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.329 2008/07/23 13:38:22 msofer Exp $
*/
#include "tclInt.h"
@@ -3160,6 +3160,14 @@ CancelEvalProc(clientData, interp, code)
* command. This insures that traces get a correct NUL-terminated command
* string. The Tcl_Obj has refCount==1.
*
+ * *** MAINTAINER WARNING ***
+ * The returned Tcl_Obj is all wrong for any purpose but getting the
+ * source string for an objc/objv command line in the stringRep (no
+ * stringRep if no source is available) and the corresponding substituted
+ * version in the List intrep.
+ * This means that the intRep and stringRep DO NOT COINCIDE! Using these
+ * Tcl_Objs normally is likely to break things.
+ *
*----------------------------------------------------------------------
*/