diff options
| author | dgp@users.sourceforge.net <dgp> | 2011-08-17 16:24:36 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2011-08-17 16:24:36 (GMT) |
| commit | 6a22eb724d98f9109523a6994b00e380ba88daf2 (patch) | |
| tree | 5d388f3d3fbe0b1abdf3f585c67e44ac8aec4c9e /generic/tclGet.c | |
| parent | cfa2c7258aaff0375aaeb67c34127e1d406d8e74 (diff) | |
| parent | cd32734b5f50c36f014c1633ba17d2b4d2ba3c7a (diff) | |
| download | tcl-6a22eb724d98f9109523a6994b00e380ba88daf2.zip tcl-6a22eb724d98f9109523a6994b00e380ba88daf2.tar.gz tcl-6a22eb724d98f9109523a6994b00e380ba88daf2.tar.bz2 | |
3393150 Overlooked free of intreps. (It matters for bignums!)
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; } |