diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-31 20:00:40 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-31 20:00:40 (GMT) |
| commit | ff30cedb97a7408223c44f6168153f2185169f6b (patch) | |
| tree | c52103e974289ea0e26d5d6111865a4129a1c360 | |
| parent | 52752b0e302387c08b51c6382602bf82434af30d (diff) | |
| parent | 1666ae35d8a1d7fd4183adbcca775f541b8596eb (diff) | |
| download | tcl-ff30cedb97a7408223c44f6168153f2185169f6b.zip tcl-ff30cedb97a7408223c44f6168153f2185169f6b.tar.gz tcl-ff30cedb97a7408223c44f6168153f2185169f6b.tar.bz2 | |
merge trunk
| -rw-r--r-- | generic/tclOOCall.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 26fd09f..897f635 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -150,7 +150,7 @@ void TclOODeleteChain( CallChain *callPtr) { - if (--callPtr->refCount >= 1) { + if (callPtr == NULL || --callPtr->refCount >= 1) { return; } if (callPtr->chain != callPtr->staticChain) { |