diff options
| author | John Birrell <jb@FreeBSD.org> | 1998-08-20 21:33:31 +0000 |
|---|---|---|
| committer | John Birrell <jb@FreeBSD.org> | 1998-08-20 21:33:31 +0000 |
| commit | 2fbedc25cd371c576b2aace6fa025ebae8cf7bf1 (patch) | |
| tree | 4ff9ed5eea5829f530296fc4abf5d75448064a38 | |
| parent | 33b51c50fb48e706260b1e0e1258ded91fc284de (diff) | |
Notes
| -rw-r--r-- | contrib/tcl/generic/tclCompile.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/contrib/tcl/generic/tclCompile.c b/contrib/tcl/generic/tclCompile.c index 3291b3d5d2a6..97225b033207 100644 --- a/contrib/tcl/generic/tclCompile.c +++ b/contrib/tcl/generic/tclCompile.c @@ -468,9 +468,9 @@ TclPrintByteCodeObj(interp, objPtr) * Print header lines describing the ByteCode. */ - fprintf(stdout, "\nByteCode 0x%x, ref ct %u, epoch %u, interp 0x%x(epoch %u)\n", - (unsigned int) codePtr, codePtr->refCount, - codePtr->compileEpoch, (unsigned int) codePtr->iPtr, + fprintf(stdout, "\nByteCode %p, ref ct %u, epoch %u, interp %p(epoch %u)\n", + (void *) codePtr, codePtr->refCount, + codePtr->compileEpoch, (void *) codePtr->iPtr, codePtr->iPtr->compileEpoch); fprintf(stdout, " Source "); TclPrintSource(stdout, codePtr->source, @@ -496,8 +496,8 @@ TclPrintByteCodeObj(interp, objPtr) Proc *procPtr = codePtr->procPtr; int numCompiledLocals = procPtr->numCompiledLocals; fprintf(stdout, - " Proc 0x%x, ref ct %d, args %d, compiled locals %d\n", - (unsigned int) procPtr, procPtr->refCount, procPtr->numArgs, + " Proc %p, ref ct %d, args %d, compiled locals %d\n", + (void *) procPtr, procPtr->refCount, procPtr->numArgs, numCompiledLocals); if (numCompiledLocals > 0) { CompiledLocal *localPtr = procPtr->firstLocalPtr; @@ -6826,7 +6826,7 @@ TclObjIndexForString(string, length, allocStrRep, inHeap, envPtr) } else { hPtr = Tcl_CreateHashEntry(&envPtr->objTable, string, &new); if (!new) { /* already in object table and array */ - objIndex = (int) Tcl_GetHashValue(hPtr); + objIndex = (long) Tcl_GetHashValue(hPtr); if (inHeap) { ckfree(string); } |