diff options
| author | hobbs <hobbs> | 2010-10-04 05:23:47 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2010-10-04 05:23:47 (GMT) |
| commit | 61b8098e68a5b3df43f1eb9a8616fb70ef266fdd (patch) | |
| tree | 52243990ba4c4103f3b0d60773b5b8840a0f9b3e /generic | |
| parent | 2923195c0a33a3b0b5300ac92c9198750fd0210d (diff) | |
| download | tcl-61b8098e68a5b3df43f1eb9a8616fb70ef266fdd.zip tcl-61b8098e68a5b3df43f1eb9a8616fb70ef266fdd.tar.gz tcl-61b8098e68a5b3df43f1eb9a8616fb70ef266fdd.tar.bz2 | |
correct evalstats to use %#lx for %p for Tcl_AppendPrintfToObj
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 3048663..40f513a 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.369.2.16 2010/10/02 00:29:42 hobbs Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.369.2.17 2010/10/04 05:23:47 hobbs Exp $ */ #include "tclInt.h" @@ -8154,7 +8154,7 @@ EvalStatsCmd( Tcl_AppendPrintfToObj(objPtr, "\n----------------------------------------------------------------\n"); Tcl_AppendPrintfToObj(objPtr, - "Compilation and execution statistics for interpreter 0x%p\n", + "Compilation and execution statistics for interpreter %#lx\n", iPtr); Tcl_AppendPrintfToObj(objPtr, "\nNumber ByteCodes executed %ld\n", |