diff options
author | jb <jb@FreeBSD.org> | 1998-08-20 21:33:31 +0000 |
---|---|---|
committer | jb <jb@FreeBSD.org> | 1998-08-20 21:33:31 +0000 |
commit | 68c64482c2178bc010b0daa983202e72c05f5cec (patch) | |
tree | 5c1039605cbc3627713404b5a3b45b87db24ea64 | |
parent | d724e3649c785d7f3342df2b1f5a40aa41752beb (diff) | |
download | FreeBSD-src-68c64482c2178bc010b0daa983202e72c05f5cec.zip FreeBSD-src-68c64482c2178bc010b0daa983202e72c05f5cec.tar.gz |
Use %p and void * casts to print pointers.
Cast the hash value returned to long instead of int.
-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 3291b3d..97225b0 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); } |