diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-18 10:51:07 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-18 10:51:07 (GMT) |
| commit | ddfd3dd2c7125da6e26ebfb3c05511d112773993 (patch) | |
| tree | 31daba2127c1c0ef2584a9d4e115b2d290c685a5 | |
| parent | 000ec97ca2930a1a8a003d97239db12794c0317d (diff) | |
| download | tcl-ddfd3dd2c7125da6e26ebfb3c05511d112773993.zip tcl-ddfd3dd2c7125da6e26ebfb3c05511d112773993.tar.gz tcl-ddfd3dd2c7125da6e26ebfb3c05511d112773993.tar.bz2 | |
Fix memory leak
| -rw-r--r-- | generic/tclNamesp.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 978639e..b91a4ec 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -3076,7 +3076,8 @@ TclNewNamespaceObj( resNamePtr->nsPtr = nsPtr; resNamePtr->refNsPtr = NULL; - resNamePtr->refCount = 1; + resNamePtr->refCount = 0; + nsPtr->refCount++; NsNameSetInternalRep(objPtr, resNamePtr); } return objPtr; |