diff options
| author | limeboy <that.lemon+tcl@gmai.com> | 2016-12-01 12:01:01 (GMT) |
|---|---|---|
| committer | limeboy <that.lemon+tcl@gmai.com> | 2016-12-01 12:01:01 (GMT) |
| commit | 13a4d32330a2ec5af486c1fa5fb09338da3af8db (patch) | |
| tree | 1e6552b81641a26b22b300e273614e060baa35e8 /generic/tclExecute.c | |
| parent | 8fe50e3f91ec232823ba032f24dabbaa7c9f298c (diff) | |
| parent | c25e21b7bb6584947734fd9dd77a29c66ba1a0fe (diff) | |
| download | tcl-13a4d32330a2ec5af486c1fa5fb09338da3af8db.zip tcl-13a4d32330a2ec5af486c1fa5fb09338da3af8db.tar.gz tcl-13a4d32330a2ec5af486c1fa5fb09338da3af8db.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 1f78ead..074b1d5 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -9459,9 +9459,9 @@ PrintByteCodeInfo( Proc *procPtr = codePtr->procPtr; Interp *iPtr = (Interp *) *codePtr->interpHandle; - fprintf(stdout, "\nExecuting ByteCode 0x%p, refCt %u, epoch %u, interp 0x%p (epoch %u)\n", - codePtr, codePtr->refCount, codePtr->compileEpoch, iPtr, - iPtr->compileEpoch); + fprintf(stdout, "\nExecuting ByteCode 0x%p, refCt %" TCL_LL_MODIFIER "u, epoch %" TCL_LL_MODIFIER "u, interp 0x%p (epoch %" TCL_LL_MODIFIER "u)\n", + codePtr, (Tcl_WideInt)codePtr->refCount, (Tcl_WideInt)codePtr->compileEpoch, iPtr, + (Tcl_WideInt)iPtr->compileEpoch); fprintf(stdout, " Source: "); TclPrintSource(stdout, codePtr->source, 60); |