d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use %p and void * casts to print pointers.

Browse Source 
Cast the hash value returned to long instead of int.
This commit is contained in:
John Birrell 1998-08-20 21:33:31 +00:00
parent 33b51c50fb
commit 2fbedc25cd
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=38459
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
contrib/tcl/generic/tclCompile.c
View File

@ -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);
}