diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclGet.c | 2 |
2 files changed, 7 insertions, 0 deletions
@@ -1,3 +1,8 @@ +2011-08-17 Don Porter <dgp@users.sourceforge.net> + + * generic/tclGet.c: [Bug 3393150] Overlooked free of intreps. + (It matters for bignums!) + 2011-08-16 Don Porter <dgp@users.sourceforge.net> * generic/tclCompile.c: [Bug 3392070] More complete prevention of 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; } |