diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-18 12:10:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-18 12:10:11 (GMT) |
| commit | 550a9b023e48189248ee04816b0c01f0f862bad8 (patch) | |
| tree | db4fc39801b7fce8670ddf65f49d5f466976a7c8 /generic/tclGet.c | |
| parent | a8cbd4663aea70a49bc56c61016e39bebd99eeae (diff) | |
| parent | cb112714d6dc2adff4f7a31b2268de41a0fbb6bd (diff) | |
| download | tcl-550a9b023e48189248ee04816b0c01f0f862bad8.zip tcl-550a9b023e48189248ee04816b0c01f0f862bad8.tar.gz tcl-550a9b023e48189248ee04816b0c01f0f862bad8.tar.bz2 | |
Merge to feature branch
Diffstat (limited to 'generic/tclGet.c')
| -rw-r--r-- | generic/tclGet.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclGet.c b/generic/tclGet.c index b6089d3..4c19b55 100644 --- a/generic/tclGet.c +++ b/generic/tclGet.c @@ -53,6 +53,7 @@ Tcl_GetInt( if (obj.refCount > 1) { Tcl_Panic("invalid sharing of Tcl_Obj on C stack"); } + TclFreeIntRep(&obj); return code; } @@ -96,6 +97,7 @@ Tcl_GetDouble( if (obj.refCount > 1) { Tcl_Panic("invalid sharing of Tcl_Obj on C stack"); } + TclFreeIntRep(&obj); return code; } |