* generic/tclCmdIL.c (TclInfoFrame): Change this code to use

	Tcl_GetCommandFullName rather than rolling its own. Discovered during
	the hunting of [Bug 3001438] but unlikely to be a fix.

2 files changed, 53 insertions, 47 deletions

diff --git a/ChangeLog b/ChangeLog
index d219afd..4499fed 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,13 +1,20 @@
+2010-05-17  Donal K. Fellows  <dkf@users.sf.net>
+
+	* generic/tclCmdIL.c (TclInfoFrame): Change this code to use
+	Tcl_GetCommandFullName rather than rolling its own. Discovered during
+	the hunting of [Bug 3001438] but unlikely to be a fix.
+
 2010-05-11  Jan Nijtmans  <nijtmans@users.sf.net>
 
-	* win/tclWinConsole.c    Unnecessary type casts, See Tcl [Patch #2997087]
-	* win/tclWinDde.c
-	* win/tclWinLoad.c
-	* win/tclWinNotify.c
-	* win/tclWinSerial.c
-	* win/tclWinSock.c
-	* win/tclWinTime.c
-	* win/tclWinPort.h      Don't duplicate CYGWIN timezone #define from tclPort.h
+	* win/tclWinConsole.c: [Patch 2997087]: Unnecessary type casts.
+	* win/tclWinDde.c:
+	* win/tclWinLoad.c:
+	* win/tclWinNotify.c:
+	* win/tclWinSerial.c:
+	* win/tclWinSock.c:
+	* win/tclWinTime.c:
+	* win/tclWinPort.h: Don't duplicate CYGWIN timezone #define from
+			    tclPort.h
 
 2010-05-07  Andreas Kupries  <andreask@activestate.com>
 
@@ -22,36 +29,38 @@
 
 2010-05-04  Jan Nijtmans  <nijtmans@users.sf.net>
 
-	* win/tclWinNotify.c    TCHAR-related fixes, making those two
-	* win/tclWinSock.c      files compile fine when TCHAR != char
-	Please see comments in [Freq 2965056] (2965056-1.patch).
+	* win/tclWinNotify.c:	TCHAR-related fixes, making those two files
+	* win/tclWinSock.c:	compile fine when TCHAR != char. Please see
+	comments in [FRQ 2965056] (2965056-1.patch).
 
 2010-05-03  Jan Nijtmans  <nijtmans@users.sf.net>
 
-	* generic/tclIORChan.c    Use "tclIO.h" and "tclTomMathDecls.h"
-	* generic/tclIORTrans.c   everywhere
-	* generic/tclTomMath.h
-	* tools/fix_tommath_h.tcl
-	* libtommath/tommath.h    Formatting (# should always be first char on line)
-	* win/tclAppInit.c        For MINGW/CYGWIN, use GetCommandLineA explicitely
-	* unix/.cvsignore         Add pkg, *.dll
-
-	* libtommath/tommath.h        CONSTify various useful internal functions
-	* libtommath/bn_mp_cmp_d.c    (TclBignumToDouble, TclCeil, TclFloor), and
-	* libtommath/bn_mp_cmp_mag.c  related tommath functions.
-	* libtommath/bn_mp_cmp.c
-	* libtommath/bn_mp_copy.c
-	* libtommath/bn_mp_count_bits.c
-	* libtommath/bn_mp_div_2d.c
-	* libtommath/bn_mp_mod_2d.c
-	* libtommath/bn_mp_mul_2d.c
-	* libtommath/bn_mp_neg.c
-	* generic/tclBasic.c         Handle TODO: const correctness ?
-	* generic/tclInt.h
-	* generic/tclStrToD.c
-	* generic/tclTomMath.decls
-	* generic/tclTomMath.h
-	* generic/tclTomMathDecls.h
+	* generic/tclIORChan.c:   Use "tclIO.h" and "tclTomMathDecls.h"
+	* generic/tclIORTrans.c:  everywhere
+	* generic/tclTomMath.h:
+	* tools/fix_tommath_h.tcl:
+	* libtommath/tommath.h:   Formatting (# should always be first char on
+				  line)
+	* win/tclAppInit.c:       For MINGW/CYGWIN, use GetCommandLineA
+				  explicitly.
+	* unix/.cvsignore:        Add pkg, *.dll
+
+	* libtommath/tommath.h:       CONSTify various useful internal
+	* libtommath/bn_mp_cmp_d.c:   functions (TclBignumToDouble, TclCeil,
+	* libtommath/bn_mp_cmp_mag.c: TclFloor), and related tommath functions
+	* libtommath/bn_mp_cmp.c:
+	* libtommath/bn_mp_copy.c:
+	* libtommath/bn_mp_count_bits.c:
+	* libtommath/bn_mp_div_2d.c:
+	* libtommath/bn_mp_mod_2d.c:
+	* libtommath/bn_mp_mul_2d.c:
+	* libtommath/bn_mp_neg.c:
+	* generic/tclBasic.c:        Handle TODO: const correctness ?
+	* generic/tclInt.h:
+	* generic/tclStrToD.c:
+	* generic/tclTomMath.decls:
+	* generic/tclTomMath.h:
+	* generic/tclTomMathDecls.h:
 
 2010-04-30  Don Porter  <dgp@users.sourceforge.net>
 
@@ -69,9 +78,9 @@
 	int which any value already vetted for overflow issues will fit into.
 	* generic/tclStringObj.c:	Update caller; standardize panic msg. 
 
-	* generic/tclBinary.c (UpdateStringOfByteArray):	Add panic
-	when the generated string representation would grow beyond Tcl's
-	size limits.  [Bug 2994924]
+	* generic/tclBinary.c (UpdateStringOfByteArray): [Bug 2994924]:	Add
+	panic when the generated string representation would grow beyond Tcl's
+	size limits.
 
 2010-04-30  Donal K. Fellows  <dkf@users.sf.net>
 
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index bdc6d2e..3d4bcb2 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.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: tclCmdIL.c,v 1.181 2010/04/05 19:44:45 ferrieux Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.182 2010/05/17 09:46:09 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -1371,19 +1371,16 @@ TclInfoFrame(
 	Tcl_HashEntry *namePtr = procPtr->cmdPtr->hPtr;
 
 	if (namePtr) {
-	    char *procName = Tcl_GetHashKey(namePtr->tablePtr, namePtr);
-	    char *nsName = procPtr->cmdPtr->nsPtr->fullName;
+            Tcl_Obj *procNameObj;
 
 	    /*
 	     * This is a regular command.
 	     */
 
-	    ADD_PAIR("proc", Tcl_NewStringObj(nsName, -1));
-
-	    if (strcmp(nsName, "::") != 0) {
-		Tcl_AppendToObj(lv[lc-1], "::", -1);
-	    }
-	    Tcl_AppendToObj(lv[lc-1], procName, -1);
+            TclNewObj(procNameObj);
+            Tcl_GetCommandFullName(interp, (Tcl_Command) procPtr->cmdPtr,
+                    procNameObj);
+	    ADD_PAIR("proc", procNameObj);
 	} else if (procPtr->cmdPtr->clientData) {
 	    ExtraFrameInfo *efiPtr = procPtr->cmdPtr->clientData;
 	    int i;