diff options
| author | das <das> | 2007-04-23 20:33:56 (GMT) |
|---|---|---|
| committer | das <das> | 2007-04-23 20:33:56 (GMT) |
| commit | b2d416baafa945b216378335885f99238f38966e (patch) | |
| tree | 2f5c20af8f2af9e9114e732d6557893ae4dfaf08 /generic/tclCompile.c | |
| parent | 212710db2267a25e7ddef3a314ea551e835430b6 (diff) | |
| download | tcl-b2d416baafa945b216378335885f99238f38966e.zip tcl-b2d416baafa945b216378335885f99238f38966e.tar.gz tcl-b2d416baafa945b216378335885f99238f38966e.tar.bz2 | |
* generic/tclCkalloc.c: fix warnings from gcc build configured with
* generic/tclCompile.c: --enable-64bit --enable-symbols=all.
* generic/tclExecute.c:
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 690da17..0bfe9bf 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.116 2007/04/23 18:01:41 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.117 2007/04/23 20:33:56 das Exp $ */ #include "tclInt.h" @@ -3405,9 +3405,8 @@ TclPrintByteCodeObj( */ fprintf(stdout, - "\nByteCode 0x%x, refCt %u, epoch %u, interp 0x%x (epoch %u)\n", - (unsigned int) codePtr, codePtr->refCount, - codePtr->compileEpoch, (unsigned int) iPtr, + "\nByteCode 0x%p, refCt %u, epoch %u, interp 0x%p (epoch %u)\n", + codePtr, codePtr->refCount, codePtr->compileEpoch, iPtr, iPtr->compileEpoch); fprintf(stdout, " Source "); TclPrintSource(stdout, codePtr->source, @@ -3444,8 +3443,8 @@ TclPrintByteCodeObj( Proc *procPtr = codePtr->procPtr; int numCompiledLocals = procPtr->numCompiledLocals; fprintf(stdout, - " Proc 0x%x, refCt %d, args %d, compiled locals %d\n", - (unsigned int) procPtr, procPtr->refCount, procPtr->numArgs, + " Proc 0x%p, refCt %d, args %d, compiled locals %d\n", + procPtr, procPtr->refCount, procPtr->numArgs, numCompiledLocals); if (numCompiledLocals > 0) { CompiledLocal *localPtr = procPtr->firstLocalPtr; |