Index: generic/nsf.c =================================================================== diff -u -r67efaa622731c55726f20c509a775303bb99f4ff -rab19dafcfc3d8496be14080b8803b374ef46c8fc --- generic/nsf.c (.../nsf.c) (revision 67efaa622731c55726f20c509a775303bb99f4ff) +++ generic/nsf.c (.../nsf.c) (revision ab19dafcfc3d8496be14080b8803b374ef46c8fc) @@ -5865,9 +5865,9 @@ * Avoid hijacking a namespace with different client data */ if (nsPtr->deleteProc || nsPtr->clientData) { - Tcl_Panic("Namespace '%s' exists already with delProc %p and clientData %p; " - "Can only convert a plain Tcl namespace into an nsf namespace, my delete Proc %p", - name, nsPtr->deleteProc, nsPtr->clientData, NSNamespaceDeleteProc); + Tcl_Panic("Namespace '%s' exists already with delProc 0x%x and clientData %p; " + "Can only convert a plain Tcl namespace into an NSF namespace, my delete proc 0x%x", + name, PTR2UINT(nsPtr->deleteProc), nsPtr->clientData, PTR2UINT(NSNamespaceDeleteProc)); } { @@ -24280,10 +24280,10 @@ RUNTIME_STATE(interp)->instanceMethodEpoch; Tcl_Command cmd = mcPtr->cmd; - fprintf(stderr, " method epoch %d max %d cmd %p objProc %p flags %.6x\n", + fprintf(stderr, " method epoch %d max %d cmd %p objProc 0x%x flags %.6x\n", mcPtr->methodEpoch, currentMethodEpoch, (void *)cmd, - (cmd != NULL) ? ((void *)((Command *)cmd)->objProc) : NULL, + (cmd != NULL) ? PTR2UINT(((Command *)cmd)->objProc) : 0u, mcPtr->flags); if (cmd != NULL) { fprintf(stderr, "... cmd %p flags %.6x\n", (void *)cmd, Tcl_Command_flags(cmd));