diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-04-27 19:26:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-04-27 19:26:11 (GMT) |
| commit | d4624cb3479e802ba0689103317303b2cb3098c7 (patch) | |
| tree | 55eb219d2beadcbd910d00d1584c3becd482728d /generic/tclInt.h | |
| parent | 6e055348266e6090d1fc58eda98de67d8a7ae8fb (diff) | |
| parent | 534bec807cc2cb0a81899bdc9fe9e39a486c0ea5 (diff) | |
| download | tcl-d4624cb3479e802ba0689103317303b2cb3098c7.zip tcl-d4624cb3479e802ba0689103317303b2cb3098c7.tar.gz tcl-d4624cb3479e802ba0689103317303b2cb3098c7.tar.bz2 | |
TclFreeIntRep() correction & cleanup.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index fe06573..95a497b 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4045,9 +4045,10 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, */ #define TclFreeIntRep(objPtr) \ - if ((objPtr)->typePtr != NULL && \ - (objPtr)->typePtr->freeIntRepProc != NULL) { \ - (objPtr)->typePtr->freeIntRepProc(objPtr); \ + if ((objPtr)->typePtr != NULL) { \ + if ((objPtr)->typePtr->freeIntRepProc != NULL) { \ + (objPtr)->typePtr->freeIntRepProc(objPtr); \ + } \ (objPtr)->typePtr = NULL; \ } |