diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-07-12 16:05:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-07-12 16:05:43 (GMT) |
| commit | a794c019fc0416aa27cb0dde1889e3486725aa4c (patch) | |
| tree | f6c583ac1ec4985f3cd1d3eac93ce909c3f86436 /generic/tclObj.c | |
| parent | ab10db7f7cc5c8ab1e1716443f808e4d99f1f8ef (diff) | |
| download | tcl-a794c019fc0416aa27cb0dde1889e3486725aa4c.zip tcl-a794c019fc0416aa27cb0dde1889e3486725aa4c.tar.gz tcl-a794c019fc0416aa27cb0dde1889e3486725aa4c.tar.bz2 | |
platform portable type matching in debug prints
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"); } } |