diff options
author | dgp <dgp@noemail.net> | 2011-07-12 16:05:43 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-07-12 16:05:43 (GMT) |
commit | 964cf407742c9599df5a346ce23b50beac10aeb5 (patch) | |
tree | f6c583ac1ec4985f3cd1d3eac93ce909c3f86436 /generic/tclObj.c | |
parent | ac40d750761f70590b71f0032ecadb58547025f3 (diff) | |
download | tcl-964cf407742c9599df5a346ce23b50beac10aeb5.zip tcl-964cf407742c9599df5a346ce23b50beac10aeb5.tar.gz tcl-964cf407742c9599df5a346ce23b50beac10aeb5.tar.bz2 |
platform portable type matching in debug prints
FossilOrigin-Name: 83d26b2944ce1ac96c7dd15dfb459114a3234fa5
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r-- | generic/tclObj.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 129d80d..95924c1 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1330,7 +1330,7 @@ TclFreeObj( ObjInitDeletionContext(context); if (objPtr->refCount < -1) { - Tcl_Panic("Reference count for %lx was negative", objPtr); + Tcl_Panic("Reference count for %p was negative", objPtr); } /* @@ -3724,7 +3724,7 @@ Tcl_DbIncrRefCount( hPtr = Tcl_FindHashEntry(tablePtr, objPtr); if (!hPtr) { Tcl_Panic("%s%s", - "Trying to incr ref count of " + "Trying to incr ref count of ", "Tcl_Obj allocated in another thread"); } } @@ -3789,7 +3789,7 @@ Tcl_DbDecrRefCount( hPtr = Tcl_FindHashEntry(tablePtr, objPtr); if (!hPtr) { Tcl_Panic("%s%s", - "Trying to decr ref count of " + "Trying to decr ref count of ", "Tcl_Obj allocated in another thread"); } @@ -3868,7 +3868,7 @@ Tcl_DbIsShared( hPtr = Tcl_FindHashEntry(tablePtr, objPtr); if (!hPtr) { Tcl_Panic("%s%s", - "Trying to check shared status of" + "Trying to check shared status of", "Tcl_Obj allocated in another thread"); } } |