diff options
| author | hobbs <hobbs> | 2010-10-04 05:23:47 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2010-10-04 05:23:47 (GMT) |
| commit | 35b6ce98296b163f9a1b1611b4bddab453917681 (patch) | |
| tree | 52243990ba4c4103f3b0d60773b5b8840a0f9b3e /generic/tclExecute.c | |
| parent | bbc417c485039e65a424902ad8aff0b3dd8bdd35 (diff) | |
| download | tcl-35b6ce98296b163f9a1b1611b4bddab453917681.zip tcl-35b6ce98296b163f9a1b1611b4bddab453917681.tar.gz tcl-35b6ce98296b163f9a1b1611b4bddab453917681.tar.bz2 | |
correct evalstats to use %#lx for %p for Tcl_AppendPrintfToObj
Diffstat (limited to 'generic/tclExecute.c')
| -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", |