diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-14 09:01:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-14 09:01:37 (GMT) |
| commit | b7c77d16c04f4103a7a932fd3a2adc8380754341 (patch) | |
| tree | f95958b55149d1b6f2335ff7c8b1a7362babc47f /generic | |
| parent | 30f60173c4738c76675b58db3a7a5aaa62ca79ea (diff) | |
| parent | 715f2a416119bf40f0fd4cb42894f329bc69029e (diff) | |
| download | tcl-b7c77d16c04f4103a7a932fd3a2adc8380754341.zip tcl-b7c77d16c04f4103a7a932fd3a2adc8380754341.tar.gz tcl-b7c77d16c04f4103a7a932fd3a2adc8380754341.tar.bz2 | |
Improve some comments and quoting, no change in functionality.
Only check for refCount == 0x61616161 for TCL_MEM_DEBUG build.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 4069cf0..dde116f 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -4559,7 +4559,11 @@ TclGetInnerContext( if (!objPtr) { Tcl_Panic("InnerContext: bad tos -- appending null object"); } - if (objPtr->refCount<=0 || objPtr->refCount==0x61616161) { + if ((objPtr->refCount<=0) +#ifdef TCL_MEM_DEBUG + || (objPtr->refCount==0x61616161) +#endif + ) { Tcl_Panic("InnerContext: bad tos -- appending freed object %p", objPtr); } |