diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-08-17 16:24:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-08-17 16:24:36 (GMT) |
| commit | 7d5168af1d4916e078aca136b05678630626cec6 (patch) | |
| tree | 5d388f3d3fbe0b1abdf3f585c67e44ac8aec4c9e /generic/tclGet.c | |
| parent | 1df484aa4e500a19662de2ddad6dcc4772ca71fa (diff) | |
| parent | 64bb543f093da89415c238358e356617870e8e07 (diff) | |
| download | tcl-7d5168af1d4916e078aca136b05678630626cec6.zip tcl-7d5168af1d4916e078aca136b05678630626cec6.tar.gz tcl-7d5168af1d4916e078aca136b05678630626cec6.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; } |