diff options
| author | dgp <dgp@noemail.net> | 2011-08-17 16:21:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2011-08-17 16:21:42 (GMT) |
| commit | 35d5172bc73c0de2d01e88a08c135dc1d936d654 (patch) | |
| tree | 2420cb1c6f945c7eb80cbf0ece7f64790a1da8ad /generic/tclGet.c | |
| parent | b270dfdd95bee0f31c6b472f19bc93302205072a (diff) | |
| download | tcl-35d5172bc73c0de2d01e88a08c135dc1d936d654.zip tcl-35d5172bc73c0de2d01e88a08c135dc1d936d654.tar.gz tcl-35d5172bc73c0de2d01e88a08c135dc1d936d654.tar.bz2 | |
3393150 Overlooked free of intreps. (It matters for bignums!)
FossilOrigin-Name: a80a0119e2de432d11df130bd6906591cbb4321b
Diffstat (limited to 'generic/tclGet.c')
| -rw-r--r-- | generic/tclGet.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclGet.c b/generic/tclGet.c index 54b4370..28734d1 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; } @@ -98,6 +99,7 @@ TclGetLong( if (obj.refCount > 1) { Tcl_Panic("invalid sharing of Tcl_Obj on C stack"); } + TclFreeIntRep(&obj); return code; } @@ -141,6 +143,7 @@ Tcl_GetDouble( if (obj.refCount > 1) { Tcl_Panic("invalid sharing of Tcl_Obj on C stack"); } + TclFreeIntRep(&obj); return code; } |